Приветствую, интересует реализация дозаписи в открытый файл, работаю над проектом англо-русский словарь...
amega
9.12.2008 1:04
поробуй построить свою програму так
//обявляем тип
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;
если нужно могу написать поиск записи по русскому слову и вывод его, сортировку файла(для того чтобы вставлять новые слова по порядку и искать их потом например методом дихотомии)
babyrka
24.12.2008 0:07
тема не актуальна справился с заданием, респет хорошим людям за помощь
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.