Zellen in StringGrid vor Run-Time ausfüllen

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