Задача с файлами

[innaa639]

Заданный файл, который содержит телефонные номера работников учреждения. Указывается фамилия работника, ее инициалы и номер телефона. Ввести фамилию и имъъя из терминала. Отыскать телефон по введенным данным.

[slips]

Ограничусь этим на сегодня и пойду спать

         PhoneUserDB=record
                            FName    :String[255];
                            IName     :String[255];   
                            PHONE    :String[255];

Просто сегодня уже раз 10 видел на форуме большенство из которых уже решены, поищи

[vovk]

а где отыскать то?
это текстовый файл?
бд какаялибо?
или вообще там двоичные данные

[innaa639]

отыскать с текстового файла,он создается самим тобой,обычный текстовый файл

[Викдон]

может типизированный файл?

[Викдон]

для типизированного:

USES crt;
type info =record
 familia:string[15];
 ima:string[15];
 otchestvo:string[15];
 tel:string[6];
end;

var BD:file of info;
    put:string;
    zapis:info;
    d:char;
begin
write('Введите путь к файлу:  xxxxx.dat');
readln(put);
{$I-}
assign(BD,put);
rewrite(BD);

 while true do  {Цикл ввода информации в файл}
  begin
   with zapis do
   begin
    write('Введите фамилию работника: ');
    readln(familia);
    write('Введите имя работника: ');
    readln(ima);
    write('Введите отчество работника: ');
    readln(otchestvo);
    write('Введите телефон работника');
    readln(tel);
    end; {with}

   write('Сохранить запись в файл? Y/N');
    readln(d);
     if (d='y') or (d='y') then
      write(BD,zapis);  {Запись в файл информации}

   d:='y';
   write('Продолжить ввод информации? Y/N (по умолчанию-Y):');
    readln(d);
     if (d='n') or (d='N') then
      break;
  end; {while}
close(BD);

clrscr;
reset(BD);
write('Введите телефон для поиска');
readln(put);
 while not (EOF (BD)) do
   begin
    read(BD,zapis);
     if zapis.tel=put then
       begin
        writeln('------------');
        writeln(zapis.familia);
        writeln(zapis.ima);
       end;

    end;

readln;
end.

[volk86]

спасибо тебе,меня заблокировали

а как ее проверить,какой создавать файл,оно мне пишет не закрыт один файл в конце программы

[alex_fcsm]

Здесь решенная задача Ищите на форуме, поверьте Вы не первый кто сталкивается с этим.