Проблема с кодом в Pascal: ошибка преобразования типа byte к string

[THE LOGOS]

Ни знаю в чем проблема ( ну хотя знаю , не знаю как решить ! !! ) , проблема происходит в 111 строке , проблема с типами данных,
"Нельзя преобразовать тип byte к string" ! Как исправит ошибку !? !? ?!

[Stilet]

function two(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
   if (x and 1)=0 then s:='0'+s else s:='1'+s;
   x:=x shr 1
  end;
two:=s;
end;

Так лучше?

[THE LOGOS]

тоже подойдет ! спасибо , а у меня еще 2 вопроса :
1) не подскажете как мне сделать чтобы при вводе можно было ввести только цифры , а буквы нельзя ? ( если можно то подробно)
2 есть ли способ как перевести тип byte в string 1!? и обратно ?

[Stilet]

1) При вводе врядли получится. Только после ввода проверку поставь - val() этим занимается.
2) Зачем перевод делать?

[THE LOGOS]

1)Эм а как сделать через val !?
2) заметил что не корректно работает программа ... :С

[Stilet]

1)Эм а как сделать через val !?

var i,e:integer;
...
val(s,i,e);
if e<>0 then в строке s не число

Читай хелп про эту процедуру

[THE LOGOS]

я по гуглил про процедуру val , и как то не понял как ее можно использовать , и разве val не преобразовывает строковое значение в его числовое представление !?

[Stilet]

Преобразовывает, и если не может преобразовать, то в третий параметр возвращает номер нечислового символа.
Тебе же это надо? Чтоб вычленяло только цифры?

[Аватар]

val не только конвертирует строку в интежер, но и сигнализирует о не подходящих данных для конвертации. Вот так и контролируйте при вводе на допустимые данные

[THE LOGOS]

мне надо , что бы после того как ввел буквы в окно программы , она ругалась и и кричала со словами мол это ни фига не цифры , не буду работать !( это как бы шутка, но от части мне именно это и надо , что бы программа выводила ошибку когда вводишь не цифры а буквы )