Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Словарь

Автор: babyrka 8.12.2008 1:07

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


Прикрепленные файлы
Прикрепленный файл  Translete.zip ( 23.27 килобайт ) Кол-во скачиваний: 211
Прикрепленный файл  _______.txt ( 95 байт ) Кол-во скачиваний: 242

Автор: 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

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