DELPHI 读取文本文件的最后一行,示例代码如下:
procedure TForm2.Button1Click(Sender: TObject)var
StrLst:TStringList
begin
StrLst:=TStringList.Create
StrLst.LoadFromFile('D:\text.txt')
ShowMessage(StrLst[StrLst.Count-1])
StrLst.Free
end
欢迎分享,转载请注明来源:内存溢出
DELPHI 读取文本文件的最后一行,示例代码如下:
procedure TForm2.Button1Click(Sender: TObject)var
StrLst:TStringList
begin
StrLst:=TStringList.Create
StrLst.LoadFromFile('D:\text.txt')
ShowMessage(StrLst[StrLst.Count-1])
StrLst.Free
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)