在TXT文件中查找指定字符串并显示指定字符串所在行的内容

var   dir: string;   FileNameList, StrList, FileList: TStringList;   i, x: Integer;   //F: TextFile;   TS: string; begin    dir := trim(edt_ScriptPath.Text);    FileNameList := TStringList.Create;   

>>阅读原文<<