Zeit Zähler Min und Sek

[Matze]

Zukünftig bitte die Delphi-Tags nutzen, dann sieht der Code deutlich übersichtlicher aus.

Ich habe ganz schnell was zusammengetippt:

Delphi-Quellcode:

// Variable für die neue Zeit
Plus_Fifteen_Mins: TDateTime;

[...]

// Direkt vor dem Starten des Timers musst du natprlich den Wert zuweisen:
Plus_Fifteen_Mins := now + StrToTime('00:15:00');

Delphi-Quellcode:

// Fkt zur Berechnung der Zeitdifferenz
function Time_Diff(Old_Date, New_Date: TDateTime): string;
var
  h, m, s, n: Word;
begin
  Old_Date := New_Date - Old_Date;
  DecodeTime(Old_Date, h, m, s, n);
  Result := Format('%0.2d', [m]) + ':' +
            Format('%0.2d', [s]);
end;

Delphi-Quellcode:

// Aufruf/Ausgabe
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption := Time_Diff(now, Plus_Fifteen_Mins);
  if Caption = '00:00' then
  begin
    Timer1.Enabled := false;
    ShowMessage('Und nun?');
  end;
end;