Out Of Memory 怎么办啊！

[s_x_d]

var
S: string;
vStringList: TStringList;
begin
Screen.Cursor := crHourGlass;
Button2.Enabled := False;
vStringList := TStringList.Create;
try
S := '';
Table1.Open;
while not Table1.Eof do begin
S := S + Table1.FieldByName('序号').AsString +',';
S := S + Table1.FieldByName('所号').AsString +',';
S := S + Table1.FieldByName('票号').AsString +',';
S := S + Table1.FieldByName('消费金额').AsString +',';
S := S + Table1.FieldByName('消费日期').AsString +',';
vStringList.Add(s);
Table1.Next;
end;
vStringList.SaveToFile('pq.txt');
finally
Screen.Cursor := crDefault;
Button2.Enabled := True;
vStringList.Free;
end;
end;
上面的程序在执行的过程中报错 “Out Of Memory” 这个table1有2万左右条记录！

[很土]

何必这样呢？每一条记录写一次文件就行了。

[s_x_d]

u*:)P

[nne998]

你好象没有清空s，应该：

while not Table1.Eof do begin
S:=''; // <---------加上这句。
S := S + Table1.FieldByName('序号').AsString +',';

[nne998]

如果象我说的清空了s之后还出现的话，干脆直接操纵文件，肯定行，这样：


var
S: string;
F : TextFile;
begin
Screen.Cursor := crHourGlass;
Button2.Enabled := False;

AssignFile(F, 'pq.txt');
{$I-}
Rewrite(F);
{$I+}

try
Table1.Open;
while not Table1.Eof do begin
S := '';

S := S + Table1.FieldByName('序号').AsString +',';
S := S + Table1.FieldByName('所号').AsString +',';
S := S + Table1.FieldByName('票号').AsString +',';
S := S + Table1.FieldByName('消费金额').AsString +',';
S := S + Table1.FieldByName('消费日期').AsString +',';

WriteIn(F,S); //<------写

Table1.Next;
end;
finally
Screen.Cursor := crDefault;
Button2.Enabled := True;
end;


closefile(F);

end;

[zhu_lj]

楼上的，是高手啊
喜欢魂都罗吧

[DDGG]

沙罗漫蛇的密码也差不多啊：D