Max Stringlen von Stringgrid.Cell

[hoika]

Hallo,
hm, also bei mir geht's.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


procedure TForm1.FormCreate(Sender: TObject);
var
  sString: String;
  iChar: Integer;
begin
  sString:= '';
  for iChar:= 1 to 600 do
  begin
    sString:= sString+'123456789';
  end;
  StringGrid1.Cells[0,0]:= sString;
  StringGrid1.Colwidths[0]:= 1000;
end;

[TurboMagic]

Zitat von hoika:

Hallo,
hm, also bei mir geht's.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


procedure TForm1.FormCreate(Sender: TObject);
var
  sString: String;
  iChar: Integer;
begin
  sString:= '';
  for iChar:= 1 to 600 do
  begin
    sString:= sString+'123456789';
  end;
  StringGrid1.Cells[0,0]:= sString;
  StringGrid1.Colwidths[0]:= 1000;
end;

Gut, dass es bei dir geht. Nur in welchem Delphi?
Vielleicht einem neueren als Seattle, das der OP benutzt?

[hoika]

Hallo,
das war gerade D2007 ...

[Delphi.Narium]

Bei Delphi 7 geht das auch, solange nicht am Anfang eines Textes ein Zeilenumbruch steht, dann sieht man da auch nix.

Es wäre also mal interessant zu erfahren, ob es sich bei den bis zu 7000 Zeichen langen Texten um Einzelier handelt oder um "richtige" Texte, also irgendwas mit ..,- und Zeilenumbrüchen und ggfls. irgendwelchen Formatierungen ...

[hoika]

Hallo,
#TurboMagic,
das war ein Minimal-Beispiel, was der Tread-Ersteller einfach mal testen soll.
Der nächste Eintrag von #Delphi.Narium zeigt ja mögliche "Fehler" auf.

Ich wollte erst mal nur verhindern, dass jemand dem armen TStringGrid die Schuld gibt,
dass bestimmten Daten nicht angezeigt werden.