救急：这样写怎么出错 ( 积分: 30 )

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #1

1 ForceDirectories('e:/operview参数备份');
2 AssignFile(F, 'e:/operview参数备份/Readme.txt');
3 Append(F);
4 Writeln(F, t);
5 memo1.Lines.SaveToFile('e:/operview参数备份/Readme.txt');
t:=FormatDateTime('yyyy-mm-dd hh-mm-ss',Now);

这样写为什么出错啊？我把2 3 4 去掉，就可以运行了，但是我需要把时间写到第一行。
如：2007-04-13
abc
dedeede
这样的格式。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #2

1，文件打开没有关闭
2，即使关闭了，你先写入的内容也会被覆盖
3，你不如把日期时间插入Momo1，然后SaveToFile

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #3

ForceDirectories('e:/operview参数备份'');
with TStringList.Create do
try
{ Add(FormatDateTime('yyyy-mm-dd hh-mm-ss',Now));
AddStrings(Memo1.Lines);
SaveToFile('e:/operview参数备份/Readme.txt'); }

Text := Memo1.Text;
Insert(0, FormatDateTime('yyyy-mm-dd hh-mm-ss',Now));
SaveToFile('e:/operview参数备份/Readme.txt');
finally
Free;
end;

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #4

我开始也关闭了，不是覆盖，是出错，
弱弱问下：怎么样把日期时间插入Momo1，不想从界面输入时间。

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #5

谢谢

 

X

xhj12077021

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #6

谢谢

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #7

用Insert

 

域

域

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-13

• #8

不想从界面输入时间，那就用tstringlist
定义两个tstringlist，一个用来读入你原来文件里的内容，第二个先add你的新日期，然后再把第一个里的内容add到第二个里，第二个savetofile就行了