Как перевести число из 256 системы счисления в десятичную ?

[alexprey]

Ну суть вопроса в заголовке. Как перевести строчку, в которой записано число в 256 cc, в 10 cc
Использую вот такую функцию, но почему то получается отрицательное число

function Pow(c,s: integer): integer;
 var i: integer;
begin
 Result:= c;
 if s = 1 then exit;
 if s = 0 then
 begin
  Result:= 1;
  exit;
 end;
 for i:= 2 to s do
  Result:= Result*c;
end;

function RawCodeToInt(raw: string): integer;
 var i,l: integer;
begin
 Result:= 0;
 l:= Length(raw);
 for i:= 1 to l do
  Result:= Result+Byte(raw[i])*Pow(256,l-1);
end;

Что за бредовое название ? "Base256 -> Base10"
Исправил. Неужели сразу нельзя было написать по-человечески ?

[ImmortalAlexSan]

Вот так надо в теории:
256 в 10:

J=21; R=18;
JR50=0*256^0+5*256^1+R*256^2+J*256^3=0+1280+1179648+352321536=353502464

10 в 256:

353502464/256=1380869 (остаток 0)
1380869/256=5394 (остаток 5)
5394/256=21 (остаток 18)
Итог: 21,18,5,0, с учетом условий: JR50

Все просто, думаю написать программу будет не сложно.

[alexprey]

ну там символ соответствует Ansi коду, ошибка где то у меня в вычислениях, а где не пойму

[ImmortalAlexSan]

Вот смотрите. Ord - конвертирует любой тип в число (в вашем случае - символ типа Char или PChar не важно), Chr - число в символ. Корректно для конвертации эти функции вы использовать не сможете, так как в таблице ASCII встречаются символы, которые визуально вы не увидите, как получить их значение - я увы не знаю, так что придется сделать поправку на ошибку с перечислением и переводом только тех символов, чьи значения в таблице больше 15-ти. Т.е. (0,1,2...F)=(0,1,2...15) забить в массив, от куда их и извлекать.

[ImmortalAlexSan]

Вообще... Вот вам мой личный модуль с переводом в двоичную СС из 10-ой и обратно (только для типа Byte), дальше сами думаю разберетесь, поменяете парочку строк и готово.

[alexprey]

Пример, что в первом посте не подходит, так как
J = 74
R = 82
У меня raw строгой длинны (4 символа)
Когда я попробовал сделать так

Byte(raw[1])*256*256*256+Byte(raw[2])*256*256+Byte(raw[3])*256+Byte(raw[4])

То все стало нормально.