Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

Человеку который хотел добавить нолики впереди числа   Найти похожие ветки 

← →
КаПиБаРа ©   (2004-08-16 14:36) [0]

function Add_0_ToFirst(S: string; Num: Integer): string;
begin
 Result := StringOfChar("0", Num - Length(s)) + S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Add_0_ToFirst("1234", 6));
 ShowMessage(Add_0_ToFirst("1234567", 6));
end;

---

← →
Anatoly Podgoretsky ©   (2004-08-16 14:38) [1]

FormatFloat("000000", Num);

---

← →
DiamondShark ©   (2004-08-16 14:45) [2]

Format("%.*d", [6, 1234])

---
Любите хелп -- источник знаний!

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.051 c