Probleme beim Einbau des Timers

[aaaaaaaaaa_10]

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.

[Stormy]

Hi,

also du erstellst dir nen Timer den du erstmal auf Enabled:=False setzt und fügst dann deinen Code in das OnTimer-Event ein.
Pseudocode wäre:

OnTimer
begin
wenn letzte_Zeile_alt.Text <> letzte_Zeile_neu.Text dann
//letzte zeile wurde geändert
begin
//deine Reaktion darauf
end;
end;

Evl. den Intervall noch nach belieben anpassen.

EDIT: natürlich den Timer auch wieder auf Enabled:=True setzen wenn es überprüfen soll.


Gruß
Stormy

[aaaaaaaaaa_10]

Ich habe aber keine Form,kann ich trotzdem einfach Timer1 : TTimer einfügen?

[Stormy]

Kurz ja.
Ansonsten kannst du auch eine Schleife dafür benutzen (while do / repeat until) oder eine Funktion sich selber aufrufen lassen (Rekursion) was ich dann aber in einen anderen Thread auslagern würde. Um den Intervall zu setzen kannst du z.B. Sleep verwenden.


Gruß
Stormy

[aaaaaaaaaa_10]

Das ist meine TimerProcedure:

Delphi-Quellcode:

procedure TMomFiles.MyTimerEvent;
var
  Sek, Mom : TStringList;
  DatName, LogDatei, temp1, temp2 : string;
begin
  DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
  LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
  Mom := TStringList.Create;
  Sek := TStringList.Create;
  try
    Mom.LoadFromFile(Logdatei);
    Sek.LoadFromFile(DatName);
    temp1 := Mom.Strings[Mom.Count-1];
    temp2 := Sek.Strings[Sek.Count-1];
    if temp1 <> temp2 then
    begin
        ShowMessage('verschiedene Strings');
        Sek.Add(Mom[Mom.Count-1]);
    end;
    Sek.SaveToFile(DatName);
  finally
    Sek.Free;
    Mom.Free;
  end;
end;

Die will ich jetzt aber in einer anderen Unit aufrufen mit :

Delphi-Quellcode:

MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 1000;
  MyTimer.OnTimer :=  MomFiles.MyTimerEvent;

//Fehler : Inkompatible Typen 'Lister der parameter unterschiedliche'

[aaaaaaaaaa_10]

Ups, was vergessen

procedure TMomFiles.MyTimerEvent; muss ja zu

procedure TMomFiles.MyTimerEvent(Sender:TObject); werden.

[Stormy]

War schon am absenden aber dir ist es schneller aufgefallen.


Gruß
Stormy