Timer offline laufen

[Jasocul]

@Detlef:
Das geht nur wenn du den Code reinschreibst. Wird sonst zu schwierig. Nicht, dass noch der Vergleich in der anderen Methode geändert wird. Ich hatte den Vergleich allerdings auch übersehen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
  filename := ExtractFilePath(ParamStr(0)) + 'zeit.ini';
  ini := TIniFile.Create(filename);
  try
    if ini.ReadDateTime('Daten','Zielzeit',Zielzeit) > now then // Hier musste noch das "<" in ">" geändert werden
    begin
      timer1.Enabled:=true;
    end;
  finally
    ini.Free;
  end;
end;

Und dies muss auch noch korrigiert werden:

Delphi-Quellcode:

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); // WriteTime durch WriteDateTime ersetzt
  finally
    ini.Free;
  end;

  Timer1.Enabled:=true;
end;