unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DateUtils;

const
  TestCount = 10000000;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Test(Sender: TObject);
    procedure ReadFile;
    procedure StartCode;
    procedure StartCodeTBytes;
    procedure BeginTime;
    function EndTime: string;
  private
    { Private declarations }
  public
    StartTime, StopTime: Int64;
    iCounterPerSec: Int64;

    FFile: TFileStream;
    BFile: TBytes;
    Dlina, Addr: Integer;
  end;

var
  Form1: TForm1;
  I, m: Integer;

implementation

{$R *.dfm}

procedure TForm1.BeginTime;
begin
  QueryPerformanceCounter(StartTime);
end;

function TForm1.EndTime: string;
begin
  if QueryPerformanceCounter(StopTime) and QueryPerformanceFrequency
    (iCounterPerSec) then
    Result := Format('%.6f', [(StopTime - StartTime) / iCounterPerSec]);
end;

function HexToByte(const Value: Byte): Byte;
begin
  Result := (Value or $20) - Byte('0');
  if (Result > 9) then
    Dec(Result, Ord('a') - Ord('0') - 10);
end;

procedure TForm1.ReadFile;
begin
  if not OpenDialog1.Execute then
    exit;

  FFile := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  try
    SetLength(BFile, FFile.Size);
    FFile.ReadBuffer(BFile, FFile.Size);
  finally
    FFile.Free;
  end;

  Addr := 0;
  Dlina := 6;

end;

procedure TForm1.StartCode;
var
  RawString: RawByteString;
  PSimvol: Byte;
  x: Byte;
begin
  SetLength(RawString, Dlina);
  for I := 1 to TestCount do
  begin
    for m := 0 to Dlina - 1 do
    begin
      x := Addr + m * 2;
      PSimvol := (HexToByte(BFile[x]) shl 4) + HexToByte(BFile[x + 1]);

      RawString[m + 1] := AnsiChar(PSimvol);
    end;
  end;
end;

procedure TForm1.StartCodeTBytes;
var
  ArrBytes: TBytes;
  PSimvol: Byte;
  x: Byte;
begin
  SetLength(ArrBytes, Dlina);
  for I := 1 to TestCount do
  begin
    for m := 0 to Dlina - 1 do
    begin
      x := Addr + m * 2;
      ArrBytes[m + 1] := (HexToByte(BFile[x]) shl 4) + HexToByte(BFile[x + 1]);
    end;
  end;
end;

procedure TForm1.Test(Sender: TObject);
begin
  ReadFile;

  BeginTime;
  StartCode;
  Memo1.Lines.Add('StartCode: ' + EndTime);

  BeginTime;
  StartCodeTBytes;
  Memo1.Lines.Add('StartCodeTBytes: ' + EndTime);

end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DateUtils;

const
  TestCount = 10000000;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Test(Sender: TObject);
    procedure ReadFile;
    procedure StartCodeTestHexToByte;
    procedure StartCode;
    procedure StartCodeAsm;
    procedure BeginTime;
    function EndTime: string;
  private
    { Private declarations }
  public
    StartTime, StopTime: Int64;
    iCounterPerSec: Int64;

    FFile: TFileStream;
    BFile: TBytes;
    Dlina, Addr: Integer;
  end;

var
  Form1: TForm1;
  I, m: Integer;

implementation

{$R *.dfm}

procedure TForm1.BeginTime;
begin
  QueryPerformanceCounter(StartTime);
end;

function TForm1.EndTime: string;
begin
  if QueryPerformanceCounter(StopTime) and QueryPerformanceFrequency
    (iCounterPerSec) then
    Result := Format('%.6f', [(StopTime - StartTime) / iCounterPerSec]);
end;

function HexToByteAsmSOFTFORYOU(const Value: Cardinal): Cardinal;
asm
  or eax, $20
  lea ecx, [eax - $57]
  cmp eax, $39
  lea eax, [eax - $30]
  cmova eax, ecx
end;

function HexToByteSOFTFORYOU(Value: Integer { Word } ): Integer;
begin
  Result := (Value - $3030) + ((Value and $4040) shr 6) * -$27;
end;

function TestHexToByte(Value: Byte): Byte;
asm
  mov ecx, eax
  shr ecx, 6
  and ecx, 257
  imul ecx, ecx, -39
  lea eax, [eax + ecx - 12336]
end;

procedure TForm1.ReadFile;
begin
  if not OpenDialog1.Execute then
    exit;

  FFile := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
  try
    SetLength(BFile, FFile.Size);
    FFile.ReadBuffer(BFile, FFile.Size);
  finally
    FFile.Free;
  end;

  Addr := 0;
  Dlina := 6;

end;

procedure TForm1.StartCodeAsm;
var
  ArrBytes: TBytes;
  PSimvol: Byte;
  x: Byte;
begin
  SetLength(ArrBytes, Dlina);
  for I := 1 to TestCount do
  begin
    for m := 0 to Dlina - 1 do
    begin
      x := Addr + m * 2;
      ArrBytes[m + 1] := (HexToByteAsmSOFTFORYOU(BFile[x]) shl 4) +
        HexToByteAsmSOFTFORYOU(BFile[x + 1]);
    end;
  end;
end;

procedure TForm1.StartCode;
var
  ArrBytes: TBytes;
  PSimvol: Byte;
  x: Byte;
begin
  SetLength(ArrBytes, Dlina);
  for I := 1 to TestCount do
  begin
    for m := 0 to Dlina - 1 do
    begin
      x := Addr + m * 2;
      ArrBytes[m + 1] := (HexToByteSOFTFORYOU(BFile[x]) shl 4) +
        HexToByteSOFTFORYOU(BFile[x + 1]);
    end;
  end;
end;

procedure TForm1.StartCodeTestHexToByte;
var
  ArrBytes: TBytes;
  PSimvol: Byte;
  x: Byte;
begin
  SetLength(ArrBytes, Dlina);
  for I := 1 to TestCount do
  begin
    for m := 0 to Dlina - 1 do
    begin
      x := Addr + m * 2;
      ArrBytes[m + 1] := (TestHexToByte(BFile[x]) shl 4) +
        TestHexToByte(BFile[x + 1]);
    end;
  end;
end;

procedure TForm1.Test(Sender: TObject);
begin

  ReadFile;

  BeginTime;
  StartCodeAsm;
  Memo1.Lines.add('SOFT FOR YOU Asm: ' + EndTime);

  BeginTime;
  StartCode;
  Memo1.Lines.add('SOFT FOR YOU Code: ' + EndTime);

  BeginTime;
  StartCodeTestHexToByte;
  Memo1.Lines.add('MyAsm: ' + EndTime);

end;

end.