| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как внести в TEdit результат расчета

ser35 ©   (2005-02-25 11:00:00) 

Подскажите, как просуммировать несколько чисел в TEdit-ах а результаты занести в другой TEdit.

---

Eleonore   (2005-02-25 12:01:00) [1]

procedure TFrmIns.EditCursExit(Sender: TObject);
begin
 FrmIns.EditValuta.Text := FloatToStr(StrToFloat(EditSumRubl.Text) /
                 StrToFloat(EditCurs.Text));
 if StrToFloat(EditCurs.Text)=0 then
    EditCurs.Text:='1';  // по умолчанию - рубли
end;

procedure TFrmIns.EditCursKeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9','.','-',#8,#13]) then Key:=#0;
end;


---

DiamondShark   (2005-02-25 11:07:00) [2]

В TEdit-ах нет чисел, там есть строки.
Строки в числа преобразуются функциями преобразования, для каждого типа чисел своей.
Числа суммируются операцией +.
Числа в строки преобразуются другими функциями преобразования.
Узнать, какие существуют функции преобразования можно набрав в индексе справки заклинание type conversion routines.

---

Юрий Зотов   (2005-02-25 11:04:00) [3]

F1 - TEdit.Text, StrToInt, IntToStr, StrToFloat, FloatToStr.

---

Плохиш   (2005-02-25 11:04:00) [4]

StrToInt(Float); +; Int(Float)ToStr; :=

PS. Обычно начинают учится программированию с чтения литературы.

---

Наверх