Question

我有一个名为profile.txt的文本文件，其中包含类似这样的数据

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

在我的表单中有一个名为edtId和find按钮（btnFind）的文本框和一个备忘录字段。单击查找按钮时，相应的数据应显示在备忘录上。感谢

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（index）删除所有其他行。

如何从文本文件中读取数据并将其显示在备注字段上？

1 个答案: