VPF::TEdit тип данных - Форум программистов

Anakin

Дата 19.11.2008, 17:47 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

Есть 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 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

FloatToStr

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

Обижено школьников: 8

pseud

Дата 19.11.2008, 18:08 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Код


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

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Anakin

Дата 19.11.2008, 18:56 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

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