Max Stringlen von Stringgrid.Cell

[wschrabi]

Danke, ja ich weiss.. aber es ist ein TEXT der sehr variable sein kann von 1 - 7000 Zeichen.
Ich hab es jetzt in ein MEMO copiert, da zeigt er alles an. Dh in der Celle ist es drin,nur wird
am Screen in dem STringgrid nur eine leere Zeile sichtbar.
KOmisch nicht? Wenn die Note ca 200 Zeichen lang ist, klappt es wunderbar.

Danke für Deinen RAT:
mfg
ws

[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.

[peterbelow]

Das VCL TStringgrid hat keinen Limit für die Länge des Textes in einer Zelle. Enthält dein Text vielleicht #0 oder einen Zeilenumbruch? Ist das Grid read-only oder editierbar? Wenn letzteres, goAlwaysShowEditor in Options oder nicht? Erscheint der Text wenn Du die Zeilenhöhe vergrößerst?

[wschrabi]

dANKE AN ALLE:
Ja das Cell ist editierbar und man kann reinspringen, da erscheint dann eine zeile.
Ich muss testen ob da linebreaks drin sind. DAnke euch für Eure kompetante Antwort.
mfg

[wschrabi]

Hallo leute.
Also ich komm da nicht weiter. Ich habe hier ein DEMO mit einem TXT File.
Bei einem Button wird das TXT in das MEMO geladen und dann beim 2. Button in das Stringgrid.
Wenn man dann in das Stringgrid hüpft ist es nicht eine ZEile sondern abgeschnitten.
WIESO?

[Delphi.Narium]

memo1.text endet immer mit 'nem Zeilenumbruch. Ansonsten scheint der Text keine Sonderzeichen zu enthalten.

Was passiert bei

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
// einmaliges Zuweisen dürfte reichen.
//   for i := 0 to 8000 do
//      begin
      stringgrid1.cells[1,1]:=Trim(memo1.text);
//      end;
end;

Bei Delphi 7 tritt der von Dir genannte Effekt auf, sobald im Text ein Zeilenumbruch enthalten ist. Man sieht in der Zelle quasi immer das Ende des Textes und das ist bei memo1.text halt ein Zeilenumbruch. Und wenn man den sieht, sieht man eben nix.
Mal die Optionen des Stringgrids ändern, so dass wie Höhe und Breite der Zellen verändert werden kann. Dann müsste irgendwann auch Text in der Zelle zu sehen sein.