テキストファイルからデータを読み取り、それをメモフィールドに表示する方法は？

Question

私は私のフォームでこの

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

のようなデータが存在edtIdと呼ばれる1つのテキストボックスを持って、検索ボタンをクリックしてくださいfield.Whileボタン（btnFind）、およびメモを見つける含まれていprofile.txtというテキストファイルを持っています対応するデータがメモに表示されます。 ありがとう

Answer 1

次のprocはメモ内の文字列を選択します。 テキストファイルをメモに読み込むには、単に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; 

あなたは、単に、テキスト1行だけを表示し、そのプロシージャ内の行のインデックスを保存し、Memo1.Lines.Delete（インデックス）を使用して、他のすべての行を削除する必要がある場合。