ёпрст, а я тут велосипеды клепаю
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)
Вопрос нужно решить срочно, заранее спасибо)