Delphi 7
dashier funktioniert:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
s : String;
begin
stringgrid1.ColWidths[0] := 10000;
for i := 0 to 1024 do begin
s := s + Chr((i mod 10) + 48);
end;
stringgrid1.Cells[0,1] := s;
end;
Als Ergebnis erhalte ich dieses:
Code:
01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
Statt 1024 funktioniert das 10fache auch problemlos.