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

← →
КаПиБаРа © (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);

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

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

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