Помогите бедному ламеру!!!

← →
Lamerok (2002-11-12 18:43) [0]

Простите за тупой вопрос, но как сложить дробные числа?
Заранее спасибо.

← →
SaS13 (2002-11-12 18:46) [1]

вспоминаем математику, приводим к общему знаменателю...

← →
Lamerok (2002-11-12 18:52) [2]

>>вспоминаем математику, приводим к общему знаменателю...

у меня две переменные x и y , которые вводятся в TEdit , но проблема в том, что при вводе (напримнр) 1.2 + 4.6 возникает ошибка. Или я что-то не так делаю.

← →
Lamerok (2002-11-12 18:56) [3]

Конечно можно ещё и так

var
x,y,z: integer;
begin
X:= StrToInt(Trim(Edit1.Text));
Y:= StrToInt(Trim(Edit2.Text));
Z:= StrToInt(Trim(Edit3.Text));

Memo1.Lines.Add(IntToStr(X)+"."+IntToStr(Y)+"+"+IntToStr(z)+"="+
FloatToStr(x+z)+"."+FloatToStr(y));

Но это очень нудно, может есть какая то процедура??

← →
OlegMoscow (2002-11-12 18:57) [4]

если ошибка - значит действительно что то не так :)
покажи как ты делаешь? по идее элементарно:

var
vResult:double;
begin
vResult:=StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
end;

и еще - глянь в региональных установках - какой символ у тебя используется как разделитель целой и дробной части (точка или запятая)

← →
Новенький в Делфи (2002-11-13 03:46) [5]

2 Lamerok
В Делфи Integer это тип целых чисел.
Но есть ещё тип дробных чисел например Real
и соответственно ф-ции для преобразования другие будут

потому пишешь
var
x,y,z: real;
begin
x:= StrToFloat(edit1.text);
y:= StrToFloat(edit2.text);
z:=x+y;
Memo1.lines.add(FLoatToStr(z));

или всё более сокращённо как написал OlegMoscow

Помогите бедному ламеру!!! Найти похожие ветки