procedure TForm1.Button1Click(Sender: TObject);
var
Form1: TForm1;
fs: TFileStream;
FileNote:TStrings;
begin
FileNote:=TStringList.Create;
FileNote.LoadFromFile('f:\myapp\t2\sss.txt');
showMessage('文件的第一行:'+FileNote[0]);
FileNote.Free;
end;
=======================================================
你可以加一个循环,遇到<a>开始,</a>结尾
var
Form1: TForm1;
fs: TFileStream;
FileNote:TStrings;
begin
FileNote:=TStringList.Create;
FileNote.LoadFromFile('f:\myapp\t2\sss.txt');
showMessage('文件的第一行:'+FileNote[0]);
FileNote.Free;
end;
=======================================================
你可以加一个循环,遇到<a>开始,</a>结尾
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货