Ich weiß allerdings nicht wie ich das mache. Deswegen fragte ich oben schon mal nach einem Tutorial
Ich will mal so sagen, wenn ich folgende function mit den entsprechenden Übergabe Werten in eine externe
Unit/Klasse packen will, wo muss ic dann was, und vorallem damit ich es auch versteh wie und warum machen.
Delphi-Quellcode:
function TForm1.SetTimer1IntervalEMailStart : Boolean;
var
TimeNow : String;
TimeSend : String;
const
HalfDay = 43200000;
begin
SendEMailTimer1.Enabled := false;
TimeNow := TimeToStr(Now);//Aktuelle Zeit
TimeSend := '22:57:00';//Nächste Startzeit
if TimeSend > TimeNow then //Prüfung ob Sendezeit für aktuellen Tag schon vorbei
begin
//Zeitpunkt für nächsten Step festlegen
SendEMailTimer1.Interval := MilliSecondsBetween(frac(StrToTime(TimeNow)),
frac(StrToTime(TimeSend)));
end
else
begin
//Zeitpunkt festlegen wenn Step für aktuellen Tag vorbei
SendEMailTimer1.Interval := HalfDay - MilliSecondsBetween(frac(StrToTime(TimeNow)),
frac(StrToTime(TimeSend)))+ HalfDay;
end;
SendEMailTimer1.Enabled := true;
end;
Gruß Jens