Zeit in Integerzahl umwandeln

[bluescreen25]

Hallo,

ich versuche eine TStringliste über einen Savedialog abzuspeichern.
Dabei soll er schon einen Dateinamen vorgeben.
Mein Versuche war das Datum und die Uhrzeit mit reinzupacken, da dies ja immer unterschiedlich ausfällt.

Delphi-Quellcode:

procedure Tmediaplayer_frm.fav_save_btnClick(Sender: TObject);
begin
  ProgrammPfad:=ExtractFileDir(ParamStr(0));
   Fav_savedialog.InitialDir := ProgrammPfad+'\Data';
   Fav_savedialog.FileName := 'fav_'+DateToStr(now)+'_';
   Fav_savedialog.Filter := 'fav(*.fav)|*.fav';

   if Fav_savedialog.Execute then
    PlayList.SaveToFile(Fav_savedialog.FileName);
end

Als ich dies mit TimeToStr(now) versuchte, klappte das nicht, da er versucht das ":" mit unter zu bekommen.

Meine Frage: Wie kann man die Zeit recht einfach wieder in eine Integerzahl zurückwandeln, oder
nur das Datum mit einer Nummerierung dahinter...?

Oder habt ihr bessere Vorschläge um einen eindeutigen Dateinamen vorzugeben ?

[Matze]

Das Datum und die Uhrzeit kannst du so formatieren:

Delphi-Quellcode:

FormatDateTime('mm"/"dd"/"yyyy"," hh":"nn":"ss', Now)

Nachtrag: ALso das in Anführungszeichen sind deine Trennzeichen. Da kannst du selbstverständlich auch einen Unterstrich "_" nehmen oder etwas anderes.

[Keldorn]

Hallo

Datetostr würde ich nicht verwenden. Bei einem Dateinamen wäre Jahr_Monat_Tag evtl. besser als Tag_Monat_Jahr, da die Sortierbarkeit erhöht wird. Datetostr hält sich an die Einstellungen im System, und da kann jeder user was anderes einstellen.

Mfg Frank

[bluescreen25]

Danke für die Antworten,

Das mit FormatDateTime klappt prima, kannte ich nur noch nicht. :xmas: