Question

delphi 如何将一个TXT中指定关键字的记录显示到界面上

用一个edit输入关键字，然后将查找到的记录显示在一个label上

如，查找李四或002，就将李四的那行记录都显示出来，
请尽量用代码说明。
delphi新手，分不多，希望高手能帮帮忙！谢谢！
如果能有文件操作这块的详细教程、视频什么的能发给我那是最好了，嘿嘿。

Answer 1

窗体上放如下控件：

1个Edit1      用于接收用户输入关键字

2个Memo    Memo1用于加载文本内容   Memo2用于显示搜索到的结果行

2个button    bitbtn1用于搜索                 bitbtn2用于加载文本文件到Memo1   

1个OpenDialog[OPD1]    用于打开文件

代码如下：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Memo1.Lines.Clear;
  Memo2.Lines.Clear;
  OPD1.Filter:='(文本文档)*.txt|*.txt';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  If OPD1.Execute then begin
    Memo1.Lines.Clear;
    Memo1.Lines.LoadFromFile(OPD1.FileName);
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F: TextFile;
str: string;
begin
  If ((Trim(Edit1.Text)='') or (OPD1.filename='')) then Exit;
  Memo2.lines.Clear;
  Assignfile(F, OPD1.filename);
  Reset(F);
  While Not EOF(F) do begin
    Readln(F, str);
    If Pos(Trim(Edit1.Text), str)>0 then Memo2.Lines.Add(str);
  end;
end;

追问

能不能实现不用一个memo过渡，直接从文本中读出查找的信息呢？

追答

我这里放的Memo1只是给你看文档中的内容~
并不参与数据的处理！
实际查找只是[Search This]这个按钮里面的代码！
我无语了。。。。。

追问

额，好吧，我是初学者。不过还是谢谢你。

Answer 2

可以实现的，科密考勤机的U盘导入指纹记录就是文本文件。但是要把这个问题描述清楚，三言两语，肯定不行，得半天讲。你如果使用ADO+ACCESS，这就好办了。建议学习编程，先从容易并且通用的开始，文本文件保存数据不是不行，而是用起来不方便，等你会了之后，你就会觉得用文本文件来存取数据实在是荒唐可笑，因为SQL实在是太神通广大了，但是文本文件是不能使用SQL（结构化查询设计语言）来操纵的。不过文本文件在编程中也不是毫无用处，临时导出一个数据、写写INI文件、显示一下数据库的长字符串，还是可以的。