типизированные файлы, паскаль!

[D1em]

Модифицировать программу, удалив из нее
массив записей. Вся работа должна производится с типизированным файлом:
добавление сразу в файл, поиск в файле и т.д.

вот сама прога...просто текстом не влезла((

PRACT99.RAR
хелп ребят кому не трудно))

[Hacker19_90]

Всё что нужно это файловая переменная

f: file of TypeName; {Где TypeName - название вашей структуры}

Теперь допустим запись в файл

procedure Save (fname: string);
var
    f: file of TypeName; {Где TypeName - название вашей структуры}
    key: char;
    str: TypeName;
begin
     assign(f, fname);
     {$I-}
     reset(f);
     if IOResult = 0 then
     begin
          Writeln ('Файл уже существует');
          ReadKey;
          exit;
     end;
     {$I+}
     rewrite(f);
     repeat
     {Здесь заполнение структуры}
     Write (f, str);
     Writeln ('Хотите продолжить (y/n)');
     Readln (key);
     until key = 'y';
     Close(f);  
end;

[D1em]

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

Всё что нужно это файловая переменная

f: file of TypeName; {Где TypeName - название вашей структуры}

Теперь допустим запись в файл

procedure Save (fname: string);
var
    f: file of TypeName; {Где TypeName - название вашей структуры}
    key: char;
    str: TypeName;
begin
     assign(f, fname);
     {$I-}
     reset(f);
     if IOResult = 0 then
     begin
          Writeln ('Файл уже существует');
          ReadKey;
          exit;
     end;
     {$I+}
     rewrite(f);
     repeat
     {Здесь заполнение структуры}
     Write (f, str);
     Writeln ('Хотите продолжить (y/n)');
     Readln (key);
     until key = 'y';
     Close(f);  
end;

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

[Hacker19_90]

запись в фаил то есть, и чтение из него тоже

наверно (вам виднее)

а как убрать массивы

Кнопочки Backspace и delete

редактировало в файле

Не советую!!!

P.S.: Я только показал технологию! Остальное за вами! Пробуйте!

[D1em]

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

наверно (вам виднее)

Кнопочки Backspace и delete

Не советую!!!

P.S.: Я только показал технологию! Остальное за вами! Пробуйте!

столько раз уже пробовал...что тошнит от нее уже......а редактирование сразу через фаил всетаки нужно(препод требует(