Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
15.07.2008, 12:52
|
|
Новичок
Регистрация: 27.06.2008
Сообщений: 22
Провел на форуме:
148226
Репутация:
19
|
|
(Delphi)Наверное самый тупой вопрос что был...Эх,ну я новичок,мне положено тупое постить 
Я писал программу типа Hello Word,тока я предпочёл написать калькулятор вместо этого...
В общем там такое дело:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToInt(Edit1.Text);
p:=StrToInt(Edit2.Text);
sum:=e+p;
Edit3.Text:=IntToStr(sum);
end;
В общем я знаю что код можно сократить,он не умно сделан и т.п. но смысл не в этом,дело в том что если ввести дробное число например 2.5 и 3.5,то приложение выдаст ошибку,тоесть тут надо юзать Real....вот это я и незнаю,как перевести String в Real,наподобие StrToInt...Я пробовал StrToReal-вроде не работает.*DONT_KNOW* |
|
|
15.07.2008, 13:41
|
|
Познающий
Регистрация: 12.12.2007
Сообщений: 81
Провел на форуме:
589075
Репутация:
53
|
|
strtofloat , floattostr тебе в помощь
|
|
|
|
15.07.2008, 13:56
|
|
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138
Репутация:
476
|
|
У меня были вроде где-то сорцы калькуля сам когда-то писал, напиши вечером в ЛС тебе скину, ЗЫ щя не могу просто на работе(
|
|
|
|
15.07.2008, 15:54
|
|
Познающий
Регистрация: 30.04.2007
Сообщений: 77
Провел на форуме:
393625
Репутация:
50
|
|
Taktik
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToReal(Edit1.Text, 3);
p:=StrToReal(Edit2.Text, 3);
sum:=e+p;
Edit3.Text:=RealToStr(sum, 3);
end;
Вобщем, насколько я знаю, в функциях RealToStr и StrToReal есть два параметра:
1) переменная для преобразования
2) число знаков после запятой
p.s. код не проверял и возможно ошибаюсь писал на память Delphi под рукой нет.
|
|
|
|
15.07.2008, 17:20
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от FIND_ERROR
Taktik
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
e:=StrToReal(Edit1.Text, 3);
p:=StrToReal(Edit2.Text, 3);
sum:=e+p;
Edit3.Text:=RealToStr(sum, 3);
end;
Вобщем, насколько я знаю, в функциях RealToStr и StrToReal есть два параметра:
1) переменная для преобразования
2) число знаков после запятой
p.s. код не проверял и возможно ошибаюсь писал на память Delphi под рукой нет.
увы ты ощибаешся, такой ф-ции - нету и не может быть. Для выполнения задачи ТС нужно использовать floattostr strtofloat ...
Добавлено
Такой ф-ций нету в стандартной Sysutils.dcu
Последний раз редактировалось z01b; 15.07.2008 в 17:44..
|
|
|
|
15.07.2008, 17:31
|
|
Banned
Регистрация: 16.07.2007
Сообщений: 79
Провел на форуме:
801879
Репутация:
337
|
|
Сообщение от z01b
такой ф-ции - нету и не может быть
Почему???)))))) А модуль если сделать?!?!?! =)
Ток зачем??? =)
Taktik,
Программы от скуки
|
|
|
|
15.07.2008, 22:29
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Почему???)))))) А модуль если сделать?!?!?! =)
Зачем изобретать велосипед??? z01b правильно сказал)
|
|
|
|
17.07.2008, 18:18
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Подскажите плиз, у меня вместо цикла юзается вот этот код:
if source.Count>0 then
типа цикл такой, и как вместе с ним заставить работать прогрессбар???
чтобы от и до показывал процесс выполнения всего цикла.
|
|
|
|
17.07.2008, 18:23
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
ProgressBar1.Max:=source.Count;
if source.Count>0 then
begin
...
ProgressBar1.StepIt;
end;
типа того, если я еще не забыл, то StepIt это инкремент на единицу...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
17.07.2008, 18:55
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
после ProgressBar1.StepIt; может портебоваться ещё вставить
Application.ProcessMessages; чтоб форма перересовывалась
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
