Problem mit for Schleifen

[citybreaker]

Hallo,

ich habe da mal wieder ein Problem. Unzwar will ich mit 3
for schleifen folgendes in eine Memo schreiben.

Zitat:

k1X=1
k1Y=1
k1I=2
k2X=2
K2Y=1
K2I=1

Dazu habe ich folgendes gemacht:

Delphi-Quellcode:

var i,j,k: integer;
begin
  for i := 0 to 26 do
    for j := 0 to 36 do
      for k := 1 to SteinZahl do begin
        if Steine[i,j].Visible = true then begin
          MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'X='+IntToStr(i*37));
          MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'Y='+IntToStr(j*18));
          MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'I='+IntToStr(Steine[i,j].typ));
        end;
    end;
end;

Nun das Problem. Wenn ich das ganze ausführe steht in meiner Memo

Zitat:

k1X=1
k1Y=1
k1I=2
k2X=2
K2Y=1
K2I=1
k1X=1
k1Y=1
k1I=2
k2X=2
K2Y=1
K2I=1

[arbu man]

Welchen Wert hat Steinzahl in der Schleife

[citybreaker]

Das kommt immer ganz drauf an wie viele Steine es gibt.

[Yan]

Das kann wohl nur an der SteinZahl liegen...
Die hat wohl im Moment den Wert 2. Dadurch wird der Code

Delphi-Quellcode:

MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'X='+IntToStr(i*37));
MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'Y='+IntToStr(j*18));
MainFrm.SynMemo.Lines.Add('k'+IntToStr(k)+'I='+IntToStr(Steine[i,j].typ));

in der IF-Schleife zwei mal ausgeführt.

Bis dann,

[EDIT]Wieder zu langsam...[/EDIT]

[citybreaker]

Wie kann ich das machen, dass die if Schleife einmal durchlüft und
ich trotzdem amschluß

k1X=..
k1Y
k1I
k2X
k2Y
k2I
usw. jenachdem wieviele Steine es gibt


habe?

[glkgereon]

und sind die visible?

weil da müsste ja sonst mehr drinstehen in der memo.....

[citybreaker]

Also, da stehen nur die Steine drinne die Visible := true sind.
Und jenachdem wie viele Steine es gibts, steht das alles doppelt,
dreifach oder noch öfters drinne.