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