Unzulässige funktion

[jaenicke]

Zitat von Sleepy179:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
 try
  SendMail;
 except
 end;
end;

procedure TForm1.SendMail;
var myOutlook, mailitem: Variant;
begin
  try
    myOutlook := CreateOleObject('Outlook.Application');
[...]
  except
    on EOleSysError do begin
      raise;
    end;
  end;
[...]
end;

Erst löst du den abgefangenen Fehler EOleSysError wieder aus (raise) und fängst andere gar nicht erst ab. Dann nimmst du ein weiteres try..except um die weitergeleiteten Fehler abzufangen...
Warum nicht gleich ein try..except ohne Einschränkungen oder Wiederauslösen des Fehlers in except?