LAV45, ты вроде говорил что порядок байт тебе не важен, тогда можно без доп функций:
delphi Код:
var ss: AnsiString; // хз зачем тебе именно string тут нужен был
begin
ss := 'iden';
case PCardinal(@ss[1])^ of
$6E656469:; // iden
end;
end;
__________________
Я здесь практически не появляюсь!, Skype - ikskor
Последний раз редактировалось xkor, 14.11.2010 в 22:54.
|