var
myFile : TextFile;
text : String;
sFileName : String;
begin
sFileName := 'F:/test.txt';
AssignFile(myFile, sFileName);
if FileExists(sFileName) then
Append(myFile)// 以追加的方式打開文件
else
ReWrite(myFile);
Writeln(myFile, 'Hello World, By Bob!');
Writeln(myFile, FormatDateTime('yyyy/mm/dd hh:nn:ss', now));
CloseFile(myFile);
ReSet(myFile);
while not Eof(myFile) do
begin
Readln(myFile, text);
showmessage(text);
end;
CloseFile(myFile);
end;
posted on 2010-02-09 15:42
Ke 閱讀(291)
評論(0) 編輯 收藏 所屬分類:
delphi