Question

delphi语言简单删除txt中第一行 程序

就是运行一次 删除第一行 就对一个txt文件操作就行

Answer 1

//将数据先读入内存然后重新写入文件就可以了；
//文件比较大建议用拷贝文件方式；
//
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
sfile:TStrings;
filename,s:string;
i:Integer;
begin
filename:='需要处理问题';
if FileExists(filename) then
begin
sfile:=TStringList.Create;
AssignFile(f,filename);
Reset(f);
while not Eoln(f) do
begin
Readln(f,s);
sfile.Add(s);
end;
Rewrite(f);
for i := 1 to sfile.Count-1 do
begin
writeln(f,sfile.Strings[i]);
end;
CloseFile(f);
sfile.Free;
end;

end;