Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

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


Dima Kopachev   (2002-01-31 11:30) [0]

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



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

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

function IntToStr_Z(a_iNum: integer; a_iDigits: byte): string;
var
i: integer;
begin
Result := IntToStr(a_iNum);
for i := Length(Result) to a_iDigits - 1 do
Insert("0", Result, 1);
end;

...

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



MBo   (2002-01-31 12:01) [2]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.017 c
3-42680           Dyacha                2002-01-22 10:48  2002.02.14  
Гетерогенный запрос


3-42691           Макс                  2002-01-22 12:21  2002.02.14  
Как программно присвоить полю Integer значение NULL


14-42845          Hawk2                 2001-12-25 18:04  2002.02.14  
---|Ветка была без названия|---


1-42787           st_Lexa               2002-01-29 17:04  2002.02.14  
Кликнул мышкой - получи что-нибудь


7-42887           aguliver              2001-11-06 06:52  2002.02.14  
Как обработать данные с микрофона в Real-Time