Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#5
  Alt 7. Mär 2003, 16:29
Hallo,
ich glaube ihr habt da aneinander vorbeigeredet.
babbruch soll doch eine variable und keine Prozedur oder funktion sein.
Erstelle einfach eine globale variable, die du direkt als false deklarierst, also so:

Code:
var
    vabbruch : boolean = false;

und dann erweiterst du die delay schleife so, wie chris das schon geschrieben hat:

Code:
until ((GetTickCount-lTick>=12*3600*1000) or (bAbbruch));
also einfach die abbruchbedingung, die du im Moment verwendest durch diese hier ersetzen.
Jetzt musst du nurnoch einen Butto erstellen, in dem du deine variable auf true setzt. Das bewirkt, dass der delay unterbrochen wird, und du dein Programm beenden kannst.
Gruß
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat