Курсовая работа: Разработка программы на Delphi

Memo2.Lines.Text:='';

readln(F,s); // опять считывается

while s<>'***' do begin // цикл с предусловием.

Memo2.Lines.Text:=Memo2.Lines.Text+s; // в Memo дописываются данные из переменной s

readln(F,s); // считывается строка из файла в переменную S

end;

CloseFile(F); // закрытие файла

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

Memo2.LINES.Text:='Работает'

end;

procedure TForm1.Button2Click(Sender: TObject);

var stroka, s: string;

label W;

begin

stroka:=Edit3.Text; // присвоить переменной текст из поля Edit3

AssignFile(F, '1.txt'); // привязка текстового файла к файловой переменной F

Reset(F); // открытие файла F для чтения

Repeat // цикл с постусловием. в переменную S считываются строки из файла до тех пор, пока строка в файле не совпадёт с выбранным элемнтом в ComboBox

readln(F,s);

if seekEof(F) then begin // условие о совпадении

Edit3.Text:='Компонент не найден или вы ошиблись в написании!!!!'; // если не совпадет то вывести надпись

goto w;

end;

until s='***'+stroka+'***';

Memo2.Lines.Text:=''; // очищение поля Мемо2

readln(F,s); // опять считывается

while s<>'***' do begin // цикл с предусловием.