forum.boolean.name - Подскажите пожалуйста-как строку в число перевести,?

forum.boolean.name (http://forum.boolean.name/index.php)

- Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)

Подскажите пожалуйста-как строку в число перевести,?

Функции VAL не нашел-ее убрали похоже из блица

Ответ: Подскажите пожалуйста-как строку в число перевести,?

int
Дело в том-что команда WG_ElementLabel$ (Element%) в гуи 512 возвращает строку,хотя я ее использую для сьема данных с текст бокса-куда будет вводиться именно число
Вывод-надо преобразовать то что придет с текст бокса-в число:-(

Ответ: Подскажите пожалуйста-как строку в число перевести,?

я конечно точно не помню, но помоему конструкции вида:

Код:

int("123")

float("123.456")

вернут именно числа. То есть если перед цифрами нет лишних символов - преобразование пройдёт корректно.

Ответ: Подскажите пожалуйста-как строку в число перевести,?

Цитата:

Сообщение от St_AnGer (Сообщение 284342)

я конечно точно не помню, но помоему конструкции вида:

Код:

int("123")

float("123.456")

вернут именно числа. То есть если перед цифрами нет лишних символов - преобразование пройдёт корректно.

Сработало!!!
ну и глуп же я!
Спасибо большое!

Ответ: Подскажите пожалуйста-как строку в число перевести,?

ёпрст, а я тут велосипеды клепаю

Код:

Function StrToInt(InputString$)

        For CharLoop = 1 To Len(InputString$)

                ThisChar$ = Mid$(InputString$, CharLoop, 1)

                IntDetected = False

                For IntChar = 48 To 57

                        If Asc(ThisChar) = IntChar IntDetected = True

                Next

                If IntDetected = False Return False

        Next

        Return Int(InputString)

End Function

P.S.
Сори за оффтоп, просто вопрос срочный, оставлю его в топовом,

blitz3D/xors3D ругается на END, причем только после того, как в программе был создан tcp сервер и закрыт более, чем 1 раз. Т.е. если один раз создать сервер, после чего закрыть, то на END ошибка не вылезает, но если после этого еще раз создавать сервер, то вот:

по коду примерно так:

Код:

SV_SERVER = CreateTCPServer(ServerPort)

после чего так:

Код:

If SV_SERVER CloseTCPServer(SV_SERVER)

Вопрос нужно решить срочно, заранее спасибо)

Ответ: Подскажите пожалуйста-как строку в число перевести,?

Написав сообщение сразу понял в чем дело:D
вообщем, если у сервера были клиенты, то перед его закрытием нужно пробежаться по ним и сделать CloseTCPStream
Может кому понадобиться:)