этот сегмент в моей программе сначала объявляет клиента в текстовом файле (объявленном в общедоступных переменных) и сохраняет его в текстовом файле. onbutton1click — это процедура для поиска строки, которая находится в поле редактирования, и возврата соответствующих сведений о клиенте в памятку. добавление клиента работает нормально и добавляет в текстовый файл, однако, когда я ищу, он ничего не возвращает в заметку, только заголовок заметки, memo1. как я могу решить это? извините, я новичок в этом.
procedure TForm2.btnsaveClick(Sender: TObject);
begin
cusfname:= edit1.text ;
cuslname:= edit2.text;
adress:= edit3.text;
phone:= edit4.text;
password:= edit5.Text;
AssignFile(F, 'Data.txt');
append(F);
WriteLn(F, cusfname);
WriteLn(F, cuslname);
WriteLn(F, adress);
WriteLn(F, phone);
WriteLn(F, password);
CloseFile(F);
end;
procedure TForm2.Button1Click(Sender: TObject);
var
SearchFile : Textfile;
found: boolean;
search: string;
begin
search := edit1.text;
Assignfile(SearchFile, 'data.txt');
Reset(SearchFile);
found:= false;
repeat
found:= search = phone
until eof(searchfile) or found;
if found then
memo1.append(phone);
memo1.append(cusfname);
memo1.append(adress);
if not found then
showmessage('member not found');
end;