HA: Array

[tomik]

Hallo,

ich habe ein Problem ich muss einen Code schreiben d mir folgendes in einem Array ausgibt:

1 3 6 10 15 21 28 36 45 55

d.h. zu der ersten zahl (0) wird 1 addiert, die zweite zahl wird mit 2 addiert und immer so weiter...d.h. 45 +10

Diesen Code habe ich bis jetzt:

Delphi-Quellcode:

procedure TForm1.BtnzeigenClick(Sender: TObject);
var MeinArray : Array[0..9] of integer;
i,z: integer;
begin

 for i:=0 to 9 do MeinArray[i]:=i+1;

 for i:=0 to 9 do StrGrdArray01.Cells[i,0]:=InttoStr(MeinArray[i]);

end;

Ich denke man muss eine zweite For-Schleife einbauen und die zweite Hilfsvariable (z) benutzen...Kann dies nur nicht in die Praxis umsetzen...kann mir jmd. helfen?


Danke
Tomik