| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

LIstBox [D7]

Funtik ©   (2010-02-18 00:48:00) 

var
a:integer;

begin
case ListBox1.ItemIndex of
0:a:=0101;
1:a:=0102;

end;
Edit1.Text :=IntToStr(a);
end;
при выводи в EDit1 выводиться значения 101 а как сделать чтоб выводиллось полностью 0101 помогите пожалуста решить

---

Funtik   (2010-02-18 12:33:00) [1]

сменил переменную на string все заработало спосибо

---

Игорь Шевченко   (2010-02-18 12:12:00) [2]

причем тут ListBox ?

---

И. Павел   (2010-02-18 11:24:00) [3]

0:begin
    a:=0101;
    Edit1.Text := '0101';
 end;

Еще можно вместо TEdit использовать TMaskEdit, в свойстве EditMask которого прописать что-то вроде: !9999;1;0

---

Anatoly Podgoretsky   (2010-02-18 09:43:00) [4]

> Funtik  (18.02.2010 00:48:00)  [0]

FormatFloat

---

oxffff   (2010-02-18 02:26:00) [5]

Funtik ©   (18.02.10 00:48)  

SysUtils.Format

Returns a formatted string assembled from a format string and an array of arguments.

---

Германн   (2010-02-18 01:44:00) [6]

> "В лоб"

Т.е. сменить тип переменной а на String.
Или объяснить задачу.

---

Германн   (2010-02-18 01:33:00) [7]

> а как сделать чтоб выводиллось полностью 0101 помогите пожалуста
> решить

"В лоб"

---

Наверх