Mein TMomFiles hat kein OnCreate.
MyTimer2.OnTimer := ZehnMinTimerEvent;
Zitat:
Oder dass du MomFiles manuell erzeugst und wieder freigibst?
Das ist meine TMomFiles Klasse:
Delphi-Quellcode:
type
TMomFiles=class(TForm)
private
FZeilenanzahl : integer;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure DreiSekDateiErstellen;
procedure ZehnMinDateiErstellen;
procedure DreiSekDateiFuellen(const Filename: string);
procedure ZehnMinDateiFuellen(const Filename: string);
procedure DreiSekTimerEvent(Sender: TObject);
procedure ZehnMinTimerEvent(Sender: TObject);
procedure WerteBerechnen;
property Zeilenanzahl: Integer Read FZeilenanzahl Write FZeilenanzahl;
end;