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