Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.021 c
8-35391
-=Dimedrol=-
2002-04-07 10:36
2002.08.12
Примитивы в DelphiX


4-35501
dim-
2002-06-03 17:48
2002.08.12
Запуск ScreenSavera


4-35512
Help
2002-06-03 16:15
2002.08.12
HTML Title


1-35376
Aleksandr
2002-07-30 17:47
2002.08.12
Люди, что случилось с модулем classes?


6-35395
Donal_Graeme
2002-05-28 13:43
2002.08.12
ICMP Ping





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский