Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TEdit тип данных

Автор: Anakin 19.11.2008, 17:47

Всем привет.
Есть вопрос к спецам.

Есть 3 компонента TEdit для подсчёта данных.

1) Edit1 тут я вписываю количество.
2) Edit2 тут цена в У.Е.
2) Edit3 тут цена в Руб.
Должно работать так допустим я продаю 1 штуку бублика по 1 У.Е и программа должна перевести в Edit3 в рубли.

Всё было бы хорошо но когда я патаюсь ввести сумму в У.Е допустим 2,34 ругаетса пишет "2,34" is not a valid integer value

перепробовал кучу вареантов и Хэлп читал не помогло.

Вот код

Код


Begin
  try
    Edit1.Text := IntToStr(StrToInt(sEdit1.Text) * StrToInt(yEdit1.Text));
  except
    ShowMessage('You must specify integer values. Please try again.');
  end;

Автор: bems 19.11.2008, 18:04

FloatToStr

Автор: pseud 19.11.2008, 18:08

Код


Edit1.Text := FloatToStr(StrToFloat(sEdit1.Text) * StrToFloat(yEdit1.Text));

Автор: Anakin 19.11.2008, 18:56

Пасиба работает )