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

[sniper_w]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n, num:Integer;
begin
  n := 1;
  num := 0;
  for i:=0 to 10 do
  begin
    num := num + n;
    ListBox1.Items.Add(IntToStr(num));
    n := n + 1;
  end;
end;

[tomik]

Thx..eine Frage was ist

ListBox1.Items.Add(IntToStr(num));?

bzw kann man das auch irgendwie anders schreiben?

Und kann ich das auch mit for i:=0 to 9 do StrGrdArray01.Cells[i,0]:=InttoStr(MeinArray[i]); machen?

Tomik

[fkerber]

Hi!

Eine Listbox ist eine visuelle Komponente, eben eine Box, die eine Liste von Strings beherbergt...
Sie dient also sozusagen der Ausgabe.
Zu finden ist die Komponente unter der Registerkarte "Standard".

Ciao Frederic

[tomik]

Thx...das funktioneirt jetzt..

Wie schaffe ich es, dass in ein StringGrid darzustellen?

Tomik

[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