StringGrid und das 1 mal 1

[langer hans]

Hallo!
1. Hoffe ich ich bin im richtigen bereich...
2. Habe ich die Suche genutzt aber nicht für mein Problem gefunden

Also ich habe eine Aufgabe bekommen eine 1 mal 1 Tabelle mit einem StringGrid zu realisieren. Ein Klick auf den Button und die werte sollen in der Tabelle stehen.
Da der Lehrer nichts weiter erklärt hat muss das wohl auch mit einer Schleife laufen...
Ich hatte das ja schon so weit allerdings hab ich da für jede Zeile eine Schleife benutzt.
Aber ich bekomm es einfach nicht anders hin.
Mein erster Ansatz sah so aus:

Delphi-Quellcode:

while i<=9 do
begin
i:=i+1;
x:=x+1;
StringGrid1.Cells[i,x]:=inttostr(i*x);
end;

Allerdings bekam ich dann nur die Zahlen zum Quadrat. Ist ja auch logisch. Aber ich komm net weiter und hab echt keine Ahnung was ich noch machen soll... Hoffe ihr helft mir!

MfG

[fwsp]

du brauchst nicht eine schleife, sondern zwei.
die eine geht die zeilen durch und die andere die spalten. wenn du beide schachtelst, sollte das funktionieren.

[NikoMitDaMacht]

Also dass Ganz soll am linken und am oberen Rand sollen die Zahlen 1-9 stehen?

Dazu müsstes du zwei schleifen machen, deren variablen mit einander multiplizieren.

[langer hans]

Ah! Gut vielen dank erstmal. Ich versuch das mal!
Wenn ich nicht mehr weiter komme melde ich mich nochmal.
EDIT: So ist es: Die Zahlen 1-9 sollen oben und links stehen.

Edit2: Egal was ich mache ich bekomme entweder nur eine Zeile oder einmal quer durch...
Ich komm einfach nicht weiter...
Das kann doch net so schwer sein.
Hat vllt. jemand mal nen Code-Schnipsel als Denkanstoss???
Danke nochmal!
MfG

[Klaus01]

Guten Abend,

ein kleiner Ansatz:

Delphi-Quellcode:

for i:=1 to 9 do
  for j:=1 to 9 do
    StringGrid1.Cells[i,j]:=inttostr(i*j);

Grüße
Klaus

[NikoMitDaMacht]

Genau.
In diesem Fall ist es besser eine For-schleife zu verwenden, da diese die variablen selbst um eins erhört.

[Hobby-Programmierer]

Nabend ...,
mit fester Zeile/Spalte sähe es dann so aus

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var iCol, iRow, iFaktor: Integer;
begin
  Faktor:= 1; // 10,20,30...100... evtl. SpinEdit.Value;

  with StringGrid do begin
    FixedCols:= 1;
    FixedRows:= 1;
    iFaktor:= iFaktor -1;

    for iCol:=1 to 10 do begin
      Cells[iCol,0]:= IntToStr(iCol + iFaktor); // FixedCell
      for iRow:=1 to 10 do begin
        Cells[0,iRow]:= IntToStr(iRow + iFaktor); // FixedCell
        Cells[iCol,iRow]:= IntToStr((iCol + iFaktor) * (iRow + iFaktor));
      end;
    end;

  end;
end;

LG Mario

[langer hans]

Danke nochmal hier kann geclosed werden.
Danke für die hilfe!