Wie kriege ich die Aktuelle Zeit in ein Label? (Format hh:mm:ss)..

Plz Help!
(Dumme Frage ich weis.. )

Mfg,
MiniKeks

Caption := FormatDateTime('hh:mm:ss', Now);

Label.Caption := TimeToStr(Now());

@MiniKeks, @toms

"hh:mm:ss" liefert aber "Stunde:Monat:Sekunde". Das richtige Format wäre "hh:nn:ss".

Gruß Hawkeye

die Methode DecodeTime oder DecodeDate ist auch gut. Da muss man aber mehr schreiben

Wenn die Uhr auch laufen soll, dann hier eine Lösung auf Basis eines Timers:

zusammenfalten · markieren

Delphi-Quellcode:

unit DemoFrm;

interface

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

type
  TDemoForm = class(TForm)
    TimeLabel: TLabel;
    Timer: TTimer;
    procedure TimerTimer(Sender: TObject);
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

uses
  DateUtils;

procedure TDemoForm.TimerTimer(Sender: TObject);
begin
  TimeLabel.Caption := TimeToStr(Now);
  Timer.Interval := 1000 - MilliSecondOf(Now);
end;

end.

Ostergrüße vom marabu

Zitat von Hawkeye219:

@MiniKeks, @toms

"hh:mm:ss" liefert aber "Stunde:Monat:Sekunde". Das richtige Format wäre "hh:nn:ss".

Gruß Hawkeye

stimmt so nicht ganz.
laut Delphi-Hilfe:

Zitat:

Zeigt den Monat als Zahl ohne führende Null an (1-12). Wenn auf den Bezeichner m unmittelbar der Bezeichner h oder hh folgt, werden an Stelle des Monats die Minuten angezeigt.

@RavenIV:

Du hast völlig Recht, ich habe das "unmittelbar" wohl falsch interpretiert.

PS: Die Delphi7-Hilfe scheint gegenüber der Delphi6-Hilfe schon ein wenig abzufallen:

Zitat von Delphi6-Hilfe:

Zeigt den Monat als Zahl mit führender Null an (01-12). Wenn der Bezeichner mm unmittelbar hinter dem Bezeichner h oder hh steht, wird anstelle des Monats die Minute angezeigt.

Hier stimmt dann wenigstens die Reihenfolge von "mm" und "h" bzw. "hh".

Gruß Hawkeye