Exception klappt nicht

bbfan · Beiträge: 164

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 · Verfasst: Mo 13.08.07 19:04

Moin!

Probier das mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

try
...
except
  addErr('ERR 3: '+Exception(ExceptObject).Message+'->ACC: '+ftp.Username);
  disconnect();
end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

dummzeuch · Verfasst: Mo 13.08.07 21:37

Hi,

bbfan hat folgendes geschrieben:

Hallo!

Ich habe folgende Exception gebastelt:

markieren

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 · Beiträge: 164

das erster werde ich mal ausprobieren.

begin und end fehlen nicht...

Ehemaliges Mitglied Erhaltene Danke: 1

Lass das ganze mal ohne Debugger laufen.

bbfan · Beiträge: 164

Narses Lösung funktioniert:

Zitat:

Exception(ExceptObject).Message

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme