[Михалыч]

Имеется несколько ComboBox, в которые пользователь будет водить числовые данные. Как сделать так чтобы если пользователь ввел например число 100 и перешел на следующее поле число 100 изменялось на 100,00 т.е. чтобы добавлялись 2 ноля, если пользователь введет к примеру 11,22 то чтобы все так и оставалось. В общем нужно чтобы если нет запятой после нее добавлялись копейки.

[Burka]

if pos(',',Combobox1.Text)=0 then Combobox1.Text:=Combobox1.Text+',00';
не помню какие там параметры у pos, суть думаю понятна

[ApxaHGe1]

Мне кажеться проще будет так :

Код:

var
q:Extended;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
q:=StrToFloat (Edit1.Text);
ShowMessage (FloatToStrF(q,ffFixed,15,2));
end;

end.

[Burka]

А я думал проще это там где меньше строчек кода

[Михалыч]

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

if pos(',',Combobox1.Text)=0 then Combobox1.Text:=Combobox1.Text+',00';
не помню какие там параметры у pos, суть думаю понятна

Это в принципе работает, только если набрать к примеру 123 получается 321,00 т.е. набираем 1, курсор получается СЛЕВА от цифры, а не справа, и получается китайское письмо слева направо

[Yurk@]

если я тебя правильно понял, то

Код:

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Text:=ComboBox1.Text+',00';
end;

ЗЫ: пример Burka у мя тоже нормально работает

[Михалыч]

У меня нормально не работает. Работает так как описано выше, цифры забиваются справа налево. Если у тебя работает прилепи исходник, я посмотрю

[Yurk@]

Давай уж ты показывай свои исходники ... а мы уже тут будем смотреть, что у тя не так.