Exception Fehlercode nicht sichtbar

[Christian18]

Hallo,

beim erzeugen einer Exception wird bei mir nicht der gewünschte Fehlercode ausgegeben.

So erstelle ich meine Exception:

Delphi-Quellcode:

procedure TBsp.keineahnung();
  var e: Exception;
begin
  if DBisFull() then
    begin
      raise e.Create('Fehler 000000');
    end
  else
    begin
      ...
    end;
end;

Statt "Fehler 000000" bekomme ich "Exception TClassName in Modul Projekt1.exe bei 000520DD".

[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]

[DeddyH]

Und ohne die Variable?

Delphi-Quellcode:

procedure TBsp.keineahnung();
//var e: Exception;
begin
  if DBisFull() then
    begin
      raise Exception.Create('Fehler 000000');
    end
  else
    begin
      ...
    end;
end;

[Christian18]

Hallo,

ohen Variable funktioniert es. Vielen dank.

[Bernhard Geyer]

Zitat:

Zitat von Christian18

Hallo,

ohen Variable funktioniert es. Vielen dank.

Die Variable ist nicht das Problem. Du hast vergessen die Exeption-Klasse zu erzeugen!

[Blup]

Genau, geht im Prinzip auch mit Variable.

Delphi-Quellcode:

e := Exception.Create('Fehler 000000');
raise e;

[himitsu]

Zitat:

Zitat von Blup

Genau, geht im Prinzip auch mit Variable.

Delphi-Quellcode:

e := Exception.Create('Fehler 000000');
raise e;

das ist aber das Selbe wie das

Delphi-Quellcode:

raise Exception.Create('Fehler 000000');

und entspricht nicht den Definition "es geht auch mit einer Vatiable",

denn damit war sowas gemeint

Delphi-Quellcode:

e := Exception.Create('');
...


raise e.Create('Fehler 000000')