Hallo,
ich nochmal.
Ich gehe immer noch davon aus, dass im Array Lebensform1
nicht alle Elemente initialisiert wurden denn woher sollten
sonst Werte von -53433 für .ix kommen.
(siehe Bild im Anhang).
Damit die Procedure bewegen von diesem Wert auf einen
Wert > 1 kommt, da geht schon einige Zeit ins Land.
Delphi-Quellcode:
procedure Bewegen(var Objekt: TLebensform);
var i: integer;
begin
repeat
case random(3) of
0: Objekt.ix := Objekt.ix - 1;
1: Objekt.ix := Objekt.ix;
2: Objekt.ix := Objekt.ix + 1;
end;
until Objekt.ix > 1;
repeat
case random(3) of
0: Objekt.iy := Objekt.iy - 1;
1: Objekt.iy := Objekt.iy;
2: Objekt.iy := Objekt.iy + 1;
end;
until Objekt.iy > 1;
end;
Wenn das Problem nicht behoben wird, nützt auch ein Thread nichts.
Grüße
Klaus