[Владислав]

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

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)

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