Zitat von
elcomportal:
ok wird scheinbar nie 1 und das Programm lässt sich nicht mehr bedienen / schliessen.
Kunststück, da es in dieser Schleife festhängt:
Delphi-Quellcode:
while ok=0 do // so lange wie ok 0 ist nichts machen
begin
end;
ein
Application.processmessages;
zwischen
begin und
end sollte bei einer globalen Variablen abhilfe schaffen.
Der
Daniel