Hallo,
habe folgende Prozedur :
Delphi-Quellcode:
procedure TMomFiles.DreiSekDateiFuellen(const Filename: string);
var
LogDatei, DatName, temp1, temp2: string;
i : integer;
Mom, Sek: TStringList;
begin
DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
Mom := TStringList.Create;
Sek := TstringList.Create;
try
LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
Mom.LoadFromFile(Logdatei);
Sek.Add(Mom[0]);
temp1 := Mom.Strings[Mom.Count-1];
temp2 := Sek.Strings[Sek.Count-1];
if temp1 <> temp2 then [b]die letzte Zeile einer vorhandenen Datei soll immer (bei Veränderungen)in die neue
begin Datei hinten angehängt werden[/b]
Sek.Add(Mom[Mom.Count-1]);
end;
Sek.SaveToFile(DatName);
finally
Sek.Free;
Mom.Free;
end;
end;
Wie realisiere ich das "Testen auf Veränderungen der letzten Zeile" mit einem Timer? Weiß nicht wie ich da anfangen kann.