Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
ВнизКак внести в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.055 c