Funktion alle 30 Mintuten aufrufen

[DeddyH]

Ausnahmsweise:

Delphi-Quellcode:

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    FWert: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

const MaxWert = 1800; //30 Minuten * 60 Sekunden

procedure TForm10.FormCreate(Sender: TObject);
begin
  FWert := MaxWert;
end;

procedure TForm10.Timer1Timer(Sender: TObject);
begin
  dec(FWert);
  if FWert = 0 then
    begin
      //Hier der Aufruf Deiner Funktion
      FWert := MaxWert;
    end;
  Label1.Caption := Format('Noch %d Minute(n) und %d Sekunde(n) bis zum nächsten Aufruf',[FWert div 60, FWert mod 60]);
end;

end.