Hallo schonmal, ich habe folgendes Problem:
In der Prozedur StrFileSize kann eine
Exception kommen (EFileTooBig) und die möchte ich gerne abfangen ...
aber danach soll mit dem nächsten Schleifendurchlauf weitergemacht werden ...
Delphi-Quellcode:
try
// Get The Size
ListItem.SubItems.Add(StrFileSize(strPath + SearchRec.Name));
except
on EFileTooBig do
begin
ListView.Items.Delete(ListItem.Index);
i := FindNext(SearchRec);
try
raise; // geht natürlich nicht - wiederhervorrufen nur in except möglich
finally
Continue;
end;
end;
end;
Der Code geht natürlich nicht, aber es sollte klar sein, was ich will. Die
Exception soll auftauchen, aber die Schleife soll dann weitergehen ...
Die Notlösung wäre, die
Exception durch eine Message-Box zu ersetzen ...
