如何在文件里搜索字符串,并将该字符串前的所有byte(包括各种控制符号,如回车,换行符)读入内存? 请给出简单的程序过程。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如文件不大、建议先読入到内存(如:TStringList)、然後再作搜索!procedure TForm1.Button1Click(Sender: TObject);var lstfile : TStringList; filename: String;begin filename := ExtractFilePath (Application.ExeName) + 'UserFile.txt'; lstfile := TStringList.Create; try lstfile.LoadFromFile(filename); showMessage(lstfile.Text); ... finally lstfile.Free; end;end; TStringGrid如何只固定某一列 有关视频会议协议穿越NAT和网守的问题 问了三遍都没人回答的问题 请教一个概率问题 谁有全国各县/市的邮政/区号数据库? 这是加分开帖. delphi中使用opencv进行bmp转pIplimage的问题. 请问各位大虾:怎么调用dll文件中的菜单资源?在线等待... 十万火急,程序退出有时出现非法关闭(SETUPAPI.DLL出错) 指针释放问题! 建立了三个listview,怎么实现三个控件的滚动条同步滚动? 请教高手关于:“利用Delphi编写IE扩展” 怎样解决lookup 段,浏览速度慢的问题????
var lstfile : TStringList;
filename: String;
begin
filename := ExtractFilePath (Application.ExeName) + 'UserFile.txt';
lstfile := TStringList.Create;
try
lstfile.LoadFromFile(filename);
showMessage(lstfile.Text);
...
finally
lstfile.Free;
end;
end;