|
Прочие вопросы Вопросы не касающиеся программирования (установка, настройка...) |
27.03.2012, 18:07
|
#1
|
Нуждающийся
Регистрация: 12.10.2009
Сообщений: 66
Написано 0 полезных сообщений (для 0 пользователей)
|
Преобразование типов переменных!
В справке написано как переводить из типа integer в string и обратно. Так же видел перевод из типа string в real, но вот обратно уже видимо невозможно? Или я не там смотрел?
или же я пишу
ch11:=StringToReal(formGetText(ch1));
где ch1:string а ch11 - real
Последний раз редактировалось reyn90, 27.03.2012 в 18:20.
Причина: не real в string a string в real
|
(Offline)
|
|
04.05.2012, 23:50
|
#2
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Преобразование типов переменных!
Парень, забей на переводы в стринг чего-либо...это глупость из всех глупостей.
program po; var x:real; begin drawtext(''+x,10,10); repaint; delay(10000); end.
__________________
G502, GT S5230w user!
|
(Offline)
|
|
05.05.2012, 00:28
|
#3
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Преобразование типов переменных!
Прямо в хелпе написано
Transforms the string into the real number. The second parameter is the base for transformation.
function StringToReal(str:string; base:integer):real;
|
|
(Offline)
|
|
07.05.2012, 12:21
|
#4
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Преобразование типов переменных!
Сообщение от AngeLvKedaX
Парень, забей на переводы в стринг чего-либо...это глупость из всех глупостей.
program po; var x:real; begin drawtext(''+x,10,10); repaint; delay(10000); end.
|
Не, в приципе делать можно и так, но тогда "1" превратиться в "1.0000". Кому это надо? Так что может это не глупость из глупостей, а?
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
07.05.2012, 12:22
|
#5
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Преобразование типов переменных!
Сообщение от ViNT
Прямо в хелпе написано
|
Как работает эта функция, одна из тайн Вселенной.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
07.05.2012, 12:31
|
#6
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Преобразование типов переменных!
А вообще можно изобрести велосипедную функцию.
Вотъ:
Function RtS (_a:real):string;
var
treal:real;
ts:string;
begin
treal:=_a;
treal:=treal-frac(treal);//убираем дробь
ts:=IntegerToString(trunc(treal))+'.';//челая часть числа+точка
treal:=frac(real)*10.0;//вычисляем дробь
treal:=treal-frac(treal);//убираем лишние знаки у дроби без округления (во избежании одного спецефического бага :В)
ts:=ts+IntegerToString((trunc(treal)*10.0));//число с точкой+дробь
RtS:=ts;
end;
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
07.05.2012, 23:36
|
#7
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Преобразование типов переменных!
Сообщение от PassCall
Как работает эта функция, одна из тайн Вселенной.
|
Почему же?
Код: drawText(''+StringToReal('-0.1234567891011121314',10), 0, 0);
Результат: -0.1234567891011121
(в режиме Floating-Point).
Более того, судя по всему, ей можно хоть HEX подсунуть, хоть BIN.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
08.05.2012, 13:09
|
#8
|
Разработчик
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений (для 319 пользователей)
|
Ответ: Преобразование типов переменных!
Сообщение от ViNT
Почему же?
Код: drawText(''+StringToReal('-0.1234567891011121314',10), 0, 0);
Результат: -0.1234567891011121
(в режиме Floating-Point).
Более того, судя по всему, ей можно хоть HEX подсунуть, хоть BIN.
|
Хм, точняк. Раньше не знал.
Но все таки иногда 1 знак после запятой лучше, чем 5.
__________________
Мечта программиста: запрограммировать процесс программирования.
Всё гениальное - просто.
http://passcall.ucoz.com
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:43.
|