как читать данные из текстового файла и отображать их над полями Memo?

Question

У меня есть текстовый файл с именем profile.txt, который содержит подобные данные

1   Sharon   Jasper   Male
2   Steven   John   Male
3   Mary   Hill   Female

В моей форме есть одно текстовое поле с именем edtId и кнопка поиска (btnFind), а также поле заметки. При нажатии кнопки поиска соответствующие данные должны отображаться в заметке. Спасибо

Answer 1

Следующая процедура выберет строку внутри заметки.Чтобы загрузить текстовый файл в заметку, просто вызовите Memo1.LoadFromFile (filepath);

procedure TForm1.btnFindClick(Sender: TObject);
var i,l,p: integer;
begin
  l := Length(edtId.Text);
  for i := 0 to Memo1.Lines.Count - 1 do begin
    p := Pos(edtId.Text,Memo1.Text);
    if p <> 0 then begin
      Memo1.SetFocus;
      Memo1.SelStart := p-1;
      Memo1.SelLength := l;
      break;
    end;
  end;
end;

, если вам нужно отобразить только одну строку текста, просто сохраните индекс строки внутри этой процедуры и удалите вседругие строки, использующие Memo1.Lines.Delete (index).