var str:array of string; i:Integer; j:Integer; begin SetLength(str,1); for i:=0 to 4 do begin j:=Length(Str); SetLength(str,Length(str)+1); Str[Length(Str)]:='xxxx'; end; ShowMessage(str[0]); ShowMessage(str[1]); ShowMessage(str[2]); ShowMessage(str[3]); end;
procedure TForm2.Button1Click(Sender: TObject); var i:integer; begin SetLength(a,200); for I := 0 to 199 do begin A[i]:=Tedit.Create(self); with A[i] do &n ......
