Тема: Delphi xe Поможіть виправити ошибку
function HEX2DEC(HEX: string): LONGINT;
function Digt(Ch: CHAR): BYTE;
const
HEXDigts: string[16] = '0123456789ABCDEF';
var
I: integer;
N: BYTE;
begin
N := 0;
for I := 1 to Length(HEXDigts) do
if Ch = HEXDigts[i] then // тут ошибка
N := I - 1;
Digt := N;
end;
const
HEXSet: set of CHAR = ['0' .. '9', 'A' .. 'F'];
var
J: LONGINT;
Error: BOOLEAN;
DEC: LONGINT;
begin
DEC := 0;
Error := False;
for J := 1 to Length(HEX) do
begin
if not(UpCase(HEX[J]) in HEXSet) then
Error := True;
DEC := DEC + Digt(UpCase(HEX[J])) shl ((Length(HEX) - J) * 4);
end;
if Error then
HEX2DEC := 0
else
HEX2DEC := DEC;
end;
Видає ошибку Operator not applicable to this operand type