Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Как внести в TEdit результат расчета   Найти похожие ветки 

 
ser35   (2005-02-25 11:00) [0]

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


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

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


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

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

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


 
DiamondShark ©   (2005-02-25 11:07) [3]

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


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

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;



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
3-1108030793
Aleksandr.
2005-02-10 13:19
2005.03.13
Что будет быстрее?


14-1108885148
__max__
2005-02-20 10:39
2005.03.13
Шифрование файлов в ф.с. NTFS


3-1108060910
Step[B.M.]
2005-02-10 21:41
2005.03.13
Как заставить FireBird сортировать кирилицу по "человечески"?


3-1108142602
Вовик
2005-02-11 20:23
2005.03.13
Из Excel в DBGrid


6-1105183435
Iraizor
2005-01-08 14:23
2005.03.13
Программно закрыть сетевое соединение?