Einzelnen Beitrag anzeigen

Konse

Registriert seit: 20. Feb 2007
Ort: Bayern
27 Beiträge
 
Delphi 7 Professional
 
#2

Re: try except in Funktion funktioniert nicht

  Alt 21. Feb 2007, 18:21
was funktioniert den daran nicht genau?
also der unterschied zwischen deine beiden dingen ist:
Delphi-Quellcode:
try
  Edit1.Text := IntToStr(DateTimeToUnix(
     StrToDateTime(Edit1.Text) // hier wird auch eine exception geworfen falls du kein gültiges datum hast
    ));
  except
    Edit1.Text := IntToStr(DateTimeToUnix(0));
  end;
bei deinem anderem beispiel jedoch nicht
Delphi-Quellcode:
function DateTimeToUnixTime(DateTime: TDateTime): String;
begin
  try
    Result := IntToStr(DateTimeToUnix(DateTime));
  except
    Result := IntToStr(DateTimeToUnix(0));
  end;
end;
dort kann jetzt immernoch ein fehler passieren in :

Delphi-Quellcode:
Edit1.Text := DateTimeToUnixTime(
       StrToDateTime(Edit1.Text) // hier kann auch eine exception geworfen werden diese fängst du nicht ab
);

hoffe ich konnte dir helfen

gruß Konse
Warum ich Klingonische Programmierer so liebe:
- A true Klingon programmer does not comment his code
- You cannot truly appreciate Dilbert unless you´ve read in the original klingon
  Mit Zitat antworten Zitat