Sicherstellen das Procedure abgearbeitet wurde

[Andreas13]

Hallo Int3g3r,
z.B. so:

Delphi-Quellcode:

Function Block1: Boolean;
begin
  Block1:= False;
  // mach was..
  ...
  Block1:= True;
end;

Procedure Block2
begin
  // mach was.. aber Block1 muss abgearbeitet sein.
end;
... 

//warten.. sicherstellen daß Block1 fertig ist
MassageBox('Bitte warten etc.');

IF Block1 Then Block2;

Gruß, Andreas