Datum zusammenbasteln mit Platzhalter ?

[moelski]

Ok ich beantworte es mir selber

Delphi-Quellcode:

var erg : String;
begin
  erg := Edit1.Text;
  {
%Y4  - Jahr (2008)
%Y2  - Jahr (08)
%M   - Monat (04)
%ML  - Monat (April)
%D   - Tag (28)
%h  - Stunden
%m  - Minuten
%s  - Sekunden
%ms  - Millisekunden
}
  erg := StringReplace(erg, '%Y4', FloatToStr(YearOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%M', FloatToStr(MonthOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%D', FloatToStr(DayOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%h', FloatToStr(HourOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%m', FloatToStr(MinuteOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%s', FloatToStr(SecondOf(Now)), [rfReplaceAll]);
  erg := StringReplace(erg, '%ms', FloatToStr(MilliSecondOf(Now)), [rfReplaceAll]);
  Label1.Caption := erg

Das tut ...
Aber wenn jemand noch was schnelleres hat ... Is immer willkommen.