VPF::Отформатировать целое - Форум программистов

Janger

Дата 24.8.2013, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: 1
Всего: 1

Ребят, вот я сделал так:
Значение из ScrollBar1 выводится в Label1
Всё работает нормально, вот только...
Значение выводится так: 0,1,2,3,4,...,9,10 и т.д.
А я хочу, что бы выводилось вот так вот: 00,01,02,03,04,...,09,10 и т.д.
Подскажите.

Janger

Дата 24.8.2013, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 17.6.2013

Репутация: 1
Всего: 1

Лан...
Возможно есть и стандартная функция..
Но я вот таким вот образом это сделал...

Код


procedure TForm1.ScrollBar1Change(Sender: TObject);
var m:integer;
begin
mi:=ScrollBar1.Position;
m:=length(IntToStr(mi));
if m=1 then
Label3.Caption:='0'+IntToSTR(mi)
else
Label3.Caption:=IntToSTR(mi);
end;

Чучмек

Дата 24.8.2013, 16:18 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

Код


Label3.Caption:=Format('%.2d',[mi]);

--------------------

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »