alexteam, говорят нет придела совершенству ))
Delphi Код:
Function GetInt(const ss: pointer):integer;
var tmp: array[0..3] of byte absolute result;
sm: array[0..7] of byte;
begin
^sm := ss; // - хз как тут правильно сделать
// используя чуть больше памяти мы ограничиваемся простым переносом
// байт из одного массива в другой
tmp[3] := sm[0];
tmp[2] := sm[2];
tmp[1] := sm[4];
tmp[0] := sm[6];
end;
..........
var ss: string;
begin
ss := 'iden';
case GetInt(pionter(copy(ss,1,4))) of
$6964656E:; // iden
end;
end;