Zellen in StringGrid vor Run-Time ausfüllen

[Borti]

Guten Morgen,
Gibt es eine Möglichkeit die Zellen, Zeilen oder Spalten eines TStringGrids vor der Laufzeit auszufüllen? (Sonst muss mein Programm dieses immer beim Programmstart vornehmen)
Gruß,
Borti

[mschaefer]

Moin moin,

klare Antwort: Mit der Borland-Komponente StringGrid geht das definiv nicht. Du könntest allerdings eine Komponente ableiten wo Du entweder für eine gewisse Anzahl Zeilen TStrings-Eigenschaften Implmentierst die dann als Published Property angelegt sind. Odr Du lädtst die Zeilen bei Programmstart aus einem Ini-File eventuell Ressource aus.

Grüße // Martin


PS: Mir ist aktuell keine Komponente bekannt, die den Gridinhalt zur Designtime festlegen kann (jemand anders?)

[Borti]

Danke,
Borti

[Lannes]

Hallo,

dafür kann man u.a. ein zweidimensionales Array of String als Konstante verwenden.
Das Array kann dann mit einer verschachtelten Schleife innerhalb FormCreate ins StringGrid geschrieben werden.
Ein Beispiel:

Delphi-Quellcode:

implementation

{$R *.DFM}
const SGinitial : array [0..3,0..4] of String =
                   (('','Spalte 1','Spalte 2','Spalte 3','Spalte4'),
                    ('Zeile 1','der','die','das',''),
                    ('Zeile 2','','','',''),
                    ('Zeile 3','','','',''));

procedure TForm1.FormCreate(Sender: TObject);
var x,y : Integer;
begin
  for y := 0 to High(SGinitial) do
    for x := 0 to High(SGinitial[y]) do
      StringGrid1.Cells[x,y] := SGinitial[y,x];
end;