Exception in Funktion einbauen...

[mirage228]

Delphi-Quellcode:

type
  EWrongText = class(Exception) end;

function test(text: string): boolean;
begin
  if text = 'hallo' then result:=true else 
  begin
    result :=false;
    raise EWrongText.Create('Text nicht richtig');
  end;
end;

so z.B.

mfG
mirage228