Timer offline laufen

[DeddyH]

Du willst ja auch kein Datum darstellen, sondern eine zeitliche Differenz, das ist ein Unterschied.

[chiller4fun1990]

Hmm
So wenn ich es mach geht gar nichts.
Jedesmal wen cih das Programm starte steht im label ne andere zeit.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
      private
    Zielzeit: TTime;
    { Private declarations }
  public                        
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);


  Zielzeit := now + 1;


  try

    ini.WriteTime('Daten','Zielzeit',Zielzeit);
         finally
      ini.Free;
  end;



  Timer1.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

  Label1.Caption:= TimeToStr(zielzeit - now);


  
  if now >= Zielzeit then

  begin
  Timer1.enabled:=false;
     end;


end;


procedure TForm1.FormActivate(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

Zielzeit:=StrtoTime(ini.ReadString('Daten','Zielzeit',''));
timer1.Enabled:=true;
  end;




end.

[Jasocul]

Natürlich steht im Label jedesmal was anderes. Du trägst dort doch die Restzeit bis zur Zielzeit ein.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Zielzeit: TDateTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

  Zielzeit := now + 1;

  try
    ini.WriteDateTime('Daten','Zielzeit',Zielzeit);
  finally
    ini.Free;
  end;

  Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
// Eine von den folgenden 3 Varianten lässt du stehen. Die anderen 2 löscht du einfach
  Label1.Caption:= TimeToStr(zielzeit - now); // So wird die Restzeit dargestellt
  Label1.Caption:= TimeToStr(zielzeit); // So wird die Zielzeit dargestellt. Das macht aber im Timer-Ereigns keinen Sinn
  Label1.Caption:= TimeToStr(now); // So wird die aktuelle Zeit dargestellt

  if now >= Zielzeit then
  begin
    Timer1.enabled:=false;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);

  Zielzeit:=StrtoDateTime(ini.ReadString('Daten','Zielzeit',''));
  ini.Free;

  timer1.Enabled:=true;
end;

end;

Ich habe da ein bisschen rumgebastelt. 2 Speicherlecks sind erstmal entfernt.
Das ist allerdings ungeprüfter Source. Wenns nicht funktioniert, muss du vielleicht mal selbst denken.

Erklären muss ich wohl nichts, da du sowieso nur C&P machst.

[chiller4fun1990]

Das runterzählen und so klappt ja,
nur beim neustart des Programmes komm ich nicht mehr weiter da
jedesmal wenn ich das programm starte, diie zeit wielang der countdown läuft angezeigt wird.

[DeddyH]

Und was soll stattdessen angezeigt werden? Ich bin etwas konfus im Moment

[chiller4fun1990]

Ok hier mal was das Programm machen soll:

Ich Starte das Programm da soll noch nichts passieren.
Wenn ich den Button klicke soll ein Countdown ab den Zeitpunkt wo man den Button gedrückt hat 24Std runterzählen.
Wenn ich den Pc nun runterfahre und morgen um 17:00Uhr wieder starte,
soll im Label die Restzeit die übrig ist in diesen Fall 38min runterzähln.
Bei 0 angekommen sollte die Label.caption auf Erfolgreich geändert werden.
Hoff es ist verständlich.
lg

[DeddyH]

Zitat von chiller4fun1990:

Ich Starte das Programm da soll noch nichts passieren.
...
Wenn ich den Pc nun runterfahre und morgen um 17:00Uhr wieder starte,
soll im Label die Restzeit die übrig ist in diesen Fall 38min runterzähln.

Und da beißt es sich. Du musst Dir schon irgendwie merken, ob das Programm nun weitermachen soll oder nicht. Die Kriterien dafür musst Du aber selbst festlegen.

[chiller4fun1990]

Es soll, sobald der Button Gedrückt wurde und das Programm geschloßen wurde die restzeit weiterlaufen beim neustart von einen programm.
Aber wie mach ich das?

lg