Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

Вывод числа в 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);



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

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

Наверх




Память: 0.46 MB
Время: 0.01 c
3-42679
Jony
2002-01-22 09:36
2002.02.14
Числа с запятой в Insert и Update


1-42779
Зинец Виктор
2002-01-30 16:32
2002.02.14
Моя прога мешает перезагрузке/перелогину Виндовс :-(


14-42853
zero
2001-12-26 11:59
2002.02.14
Сегодня день рождения Чарльза Бэббиджа - изобретателя компьютера


6-42828
Дремучий
2001-11-21 19:24
2002.02.14
Файловая структура веб-узла


1-42716
чайничек
2002-01-28 18:55
2002.02.14
Как писать в Edit однjq из закладок Tabs (TTabControl), и сохранив там запись писать в другой - другое