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

[LAV45]

Есть функция

Function GetInt(const ss:string):integer;
var i:byte; tmp:string;
begin
  for i := 1 to length(ss) do Insert(IntToHex(ord(ss[i]),2),tmp,i*2);
  result := StrToInt('$'+tmp); 
end;

//ss = 'cons' = #$63#0 #$6F#0 #$6E#0 #$73#0
//tmp = '636F6E73'
//result = $636F6E73 
 

Реально ли через Move() написать ?

[alexteam]

Function GetInt(const str:string):integer;
var
  Tmp: array[0..4] of byte absolute result;
begin
  move(str[1],tmp[3],1);
  move(str[2],tmp[2],1);
  move(str[3],tmp[1],1);
  move(str[4],tmp[0],1);
end;

естественно нужно учитывать что во входящей строке должно быть 4 байта (инт).

[xkor]

alexteam, типа сделал то что попросили?)
LAV45, вот так будет наиболее быстро и с проверками на размер строки:

function GetInt(const s: string): Integer;
var
  r: array[0..3] of Char absolute Result;
  i, c: Integer;
begin
  Result := 0;
  c := Length(s);
  if c > 4 then c := 4;
  for i := 4 - c to 3 do r[i] := s[4 - i];
end;

[alexteam]

точна, можно было "оф чар" сделать. и тупо присваивания, не вызывая функцию!

[LAV45]

Сообщение от alexteam

точна, можно было "оф чар" сделать. и тупо присваивания, не вызывая функцию!

Это как ? ))
xkor, с проверкой на длину строки это я погорячился, да и парядок байт менять на обратный не обязательна.

Данная функция нужна для работы со спроками используя case

str := copy(s,idx,4);
case GetInt(str) of
  ......
end;

вариант с TStringList по моему как-то жирно тут выглядит

str := copy(s,idx,4);
case tag.IndexOf(str) of
  ......
end;

initialization
  tag := TStringList.Create;
  tag.CommaText := 'трам,пам ,пам';
finalization
  tag.Free;

[alexteam]

это типо так.

Function GetInt(const str:string):integer;
var
  Tmp: array[0..4] of char absolute result;
begin
  tmp[3] := srt[1];
  tmp[2] := srt[2];
  tmp[1] := srt[3];
  tmp[0] := srt[4];
end;

[LAV45]

Всем биг спс ))

ss то у нас #$63#0 #$6F#0 #$6E#0 #$73#0
если использывать Tmp: array[0..3] of char absolute result;
#0 остаются и на выходе получаем $63006F00

Вот так лучше будет

Function GetInt(const ss:string):integer;
var tmp: array[0..3] of byte absolute result;
begin
  tmp[3] := ord(ss[1]);
  tmp[2] := ord(ss[2]);
  tmp[1] := ord(ss[3]);
  tmp[0] := ord(ss[4]);
end;

[alexteam]

и чем оно отличаеццо ?

[unknowned]

Сообщение от alexteam

и чем оно отличаеццо ?

Как думаешь, чем отличается в юникод системе char от байта ?

[alexteam]

интересно, где ты в коде нашел файдчар\вайдстринг, чтобы такие вопросы задавать.
на входе анси строка.