60分求 读取TXT的第一行,读完后删除TXT里的第一行!谢了!!!!!!!!!!!
60分求 读取TXT的第一行,读完后删除TXT里的第一行!
比如C:\1.txt
1.txt里的内容是 111
222
333
444
那么我需要读到这个TXT里的111,保存到我的STRING变量里,然后删除这个TXT里的111,并且TXT第一行不要为空
这时候的1.TXT是 222
333
444
求代码 谢谢
[解决办法]
var
s: string;
begin
with TStringList.Create do
try
LoadFromFile('C:\1.txt');
s := Strings[0];
Delete(0);
SaveToFile('C:\1.txt');
finally
Free
end;
end;