Originariamente inviato da LeleFT
codice:
function Formatta(stringa: String) : String;
var risultato : String;
begin
   risultato := stringa;
   If (risultato < 10) Then
      risultato := '0' + stringa;
   End If;
   Formatta := risultato;
end;
Questa funzione dovrebbe andare... (se la concatenazione di stringhe me la ricordo ancora... :quipy: )

La puoi usare così:
codice:
MiaTextfield.Text := Formatta(MiaTextfield.Text);
Ciao.

mmmm, l'idea non è affatto male, una funzione che si basa sui casi minori di 10...

io però pensavo esistesse proprio una funzione per la stirnga, o almeno mi ricordavo cosi...

una specie di formatstr(stringa','00');

me lo son sognato?

thanx cmq