Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите пожалуйста чайнику! [D6, WinXP]

Не зарегистрированный чайник © (2002-07-29 19:44:00)
Вчера начал изучать 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 и тд?
спасибо за ответ! извините за глупый вопрос, просто книги, под рукой нету...-( но скоро появится.

alena.svt (2002-07-29 23:14:00) [1]
div

Не зарегистрированный чайник (2002-07-29 23:06:00) [2]
И тут же у меня возник вопрос, теперь как сумму разделить на два/любое дргое число? подстановака в конце /"2" не помогает.-( перепробровал кучу вариантов. спасибо за ответы. еще раз прошу прощения за ламерность.

VEG (2002-07-29 21:12:00) [3]
Я написал раньше, значит ТЫ!:-)

PVOzerski (2002-07-29 21:03:00) [4]
2VEG © :
И кто из нас телепат? :^))))

PVOzerski (2002-07-29 21:02:00) [5]
>как можно сделать что бы не писать каждый раз
>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);

VEG (2002-07-29 21:00:00) [6]
Пиши функцию:
Function StrPlus(NumOne, NumTwo:String):String;
begin
Result:=FloatToStr(StrToFloat(NumOne) + StrToFloat(NumTwo));
end;

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

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

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

Наверх

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