delphi 下的读写文件

[zerohero]

pascal的读写文件命令（write，read）好像只能在delphi中的控制台程序中使用，如果是Applation程序要读写文件，该怎么做？

[bluebilly]

var
t: textfile;
s: string[100];
begin
Assignfile(T, 'example.txt');
Reset(t);
readln(t, s);
showMessage(s);
closeFile(t);
end;

[Taken]

书上介绍的和楼上说的一样的

不过我习惯用TStringList的LoadFromFile和SaveToFile方法

[ahjoe]

用TFileStream也很方便

[swayi21]

var
TxtFile: TextFile;
StrTemp: string;

AssignFile(TxtFile,'D:\YU\Yu.Yu');
Reset(TxtFile);
Readln(TxtFile, StrTemp);
CloseFile(TxtFile);


AssignFile(TxtFile,'D:\YU\Yu.Yu');
Rewrite(TxtFile);
Writeln(TxtFile, StrTemp);
CloseFile(TxtFile);

[fuzhan820]

thanks

[buzuidaoke]

好

[coreblood]

var
Filel:Tstrings

begin
Filel:=Tstringlist.create;
Filel.loadFromFile('c:\text.txt');

showmessage(File.strings[0]);

Filel.savetoFile('*****.txt');

Filel.Free;
end;