ник: час
Дожили блин....... ну мелкосовтовцы, ну нвкрутили с новым офисом......... одни недоразумения.....
А построителя выражений там наверное и близко нет.
Я имею ввиду старый добрый TsiXpr90.dl
А насчёт #FFFFFF - может функция какая есть - для перевода в dec
вот тут что то попалось
function StrHexToInt(s: string): Integer;
var
i, n, b: Integer;
function Exponentation(num, level: Integer): Integer;
begin
case level of
0: Result := 1;
1: Result := num;
else
Result := num*Exponentation(num, level - 1);
end;
end;
function GetNumByChar(c: char): Integer;
begin
case c of
'0': Result := 0;
'1': Result := 1;
'2': Result := 2;
'3': Result := 3;
'4': Result := 4;
'5': Result := 5;
'6': Result := 6;
'7': Result := 7;
'8': Result := 8;
'9': Result := 9;
'A': Result := 10;
'B': Result := 11;
'C': Result := 12;
'D': Result := 13;
'E': Result := 14;
'F': Result := 15;
else
Result := -1;
end;
end;
begin
s := UpperCase(s);
n := length(s);
if n > 8 then
begin
Result := -1;
Exit;
end;
Result := 0;
for i := n downto 1 do
begin
b := GetNumByChar(s[i]);
if b = -1 then
begin
Result := -1;
Exit;
end;
Result := Result + Exponentation(16, n - i)*b;
end;
end;
но это на С
взято http://www.wasm.ru/forum/viewtopic.php?id=12188