Курсовая работа: Программа для перевода текстов с транслита
begin
SlovGrid.Cells[0,i1]:= alph_r[i1];
if i1 = 7 then SlovGrid.Cells[1,i1]:= b_jo
else SlovGrid.Cells[1,i1]:= alph[alph_r[i1]];
end;
f_name:= '';
end;
Обработчик нажатия на кнопку «Сохранить». Если пользователь выбрал файл, куда сохранить новый словарь, то происходит перезапись этого файла. В него (как в типизированный файл) записывается последовательность переменных типа ShortString. Эти данные (и их количество) берутся из таблицы SlovGrid:
Листинг 17. «Нажатия на кнопку Сохранить»
procedure TSlovarForm.SveButtClick(Sender: TObject);
var
f :file of shortstring;
i1 :integer;
str :shortstring;
begin
if savefile.execute then
begin
assignfile(f,SaveFile.FileName);
f_name:= SaveFile.FileName;
rewrite(f);
for i1:= 1 to SlovGrid.RowCount-1 do
begin
str:= SlovGrid.Cells[1,i1];
write(f,str);
end;
closefile(f);
end;
end;
Обработчик нажатия на кнопку «Загрузить». Если пользователь выбрал файл, откуда загрузить новый словарь, то происходит чтение этого файла. Из него (как из типизированного файла) загружаютчя последовательность переменных типа ShortString. Эти данные записываются в таблицу SlovGrid: