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