Use FileOpen()Open it, use Append to Append data. use FileClose() to close it! To get more info, Just turn to "Delphi Help"!
var strlist: TStringList; begin strlist := TStringList.create; strlist.add('abcd'); strlist.savetofile('d:\test.txt'); strlist.free; end;
1,if Not FileExist(文件完整路径名)Then AssignFile(文件完整路径名) Rewrite(文件名) 2,Append(文件名) Writeln(文件名,写入的东西) 3,CloseFile(文件名)
记得给分: var f:TextFile; begin if FileExists('filename') then //文件存在 begin Assign(f,'filename');//先关联文件 Reset(f); WriteLn(f,'abc'); Close(f); end else //文件不存在 begin Assign(f,'Filename'); ReWrite(f); Writeln(f,'abc'); Close(f); end;
var F: THandle; begin if FileExists('abc.dat') then F := FileOpen('abc.dat', fmShareExclusive) else F := FileOpen('abc.dat', fmCreate); try FileWrite(F, PChar('abc')^, length('abc')); finally CloseHandle(F); end; end;
你可以参考Delphi SDK Help的OpenFile()
你也可以检查一下文件是否存在用FileExists().
自己看看帮助吧。
读写数据时要麻烦一点
To get more info, Just turn to "Delphi Help"!
begin
strlist := TStringList.create;
strlist.add('abcd');
strlist.savetofile('d:\test.txt');
strlist.free;
end;
Rewrite(文件名)
2,Append(文件名)
Writeln(文件名,写入的东西)
3,CloseFile(文件名)
var
f:TextFile;
begin
if FileExists('filename') then //文件存在
begin
Assign(f,'filename');//先关联文件
Reset(f);
WriteLn(f,'abc');
Close(f);
end
else //文件不存在
begin
Assign(f,'Filename');
ReWrite(f);
Writeln(f,'abc');
Close(f);
end;
毫无疑问,VC也肯定有比delphi方便的地方。
F: THandle;
begin
if FileExists('abc.dat') then
F := FileOpen('abc.dat', fmShareExclusive)
else
F := FileOpen('abc.dat', fmCreate);
try
FileWrite(F, PChar('abc')^, length('abc'));
finally
CloseHandle(F);
end;
end;