Чтение из файла

[Zayco]

Помогите пожалуйста решить задачку в делфи 7

Дано файл f , что содержит номера телефонов сотрудников установи : указывается фамилия сотрудника , его инициалы и номер телефона. Найти телефон сотрудника по его фамилии и инициалами .

[northener]

Сообщение от Zayco

Помогите пожалуйста решить задачку в делфи 7

Чем помочь-то?

[Zayco]

У меня есть код для этой программы только в паскале, а мне надо в делфи сделать чтоб работал.

код паскал:

Program th;
var f1:text;
  a,b,c,k,i,n,r:integer;
  s1,s2,s3: string;
begin
assign(f1,'C:\INPUT.txt');           {Укажите путь до своего файла}
reset(f1);
writeln('введите Ф.И.О');readln(s1); {Просим ввести и читаем введенную строку}
n:=length(s1);                       {Узнаём длину введенной строки}
while not SeekEof(f1) do begin       {Пока не конец файла выполняем...}
readln(f1,s2);                       {Считваем строки из файла, по одной за цикл}
k:=k+1;                              {Считаем количество строк записанных в файле}
c:=0;
for i:=1 to n do if s1[i] = s2[i] then c:=c+1; {Каждый символ считанной строки сравниваем с
                                                каждым символом строки введенной с клавиатуры
                                                и суммируем количество совпавших символов}
if c=n then a:=k;              {Если количество совпавших символов равно длине строки,
                                то сохраняем её номер}
end;
if a=0 then writeln('такая запись не найдена') else
begin
reset(f1);                           {Переводим "курсор" в начало файла}
for i:=1 to a do readln(f1,s2);      {Считываем строку по сохранённому номеру}
s3:= copy(s2,n+1,7);           {Копируем номер телефона из только что считанной строки в
                                новую строку}
val(s3,b,r);
writeln('телефон: ',b);
end;
close(f1);
end.

[type_Oleg]

Сообщение от Zayco

У меня есть код для этой программы только в паскале, а мне надо в делфи сделать чтоб работал.
...

Delphi - это тоже Pascal.

Если надо консольное приложение, то просто поменять:
-- вместо var f1:text; - var f1:textFile;
-- вместо assign - AssignFile;
-- вместо close - CloseFile;

А если надо оконное приложение, то кроме этих замен, надо еще по другому вводить-выводить то, что вводите с клавиатуры. Но оконное на самом деле проще сделать.

[Zayco]

Да, надо именно оконное приложение.

writeln('введите Ф.И.О'); readln(s1); заменяю на s1:=edit1.text; и
writeln('телефон: ',b); на b:=strtoint(edit2.text);

и все равно куча ошибок

[type_Oleg]

Сообщение от Zayco

...и все равно куча ошибок

Ну так исправляйте ошибки. Там же пишется, в какой строке, и что ей, Delphi не нравится. Правда, на американском языке, но понять можно.

Кстати, рекомендую использовать компоненты OpenDialog, SaveDialog из раздела Диалоги , чтобы с именами файлов работать не по-древнеегипетски , а через Проводник.

[Zayco]

Спасибо за советы буду исправлять.