Einzelnen Beitrag anzeigen

Majortomster

Registriert seit: 11. Mai 2005
27 Beiträge
 
#1

Exception auslösen funktioniert nicht

  Alt 1. Jun 2005, 16:27
Hallo,

erstmal ein Stück Delphi Code:

Delphi-Quellcode:
tslist := TStringList.Create();
tslist.Clear;
tslist.Sorted := true;
tslist.Duplicates := dupError;
for i := 0 to hi do
begin
   try
      tslist.Add(str[i]));
   except
      // mach was
   end;
end;
Problem: der Block zwischen except und end wird niemals ausgeführt.
Wenn die Add Funktion eine Exception aufwirft, bekomme ich vom Programm trotzdem die Messagebox über die aufgetretene Exception:"Im Projekt ... ist eine Exception der Klasse EStringListError aufgetreten. Meldung:'In der Stringliste sind Duplikate nicht erlaubt'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."
Das sollte aber eigentlich nicht mehr kommen - stattdessen soll einfach der except-Block ausgeführt werden. Was mache ich falsch?
(Die Units "Classes" und "Sysutils" sind im uses-Teil aufgeführt)

Thomas
  Mit Zitat antworten Zitat