StatusBar und Datum/Uhrzeit

[Kunoishi]

ich versuch gerade die Information aus meiner Statusbar von Datum und Zeit
in ein Format von einem Editfeld zu basteln

das Format soll so aussehen xxxxxxxx-xxxx-xxxxxxxx und 20091220 (DatumRückwerts)-2015(Uhrzeit)-13547891 (Beliebige Zahlen) beinhalten.

Ausgang hierfür war für mich:

Delphi-Quellcode:

procedure TMainForm.Timer1(Sender: TObject);
begin
    StatusBar.Panels.Items[1].Text := DateToStr(Now);
    StatusBar.Panels.Items[2].Text := TimeToStr(Now);
end;

wie kann ich das problem lösen?

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mirage228]

Sieh Dir mal FormatDateTime an.

Viele Grüße

[DeddyH]

Format('%s-%.8d',[FormatDateTime('yyyymmdd-hhnn',now),Zahl]) Sollte so gehen, die Zahl wird immer 8-stellig formatiert. Ist das nicht gewollt, musst Du den Precision-Bezeichner löschen.

[Kunoishi]

an das einfachste hatte ich mal wieder nicht gedacht
DANKE

[Kunoishi]

ich habe da noch eine frage:

wie kann ich in einem Editfeld den ersten Buchstaben immer groß schreiben lassen bei einer Eingabe?

[DeddyH]

Neue Frage, neuer Thread

[Luckie]

Zitat von DeddyH:

Neue Frage, neuer Thread

Und damit geschlossen.