Приветствую, интересует реализация дозаписи в открытый файл, работаю над проектом англо-русский словарь...
Прикрепленные файлы
Translete.zip ( 23.27 килобайт )
Кол-во скачиваний: 211
_______.txt ( 95 байт )
Кол-во скачиваний: 242
поробуй построить свою програму так
//обявляем тип
Type
Tname= string[20]; //тип для слов
Trec = record
namber:integer; //переменная для подщета слов в словаре
rus : Tname;
usa : Tname;
end;
TrecArr = array [1..65000] of Trec;
Trecfile = file of Trec;
//обявим глобальную переменную для типизированого файла
Var f: Trecfile;
//добавление записи в файл
procedure newword(var f:trecFile; a:Trec); //передаем в процедуру переменную с данными
begin
//открываем файл для записи
reset(f);
seek(f,FileSize(f)); ставим файловый указатель в конец файла
write(f,a); записываем нашу переменную
end;
тема не актуальна справился с заданием, респет хорошим людям за помощь