如何向一个文本文件增加数据,不要说要先把文件读到TStrings哦.

[imchk6]

分数太多了, 小问题大分数.
:)

[CeleronII]

var
FileText :TextFile;
begin
AssignFile(FileText,'a.txt');
rewrite(FileText);
WriteLn(FileText,'数据');
CloseFile(FileText);
end;
具体的你再变通一下就可以了

[m_leaner]

write,writeln

[票票飞扬]

var
sFile :String;
tFile :TextFile;
begin
sFile := 'C:\a.txt';
AssignFile(FileText,sFile);
if FileExists(sFile) then
Append(tFile)
else
ReWrite(tFile);
WriteLn(tFile,'增加数据');
CloseFile(tFile);
end;

[m_leaner]

别忘记EOF

[和码帮主]

Append,write