Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Exception klappt nicht


bbfan - Mo 13.08.07 18:52
Titel: Exception klappt nicht
Hallo!

Ich habe folgende Exception gebastelt:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
try
...
except
   on E: Exception do
     begin
     temp:=E.Message;
     addErr('ERR 3: '+temp+'->ACC: '+ ftp.Username);
     disconnect();
    end;
end;


Beim Debuggen führt er lediglich "temp:=E.Message" aus, den Rest ignoriert er... Was soll das denn?


Narses - Mo 13.08.07 19:04
Titel: Re: Exception klappt nicht
Moin!

Probier das mal so:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
try
...
except
  addErr('ERR 3: '+Exception(ExceptObject).Message+'->ACC: '+ftp.Username);
  disconnect();
end;

cu
Narses


dummzeuch - Mo 13.08.07 21:37
Titel: Re: Exception klappt nicht
Hi,

user profile iconbbfan hat folgendes geschrieben:
Hallo!

Ich habe folgende Exception gebastelt:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
try
...
except
   on E: Exception do
     begin
     temp:=E.Message;
     addErr('ERR 3: '+temp+'->ACC: '+ ftp.Username);
     disconnect();
    end;
end;


Beim Debuggen führt er lediglich "temp:=E.Message" aus, den Rest ignoriert er... Was soll das denn?


Ist das da wirklich der Code, den du verwendest? Du hast nicht evtl. einfach das Begin/End vergessen?

twm


bbfan - Mo 13.08.07 22:15

das erster werde ich mal ausprobieren.

begin und end fehlen nicht...


Delete - Mo 13.08.07 22:41

Lass das ganze mal ohne Debugger laufen.


bbfan - Mi 15.08.07 20:39

Narses Lösung funktioniert:

Zitat:
Exception(ExceptObject).Message