delphi 怎么从.log中快速提取出需要的信息

2025-03-01 15:53:17

推荐回答（2个）

回答1：

如果log没有很大，可用TMemo载入，
底下是查找百度的范例：

procedure TForm1.btnSearchClick(Sender: TObject);
var
SearchText:string;
k:integer;
begin
SearchText:=edit1.Text; //查找edit1中输入的文本
k:=pos(SearchText,memo1.Text); //求出首次出现SearchText的位置
if k=0 then
showmessage('找不到')
else
begin
memo1.SelStart:=k;
memo1.SelLength:=length(SearchText);
memo1.SetFocus; //这一句很重要，否则就会看不到文字被选中
end;
end;

http://zhidao.baidu.com/question/143080728.html

回答2：

看你 Log的格式啊