var i: integer; s: string; begin s:=''; for i:=0 to 999 do s:=s+'a'; for i:= 1 to 400 do memo1.Lines.Add(s); end;这样写,memo1中的内容超过400K,但不出错,你是其它地方搞错了。
var i: integer; s: string; begin s:=''; for i:=0 to 999 do s:=s+'a'; for i:= 1 to 400 do memo1.Lines.Add(s); end;这样写,memo1中的内容超过400K,但不出错,你是其它地方搞错了。
不对啊,netlib的代码显示32段,下面的代码运行后Memo只显示了33段“aaa……”,怎么回事?虽然没有死: procedure TForm1.Button1Click(Sender: TObject); var i: integer; s: string; begin s:=''; for i:=1 to 1024 do s:=s+'a'; for i:= 1 to 400 do memo1.Lines.Add(s); end;
Tmemo Note: Under Win 9x, there is a limit of 64k of text for this controlTrichedit没有限制,用它替换Tmemo吧
i: integer;
s: string;
begin
s:='';
for i:=0 to 999 do
s:=s+'a';
for i:= 1 to 400 do
memo1.Lines.Add(s);
end;这样写,memo1中的内容超过400K,但不出错,你是其它地方搞错了。
i: integer;
s: string;
begin
s:='';
for i:=0 to 999 do
s:=s+'a';
for i:= 1 to 400 do
memo1.Lines.Add(s);
end;这样写,memo1中的内容超过400K,但不出错,你是其它地方搞错了。
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
s: string;
begin
s:='';
for i:=1 to 1024 do
s:=s+'a';
for i:= 1 to 400 do
memo1.Lines.Add(s);
end;
Note: Under Win 9x, there is a limit of 64k of text for this controlTrichedit没有限制,用它替换Tmemo吧
SendMessage(RichEdit1.Handle,WM_USER+53,0,$7FFFFFFF);”
看别人的~~~~~~~~