Question

delphi读取文本文件

文本文件里是很多电话的通话记录，我想在delphi里做这个功能，录入电话号码，去检索文本文件中的这个电话号码，然后把这个号码下面10行的通话记录拷贝出来到memo中

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
tmplist: tstringlist;
i, j: integer;
tel: string;
begin
tel := '1300000000'; //指定电话号码 如果用edit1控件则改成 edit1.text
tmplist := tstringlist.Create; //创建
tmplist.LoadFromFile('文件路径'); //载入文本，路径自行确定
for i:= 0 to tmplist.Count - 1 do //循环
begin
if pos(tel, tmplist.Strings[i]) > 0 then //当查到电话号码所在行时
begin
j := 1;
while j < 11 do //循环10次
begin
memo1.lines.add(tmplist.Strings[i + j]); //将后10行记录写入memo
inc(j); //j递增1
end;
break;
end;
end;
tmplist.Free;
end;

//由于文本文件的内容示例没有，不知道排列，只能大致写一个，楼主可以根据文本的排列规则进行修改，不明处可以追问

Answer 2

例程很多的。