Utrzymanie ilości cyfr w wyświetlanej liczbie

Utrzymanie ilości cyfr w wyświetlanej liczbie
maxiu1989
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 84
0

Witam

Mam drobny problem.
Mam wyświetlić liczby od 1 do 1000 w postaci liczb 4 cyfrowych. Czyli chcę otrzymać 0001-1000.

Czy jest jakaś funkcja która to zmieni czy muszę ją napisać sam?

maxiu1989
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 84
0

Czy mozna użyć tej funkcji? W przypadku gdy operuję tylko na Integerach? Czy to będzie strata pamięci?

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
var
i1,i2,i3 : Integer;
s1,s2,s3 : String;
f1 : double;
begin

s1 := Edit1.Text;
f1 := Strtofloat(s1);
Edit2.Text := FormatCurr('0000', f1);


end;
mychal
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Przedmonitorze Górne
1
Kopiuj
Edit2.Text := Format('%.4d', [10{tutaj jakiś integer}]);

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.