HA: Array

[pszopp]

Hi,

habe hier mal zwei Beispiele.
Kannst ja das für dich zutreffende ausprobieren.

Delphi-Quellcode:

// Stellt die Zahlen in den Zeilen (Rows) dar. Also von oben nach unten
procedure TForm1.InsertIntoRows;
var lk  : Integer;
    sum : Integer;
begin
  sum := 0;
  for lk := 1 to 10 do begin
    sum := sum + lk;
    StringGrid1.Cells[1, lk] := IntToStr(Sum);
  end; // for lk
end;

// Stellt die Zahlen in den Spalten (Cols) dar. Also von links nach rechts
procedure TForm1.InsertIntoCols;
var lk  : Integer;
    sum : Integer;
begin
  sum := 0;
  for lk := 1 to 10 do begin
    sum := sum + lk;
    StringGrid1.Cells[lk, 1] := IntToStr(Sum);
  end; // for lk
end;

Gruß,
pszopp