Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Вниз
Помогите пожалуйста чайнику! Найти похожие ветки
← →
Не зарегистрированный чайник (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
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c