Курсовая работа: Создание программы-переводчика текстов с английского на русский язык

if richedit1. Lines[i]<>'' then

for j:=0 to memo1. Lines. Count-1 do

begin

memo1. Lines[j]:= richedit1. Lines[i]; // заполняем memo1

end;

for j:=0 to memo1. Lines. Count-1 do

memo1. Lines[j]:=lowercase (memo1. Lines[j]); // переводим текст memo1 в нижний регистр

if memo1. Text<>'' then

begin

for g:=0 to memo1. Lines. Count-1 do

memo1. Lines[g]:=lowercase (memo1. Lines[g]); // переводим текст memo1 в нижний регистр

goto 1;

end;

1: end;

procedure TForm1.N3Click (Sender: TObject);

begin

if saveDialog1. Execute then

begin

EdFile:=SaveDialog1. FileName; // сохранениеперевода

memo2. Lines. SaveToFile(EdFile);

if richedit2. Modified then memo2. Modified:=False;

end;

end.