Ausgliedern von Functionen in externe Unit

[Jens Hartmann]

Hallo zusammen,

also erstmal besten Dank für die vielen antworten. Ich denke den Sinn habe ich verstanden, allerdings die Ausführung noch nicht so ganz. Ich nehme jetzt mal ein für mich aktuelles Beispiel. Ich möchte verschiedene Werte aus einer Datenbank habe. Hier z.B. jetzt die Uhzeit wann das nächste Mal eine E-Mail automatisch versendet wird. Diese Funktion brauche ich mehrmals, da ich mehrer Timer habe, die dieses machen sollen.

Code:

Timer 1 - E-Mail senden an Gruppe 1
Timer 2 - E-Mail senden an Gruppe 2
...
Timer n - E-Mail....
usw.

das heißt...

Delphi-Quellcode:

function SetTimer1IntervalEMailStart : Boolean;
var
  TimeNow : String;
  TimeSend : String;
const
  HalfDay = 43200000;
begin
  TimeNow := TimeToStr(Now);//Aktuelle Zeit ist ja soweit kein Problem
  TimeSend := '22:57:00';//Nächste Startzeit soll jetzt je nach Timer aus DB gelesen werden

Da ich ja jetzt je nach Timer eine andere Startzeit aus der DB brauch, denke ich müsste die function noch einen Übergabeparameter besitzen welcher Timer, also evtl. so..

function SetTimer1IntervalEMailStart(var Timer : integer) : Boolean; Um dann jetzt den Wert lesen zu können, müsste ich momentan sowas machen..

Delphi-Quellcode:

  TForm1.Qry_TimerRead.SQL.Text := 'SELECT * FROM EMAIL
        ' WHERE ID = :Id';
  TForm1.Qry_TimerRead.ParamByName('Id').Value := Timer;
  TForm1.Qry_TimerRead.Open;
  TimeSend :=  TimeToStr(TForm1.Qry_TimerRead.FieldbyName('TIME').AsTime);

Jetzt wäre halt die Frage, wie ich sowas auslagern würde ohne immer noch das Form1 etc. zu nutzen.

Ich hoffe ich konnte so ungefähr beschreiben was ich meine

Gruß Jens