Помогите пожалуйста чайнику!

← →
Не зарегистрированный чайник (2002-07-29 19:44) [0]

Вчера начал изучать Delphi, сейчас решил написать одну простенькую прогу, так вот в чем дело. есть 3 edit поля, надо что бы значения 2-х полей скаладывались, а ответ выводился в edit3.так как обязательно должны получаться дробные числа пишу:
var: a,b,c:real;
edit3.Text:= FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
внимание вопрос!
как можно сделать что бы не писать каждый раз FloatToStr,StrToFloat и т.п. ??? т.к. в будущем придеться скаладывать 10,12,32,43,365.... чисел. Можно ли это как то в начале проги написать, что бы все String пререводились во float и тд?
спасибо за ответ! извините за глупый вопрос, просто книги, под рукой нету...-( но скоро появится.

← →
VEG © (2002-07-29 21:00) [1]

Пиши функцию:
Function StrPlus(NumOne, NumTwo:String):String;
begin
Result:=FloatToStr(StrToFloat(NumOne) + StrToFloat(NumTwo));
end;

А в проге пиши:
edit3.Text:=StrPlus(Edit1.Text, Edit2.Text);

И книга сдесь не при чем! Раз знаешь об FloatToStr b StrToFloat то должен знать и об функциях!

Еж - птица гордая. Не пнешь - не полетит...

← →
PVOzerski © (2002-07-29 21:02) [2]

>как можно сделать что бы не писать каждый раз
>FloatToStr,StrToFloat и т.п. ??? т.к. в будущем придеться
>скаладывать 10,12,32,43,365.... чисел. Можно ли это как то в
>начале проги написать

1) Но ведь когда Вы этой прогой будете пользоваться, Вам же не надо будет заново набивать её текст, а просто вводить числа в edit"ы. Так что Ваша проблема выглядит надуманной.
2) Если же подобное действие действительно нужно вставить в разных местах программы, то можно сделать, скажем, такую функцию:

function StrPlus(const x,y:string):string;
begin
StrPlus:=FloatToStr(StrToFloat(x)+StrToFloat(y));
end;

а потом вызывать её наподобие
edit3.Text:=StrPlus(Edit1.Text,Edit2.Text);

← →
PVOzerski © (2002-07-29 21:03) [3]

2VEG © :
И кто из нас телепат? :^))))

← →
VEG © (2002-07-29 21:12) [4]

Я написал раньше, значит ТЫ!:-)

← →
Не зарегистрированный чайник (2002-07-29 23:06) [5]

И тут же у меня возник вопрос, теперь как сумму разделить на два/любое дргое число? подстановака в конце /"2" не помогает.-( перепробровал кучу вариантов. спасибо за ответы. еще раз прошу прощения за ламерность.

← →
alena.svt (2002-07-29 23:14) [6]

div

Помогите пожалуйста чайнику! Найти похожие ветки