问一个比较菜的问题，怎么把一个1MB大的字符串存为文件？(50分)

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #1

问一个比较菜的问题，怎么把一个1MB大的字符串存为文件？要求是不用任何控件。
我用了这样的代码，但是不能用。
var f:tstrings;
begin
f:=tstrings.create;
f:=aa; //aa是一个1MB大的字符串
f.savetofile('c:/1.dat');
f.free;
end;

各位给个办法吧。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #2

f:TStringList;
begin
...
f.text:=a;
f.SaveToFile('c:/1.dat');

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #3

更节省内存、更快的办法：
var
fh:integer;
fh:=_lcreat('c:/1.dat',0);
_lwrite(fh,PChar(a),Length(a));
_lclose(fh);

 

F

fanren945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #4

谢谢两位，问题解决了，发分啊。