was kann ich anstelle von raise noch verwenden ?

[agm65]

hi leute, also ich habe eine fehlerbehebung, in der die fehler durch eine message box definiert werden....ich möchte jetzt aber selbst entscheiden was passiert zB label.caption := 'test'.

case ErrorCode of
10049: raise
ESocketError.Create('error')


kann ich es nicht somachen ?

case ErrorCode of
10049: "run"
label1.caption:='test'

gibt es sowas ?
danke cu agm65

[Ghostwalker]

Code:

Case ErrorCode of
  10049 : label1.caption := 'Fehler 10049';
  10050 : Label1.caption := 'Fehler 10050';
end;

Das funktioniert so. öhm..oder versteh ich da irgendwie was nicht ganz ?

[sakura]

Okay, nach ein wenig ICQ haben wir die gewünschte Lösung gefunden und hier ist sie für alle:

Delphi-Quellcode:

case ErrorCode of 
  10049: begin
    ErrorCode := 0;
    showmessage('test');
  end;
  10061: begin
    ErrorCode := 0;
    showmessage('test');
  end;
end;

Das ErrorCode := 0; unterdrückt das Standard-Fehler-Handling der Komponente und lässt individuelle Botschaften zu ;-)

...:cat:...