Zitat von
Neotracer64:
...
Delphi-Quellcode:
If not (movedone = 2)
Then begin
.
If Windows.MessageBox(
Handle,s1,s2,MB_ICONINFORMATION) = IDOK
Then movedone:=2;
s1:='
';
s2:='
';
movedone:=2;
.
end;
end;
...
Wenn ich das richtig sehe wird movedone doch in jedem Fall auf 2 gesetzt. Egal was in der Messagebox gemacht wird.
Eventuell ist dies wieder ein Beispiel das es vorteile hat den Code so zu formatieren das man Begin-End-Blöcke erkennt bzw. diese bei jeder IF-THEN Abfrage zu verwenden
Stephan B.
"Lasst den Gänsen ihre Füßchen"