Словарь Опции

[babyrka]

Приветствую, интересует реализация дозаписи в открытый файл, работаю над проектом англо-русский словарь...

[amega]

поробуй построить свою програму так

//обявляем тип

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;

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


Сообщение отредактировано: amega - 8.12.2008 21:16

[babyrka]

тема не актуальна справился с заданием, респет хорошим людям за помощь