Originariamente inviato da LeleFT
codice:
function Formatta(stringa: String) : String;
var risultato : String;
begin
   risultato := stringa;
   If (Len(risultato) < 2) Then
      risultato := '0' + stringa;
   End If;
   Formatta := risultato;
end;
Errata corrige...

Per la funzione non so, probabilmente esiste già qualcosa di preconfezionato, ma io non ti so dire. Magari alka ti saprà illuminare in merito.


Ciao.