LIstBox

← →
Funtik © (2010-02-18 00:48) [0]

var
a:integer;

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

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

← →
Германн © (2010-02-18 01:33) [1]

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

"В лоб"

← →
Германн © (2010-02-18 01:44) [2]

> "В лоб"

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

← →
oxffff © (2010-02-18 02:26) [3]

Funtik © (18.02.10 00:48)

SysUtils.Format

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

← →
Anatoly Podgoretsky © (2010-02-18 09:43) [4]

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

FormatFloat

← →
И. Павел © (2010-02-18 11:24) [5]

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

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

причем тут ListBox ?

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

LIstBox Найти похожие ветки