[Delphi] Format stringhe

[Oasis81]

lo metto qui perchè la ricerca non va.. è una cosa veloce, penso...

ho una text contenente un numero..

il numero viene assegnado dopo un operazione, e può essere al max di 2 cifre..

devo fare in modo che la text venga sempre visualizzata con la doppia cifra...

esempio... la text contiene il numero 6..

io devo visualizzare 06

es2: la text contiene 28

io devo visualizzare 28..

mi ricordavo una funziona stringa che formattava la stringa come volevo... ma non ricordo come se fa..

[LeleFT]

Se specifichi anche un linguaggio (come da regolamento) non sarebbe male... :quipy:


Ciao.

[xegallo]

Originariamente inviato da Oasis81
lo metto qui perchè la ricerca non va..

non è che vale come scusa per non mettere neanche il linguaggio

[Oasis81]

si scusate mi son accorto dopo aver postato...

cmq Delphi..

[LeleFT]

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ì:

MiaTextfield.Text := Formatta(MiaTextfield.Text);

Ciao.

[Oasis81]

Originariamente inviato da LeleFT

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ì:

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

[LeleFT]

Originariamente inviato da LeleFT

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.

[Oasis81]

purtroppo devo formattare stringhe anche in altri casi, questo mi impedisce di usare la tua funzione, a meno di stare a fare una decina di if concatenati...


nessuno sa se esiste questa funzione delle stringhe gia preconfezionata?

[delphiknight]

Carissimo,

esiste una funzione "preconfezionata":

strMiaStringa:=Format('%.2d',[intMioIntero]);

% indica una variabile che sarà sostituita con il valore tra quadre. d indica il tipo (intero con segno) e .2 la precisione, ossia il minimo di caratteri che la stringa deve contenere (se mancano viene fatto un left padding con gli zeri).

Saluti

[Oasis81]

carissimo knight

ti vedo pure qua

come sempre grazie