Exception in Funktion einbauen...

[Markus]

Hallo,

ich habe eine Funktion, hier mal ein Beispiel:

Delphi-Quellcode:

function test(text: string): boolean;
begin
if text='hallo' then result:=true
else begin
    result:=false;
    {hier soll jetzt eine Exception erzeugt werden (mit nem Bestimmen Text, z.B. "Text nicht richtig"}
end;
end;

Wie kann ich sowas nun realisieren?

[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