Конкурс на самый быстрый код!

[LAV45]

alexteam, говорят нет придела совершенству ))

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;

[xkor]

LAV45, ты вроде говорил что порядок байт тебе не важен, тогда можно без доп функций:

var ss: AnsiString; // хз зачем тебе именно string тут нужен был
begin
  ss := 'iden';
  case PCardinal(@ss[1])^ of 
    $6E656469:; // iden
  end;
end;

[LAV45]

xkor the best, ты хочешь сказать самая лудшая функция это её отсутствие )))))) "точняк"
биг спс.

А вообще пака редактировал эту функцию заметил что asm код абсолютно не менялся, по всей видимости мы с компиляторам нашли общий язык и ему что масла масленое, масленое масло, до фонаря.

Редактировать больше нечего, тему можно закрыть.