Question

delphi7中string的长度不够怎么办

Answer 1

var
Form1: TForm1;
s: string ;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var i: Integer ;
begin
Timer1.Enabled := False ;
try
for i := 0 to 100000 do
s := s + '12323132123131321313213145655655564554565654665564' ;
except
label1.Caption := FloatToStr(Length(s) );
Exit ;
end ;
label1.Caption := FloatToStr(Length(s) );
Timer1.Enabled := True ;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Timer1.Enabled := CheckBox1.Checked ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s := '' ;
end;