будильник

[waka2ebawer]

Привет,сделал просто будильник но столкнулся с проблемой
короче если я ввожу 00 секунд или минут или любое число начинающее на ноль типо 01 02 03 04 05 06 07 08 09 то он записывает его как просто 0 или 1 или 2 и так далее у меня проверка стоит и мне надо чтобы было 01 02 03 и так далее
как это сделать
помогите)

[Don Karleone]

ты имеешь ввиду чтобы здесь было 01, 02, 03 и т. д.
lbl8.Caption:=edt4.Text; ???

если да, то запиши просто
lbl8.Caption:=edt1.text+':'+edt2.te xt+':'+edt3.text

[alexprey]

Вот функцию я писал делаю число строкой и преобразует к нужной длинне.

function SetIntLen(i,len: integer):string;
begin
 Result:= IntToStr(i);
 while Length(Result) < len do
  Result:= '0' + Result;
end;

Думаю она тебе поможет

[Dr.Win32]

Вот посмотри мой будильник если не поможет извини

[SERG1980]

Сообщение от alexprey

Вот функцию я писал делаю число строкой и преобразует к нужной длинне.

function SetIntLen(i,len: integer):string;
begin
 Result:= IntToStr(i);
 while Length(Result) < len do
  Result:= '0' + Result;
end;

Думаю она тебе поможет

маленько переделаю вашу ф-ию

function SetIntLen(i:integer,Myformat:string):string;
begin
 Result:= FormatFloat(MyFormat,i);
end;

....

s:=SetIntLen(3,'00');

s:=03;