Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
Delphi 11 Alexandria
|
Re: Formatierte Ausgabe nach Vorgabe zur Laufzeit
5. Okt 2006, 13:56
Hi,
mit einer kleinen Änderung funktioniert auch dein zweites Beispiel:
Delphi-Quellcode:
...
if AddChar <> BlankChar then
Result := Result + AddChar
else
// wenn kein Zeichen entsprechend Inputmask da ist...
Result := Result + '0';
end;
end;
rwReFormat('123135', 'HHMMSSTT', 'HHhMMmSSs,TTms');
// ergibt 12h31m35s,00ms
Cu, Frank
Frank Reim
|