| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывод числа в editbox

Dima Kopachev ©   (2002-01-31 11:30:00) 

Как вывести число, чтобы перед ним были нули.

---

MBo   (2002-01-31 12:01:00) [1]

edit1.text:=formatfloat("000000",i);

---

Rem   (2002-01-31 11:57:00) [2]

Приведенная ниже функция доводит длину строки до нужного значения, добавляя лидирующие нули:

functionIntToStr_Z(a_iNum: integer; a_iDigits: byte): string;
var
i: integer;
begin
Result := IntToStr(a_iNum);
fori := Length(Result) toa_iDigits - 1 do
Insert("0", Result, 1);
end;

...

YourEdit.Text := IntToStrZ(N, 4);


---

Наверх