Система счисления

[artemavd]

Доброго врмени суток! Вопрос по переводу из одной системы счисления в другую. Не получается сделать правильный перевод. Вот, иходник. Нужно что. Нужно, чтобы в первый Edit1 вводилось например число 8950000000, а в Form1.Caption отображалось его двоичный вид. И чтобы в Edit2 вводится двоичный вид, то в Form1.Caption отображался его десятичный вид, т.е. 8950000000. Но, исходник мой не работает

[_-Re@l-_]

например число 8950000000

При вводе этого числа у меня выдаёт ошибку типа 8950000000 is not valid integer value. Решение - используйте longint.
А для обычных чисел из диапазона integer всё прекрасно работает(всё нормально отображается в Form1.Caption)

[artemavd]

Применил этот тип, но ошибка все равно выдается:

procedure TForm1.Button1Click(Sender: TObject);
var
result:string;
dec:longint;
begin
dec:=StrToInt(Edit1.Text);
result:='';
While dec>0 do
begin
  if Odd(dec) then result:='1'+result
  else result:='0'+result;
  dec:=dec shr 1;
end;
if result='' then result:='0';
Form1.Caption:=result;
end;

[zumm]

мб Extendet поможет?

[_-Re@l-_]

мб Extendet поможет?

Не а, extended вещественный

[artemavd]

Все равно не работает

[_-Re@l-_]

А я вот тут подумал: оно вам надо 8950000000 переводить в двоичную систему?Как по-моему, так числе из диапазона -32767...+32767 вполне достаточно

[artemavd]

Нужно именно такие числа . Полагаю, что это невозможно будет сделать.

[eoln]

Цитата из файла SysUtils

function StrToInt(const S: string): Integer;

Заменяем StrToInt на старый добрый val(Edit1.Text, dec, q); или StrToInt64
Ну и как заметил _-Re@l-_, увеличиваем интервал. Только не longint, а int64.

[Пепел Феникса]

_-Re@l-_, longint=integer
не применяй паскаль к Делфи.

мы давно уже не в 16-битке живем