Funktion auf Erfolg testen

[Steve]

Hi,

versuchs mal u.U. mit nem VAR-Parameter:

Delphi-Quellcode:

FUNCTION MeineFkt(a,b,c:TMeineParameter; VAR Success : Boolean) : TMeinRueckgabeWert;

// Anwendung:
...
VAR Erfolg : Boolean;
..
Erfolg := FALSE;
Ergebnis := MeineFkt(1,2,3,Erfolg);
IF Erfolg THEN
BEGIN
  ...
END;

In "MeineFkt" muss dann Success:=True; gesetzt werden, wenn alles erfolgreich abgearbeitet wurde.
Oder alternativ OUT statt VAR


Gruß
Stephan