Hallo,
hab das jetzt mit Timer probiert.
Delphi-Quellcode:
//Timer für Datenbank zur Laufzeit erstellen
MyTimer3 := TTimer.Create(nil);
MyTimer3.Enabled := True;
MyTimer3.Interval := 120000; // alle 2 Minuten die Datenbank aktualisieren
MyTimer3.OnTimer := DatenbankFuellen;
Delphi-Quellcode:
procedure TFiles.DatenbankFuellen(Sender: TObject);
var Werte, Datei : string;
i : integer;
WerteList, WL : TStringList;
begin
Datei := extractfilepath(application.exename)+'Mom10min_'+Kennung+'.txt';
WerteList := TStringList.Create;
WL := TStringList.Create;
try
WerteList.LoadFromFile(Datei);
if WerteList.Count >=2 then
begin
Werte := WerteList.Strings[WerteList.count-1];
WL.Delimiter := #9;
WL.DelimitedText := Werte;
if count = WL.Count then
begin
with t do
begin
t.Open;
t.Append;
for i := 0 to WL.Count - 1 do
begin
t.Fields[i].Value := WL.Strings[i];
end;
t.Post;
t.Close;
end;
end;
WerteList.SaveToFile(Datei);
end;
finally
Free;
WerteList.Free;
WL.Free;
end;
end;
Das Problem dabei, dass er dann erst nach 2 Minuten den ersten Wert reinschreibt. Er soll aber sofort anfangen.