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




Вниз

Как проще сделать что-бы отображать число 1 в виде 01 


Dmitriy_R   (2002-01-21 14:11) [0]

Собственно Тема?



yaJohn   (2002-01-21 14:19) [1]

s:=inttostr(x);
while length(s)<10 do s:=s+"0"+s;



Alx2   (2002-01-21 14:41) [2]

Так немного быстрее :))

function MyIntTostr( value, len : integer):String;
// value - число, которой отображаем в нужном виде
// len - минимально необходимое количество знаков в ответе.
Begin
Result := IntToStr(value);
Result := StringOfChar("0", Len - length(Result))+Result;
End;

Конечно, value>=0.



Alx2   (2002-01-21 14:43) [3]

> yaJohn © (21.01.02 14:19)
вместо while length(s)<10 do s:=s+"0"+s;
имелось в виду
while length(s)<10 do s:="0"+s;? :)



DK   (2002-01-21 14:45) [4]

А не пробовал через FormatCurr ?



Фэ   (2002-01-21 15:12) [5]

Еще вариант
uses Mask;
FormatMaskText("\0;0","12345") // 012345



USAtyj   (2002-01-21 16:07) [6]


format("%.4d",[MyNumber])

где 4 - число символов, до которго надо заполнить нулями.



Romkin   (2002-01-21 16:46) [7]

До кучи: FormatFloat("00", i)




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




Наверх





Память: 0.72 MB
Время: 0.033 c
3-18766           Gonza                 2002-01-12 14:49  2002.02.07  
IBM DB2, Обновление данных после Post?


3-18726           KMZ                   2002-01-10 11:24  2002.02.07  
Масиера подскажите плиз,отчего возникает ошибка типа Access violation


3-18740           cyberwarlock          2002-01-10 15:59  2002.02.07  
Проблема с Paradox


3-18778           Alex Ignatenko        2002-01-14 13:55  2002.02.07  
MS SQL Server 2000 и каскадное удаление


4-19025           Art                   2001-11-18 18:06  2002.02.07  
Как использовать ShellExecute?????