如何用DELPHI读取文本文件的最后一行
答案:2 悬赏:40 手机版
解决时间 2021-02-01 23:00
- 提问者网友：藍了天白赴美
- 2021-02-01 02:57
如何用DELPHI读取文本文件的最后一行
最佳答案
- 五星知识达人网友：蓝房子
- 2021-02-01 04:23
turbo_pascal代码：
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
end.
－－－－－－－－－－－－－－－－－－－－－－－－
delphi_pascal代码：
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
readln;
end.
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
end.
－－－－－－－－－－－－－－－－－－－－－－－－
delphi_pascal代码：
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
readln;
end.
全部回答
- 1楼网友：一袍清酒付
- 2021-02-01 05:09
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;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯