텍스트 파일에서 데이터를 읽고 메모 필드에 표시하는 방법은 무엇입니까?

Question

나는 edtId라는 하나의 텍스트 상자를 가지고 버튼 (btnFind를) 찾을 수있을 내 양식이

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

같은 데이터를 포함 profile.txt라는 텍스트 파일을 가지고 있고, 메모 field.While은 찾기 버튼을 클릭 해당 데이터가 메모에 표시되어야합니다. 감사합니다.

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; 

단순히, 텍스트의 한 줄을 표시 해당 프로 시저 내부의 라인 인덱스를 저장하고 Memo1.Lines.Delete (인덱스)를 사용하여 다른 모든 행을 삭제해야하는 경우.