VPF::Сумирование с помошью 2-х TEdit - Форум программистов

Anakin

Дата 10.4.2009, 15:00 (ссылка)

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

Загрузка ...

Бывалый

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

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

Добрый день.
Кто может подсказать как это сделать правельно.
Имеется 5 TEdit
TEdit1=тут Рубли
TEdit2=тут копейки
TEdit3=тут Рубли
TEdit4=тут копейки
TEdit3=Тут Итог

Когда я заполняю все Тедиты в Итоговом ТЕдите должен вывестись результат.
Я Пробовал но у меня он когда считает то он считает и Копейки и рубли как одно

Подскажите как правильно сделать.

Frees

Дата 10.4.2009, 15:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

Цитата(Anakin @ 10.4.2009, 17:00

)

Я Пробовал но у меня он когда считает то он считает и Копейки и рубли как одно

показывай как пробовал

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

Кольцов Виктор Владимирович

aliks

Дата 10.4.2009, 15:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Сделай так

Код


var
   rub: Real;
   kop: Real;
begin
   rub := StrToFloat(Edit1.text) + StrToFloat(Edit3.text);
   kop := StrToFloat(Edit2.text) + StrToFloat(Edit4.text);
   Edit5.text := FloatToStr( rub + Int(kop) )+','+frac(kop);
end;

Это сообщение отредактировал(а) aliks - 10.4.2009, 15:42

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

Любимая кнопка - F1, Любимое спасибо - Плюс в репутацию

Anakin

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

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

Загрузка ...

Бывалый

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

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

aliks,
Я попробовал но выдаёт по какойто пречине сообшение об ошибке

Incompatible types: 'String' and 'Extended'

Я вот тут подумал почему в этой строчке

Код


Edit5.text := FloatToStr( rub + Int(kop) )+','+frac(kop);

ты копейкам присвоил Int

А так в теориии должно сработать только почемуто ошибку выдаёт.

И можно по подробней об переменной Frac

Это сообщение отредактировал(а) Anakin - 10.4.2009, 17:19

Christoph

Дата 10.4.2009, 17:53 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

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

Int function
Returns the integer part of a real number.

Frac function
Returns the fractional part of a real number.

допиши FloatToStr(frac(kop))

мой вариант

Код


var
   rub: Real;
   kop: Real;
begin
   rub := StrToFloat(Edit1.text) + StrToFloat(Edit3.text);
   kop := StrToFloat(Edit2.text) + StrToFloat(Edit4.text);
   kop:=kop/100;                                                               // Переводим в рубли
   Edit5.text := FloatToStr( rub +kop);
end;

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

Anakin

Дата 10.4.2009, 18:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

aliks,
Christoph,
Спасибо вам. )) Помогло выручили.

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