Sicherstellen das Procedure abgearbeitet wurde

[TurboMagic]

Zitat von 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

Hinweis: die Nutzung des Funktionsnamens zur Rückkage des Rückgabewertes der Funktion ist in Delphi
heutzutage nicht mehr üblich. Man würde es result zuweisen: result := false; usw.