Einzelnen Beitrag anzeigen

citybreaker
(Gast)

n/a Beiträge
 
#1

Problem mit for Schleifen

  Alt 2. Jan 2005, 10:33
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
  Mit Zitat antworten Zitat