unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Diagnostics;

type

  ApChar = AnsiChar;
  ApString = AnsiString;
  ApPChar = PAnsiChar;

  TCommatFunc = function(s: ApString): ApString;

  TForm1 = class(TForm)
    btnCommaToPoint: TButton;
    mmo1: TMemo;
    mmo2: TMemo;
    btnFill: TButton;
    btnTest: TButton;
    procedure btnCommaToPointClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnFillClick(Sender: TObject);
    procedure btnTestClick(Sender: TObject);
  private
    { Private declarations }
     function RunFunc(Func: TCommatFunc): Int64;

    procedure FillRandomText(const iFactor, iCharCount: Integer);
  public
    { Public declarations }
  end;

const
  CNT_RUN = 50000;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function ForkReplaceC_lodsw(s: ApString): ApString;
const
  COMMA_ = ',';
  DOT_ = '.';
begin
  Result := s;

  asm
    Push  ESI
    Push  EBX

    Mov   EAX,Result
    Or    EAX,EAX
    Jz    @Exit
    Mov   ESI,[EAX]
    Or    ESI,ESI
    Jz    @Exit

    Mov   BH,COMMA_
    Mov   BL,DOT_
    Cmp   AH,BL
    Jz    @Exit

    Mov   ECX,[ESI-4]
    Jecxz @Exit
    push ECX

    shr ECX,1

    Cld
  @Next:
    Lodsw
    Cmp   AH,BH
    Jne   @Skip1
    Mov   [ESI-1],BL
  @Skip1:
    Cmp   AL,BH
    Jne   @Skip
    Mov   [ESI-2],BL
  @Skip:
    Dec   ECX
    Jnz   @Next

    // ------------------------
    pop ECX
    and ECX,2
    jz @Exit
  @Next20:
    Lodsb
    Cmp   AH,BH
    Jne   @Skip20
    Mov   [ESI-1],BL
  @Skip20:
    Dec   ECX
    Jnz   @Next20
  @Exit:
    Pop  EBX
    Pop  ESI

  end;
end;


function ForkReplaceC_lodsw_FIX(s: ApString): ApString;
const
  COMMA_ = ',';
  DOT_ = '.';
begin
  Result := s;

  asm
    Push  ESI
    Push  EBX

    Mov   EAX,Result
    Or    EAX,EAX
    Jz    @Exit
    Mov   ESI,[EAX]
    Or    ESI,ESI
    Jz    @Exit

    Mov   BH,COMMA_
    Mov   BL,DOT_
    Cmp   AH,BL
    Jz    @Exit

    Mov   ECX,[ESI-4]
    Jecxz @Exit
    push ECX

    shr ECX,1

    Cld
  @Next:
    Lodsw
    Cmp   AH,BH
    Jne   @Skip1
    Mov   [ESI-1],BL
  @Skip1:
    Cmp   AL,BH
    Jne   @Skip
    Mov   [ESI-2],BL
  @Skip:
    Dec   ECX
    Jnz   @Next

    // ------------------------
    pop ECX
    and ECX,2
    jz @Exit
  @Next20:
    Lodsb
    Cmp   AH,BH
    Jne   @Skip20
    Mov   [ESI-1],BL
  @Skip20:
    Dec   ECX
    Jnz   @Next20
  @Exit:
    Pop  EBX
    Pop  ESI

  end;
end;

function PEnd(const s: ApString): ApString;
const
  COMMA_ = ',';
  DOT_ = '.';
var
  P: ApPChar;
  PEnd: Pointer;
begin
  Result := s;
  P := Pointer(Result);
  PEnd := P + Length(s);
  while P < PEnd do
  begin
    if P^ = COMMA_ then
      P^ := DOT_;
    Inc(P);
  end;
end;


function PEnd_ASM(const s: ApString): ApString;
asm
// Unit1.pas.175: begin
                          push ebp
                          mov ebp,esp
                          push ebx
                          push esi
                          mov esi,edx
                          mov ebx,eax
//Unit1.pas.176: Result := s;
                          mov eax,esi
                          mov edx,ebx
                          call System.@LStrAsg
//Unit1.pas.177: P := Pointer(Result);
                          mov eax,[esi]
//Unit1.pas.178: PEnd := P + Length(s);
                          mov edx,ebx
                          test edx,edx
                          jz @005d2c0b
                          sub edx,$04
                          mov edx,[edx]
@005d2c0b:
                          add edx,eax

                          mov esi, $2e //--


//Unit1.pas.179: while P < PEnd do
                          cmp edx,eax
                          jbe @005d2c1e
//Unit1.pas.181: if P^ = COMMA_ then
@005d2c11:
{
                          cmp byte ptr [eax],$2c
                          jnz @005d2c19
//Unit1.pas.182: P^ := DOT_;
                          mov byte ptr [eax],$2e
}
//--
//                         cmp byte ptr [eax],$2c
//                           cmove  eax,ebx
//                         cmove
                          xor ebx,ebx
                          mov bl, byte ptr [eax]
                          xor ecx, $2e
                          //xor ebx, $000000FF
                          cmp bl, $2c
                          cmovne ecx, ebx        // if char<>',' then ecx <- char
////                          mov bl, $2e
////                          cmove ecx, ebx
                          cmove cx, si         //  if char=',' then ecx <- '.'


////                          mov ecx, ebx
                          mov byte ptr [eax], cl
//--
//Unit1.pas.183: Inc(P);
@005d2c19:
                         inc eax
//Unit1.pas.179: while P < PEnd do
                          cmp edx,eax
                          jnbe @005d2c11
//Unit1.pas.185: end;
@005d2c1e:
                          pop esi
                          pop ebx
                          pop ebp
                          ret
end;


function ReplaceCharByPChar(const s: ApString): ApString;
const
  COMMA_ = ',';
  DOT_ = '.';
var
  P: ApPChar;
  i: Integer;
begin
  Result := s;
  P := Pointer(Result);
  for i := 0 to Length(s) - 1 do
  begin
    if P^ = COMMA_ then
      P^ := DOT_;
    Inc(P);
  end;
end;

function TestMy(const s: ApString): ApString;
const
  COMMA_ = ',';
  DOT_ = '.';
var
  P: ApPChar;
begin
  Result := s;
  P := Pointer(Result);
  while P^ <> #0 do
  begin
    if P^ = COMMA_ then
      P^ := DOT_;
    Inc(P);
  end;
end;


type
  TaRecode = array [ApChar] of ApChar;

var
  fRecode: TaRecode;

procedure Init();
var
  c: ApChar;
begin
  for c := Low(ApChar) to High(ApChar) do
    fRecode[c] := c;
  fRecode[','] := '.';
end;

function Recode(str: ApString): ApString;
var
  i: Integer;
begin
  Result := str;
  for i := 1 to Length(Result) do
    Result[i] := fRecode[Result[i]];
end;

var
  MinTest: int64;
  IdxMin, IdxCurr: Integer;

procedure TForm1.btnCommaToPointClick(Sender: TObject);
 function FormatOutput(const aFuncName: ApString; const iRunTime: Int64)
    : ApString;
  begin
    Result := Format('%-20s -> %d', [aFuncName, iRunTime]);
  end;

begin
  MinTest := 100000000000000000;
  IdxMin := 0;
  IdxCurr := 0;

  mmo1.Lines.Add('------------------------------------------------------');



  mmo1.Lines.Add(FormatOutput('ForkReplaceC_lodsw',
    RunFunc(@ForkReplaceC_lodsw)));

  mmo1.Lines.Add(FormatOutput('ForkReplaceC_lodsw',
    RunFunc(@ForkReplaceC_lodsw)));

  mmo1.Lines.Add(FormatOutput('ForkReplaceC_lodsw_FIX',
    RunFunc(@ForkReplaceC_lodsw_FIX)));

  mmo1.Lines.Add(FormatOutput('ForkReplaceC_lodsw_FIX',
    RunFunc(@ForkReplaceC_lodsw_FIX)));


  mmo1.Lines.Add(FormatOutput('ReplaceCharByPChar',
    RunFunc(@ReplaceCharByPChar)));

  mmo1.Lines.Add(FormatOutput('TestMy', RunFunc(@TestMy)));

  mmo1.Lines.Add(FormatOutput('PEnd', RunFunc(@PEnd)));
  mmo1.Lines.Add(FormatOutput('PEnd_ASM', RunFunc(@PEnd_ASM)));
  mmo1.Lines.Add(FormatOutput('Recode', RunFunc(@Recode)));

  mmo1.Lines.Add(FormatOutput('Самый быстрый: ' + IntToStr(IdxMin + 1),
    MinTest));

end;

procedure TForm1.FillRandomText(const iFactor, iCharCount: Integer);
var
  i: Integer;
  s: ApString;
begin
  s := '';

  for i := 0 to iCharCount do
  begin
    if Random(10) > iFactor then
      s := s + ','
    else
      s := s + Chr(40 + Trunc(Random(150)));
  end;

  mmo2.Text := s;

end;

function TForm1.RunFunc(Func: TCommatFunc): Int64;
var
  aStartTime: TDateTime;
  i: Integer;
  s: ApString;
  sw: TStopwatch;
begin
  s := mmo2.Text;

//  aStartTime := Now;
  sw := TStopwatch.StartNew;
  for i := 0 to CNT_RUN - 1 do
    Func(s);

//  Result := Now - aStartTime;
  sw.Stop;
  Result := sw.ElapsedMilliseconds;

  if MinTest - Result > 0 then
  begin
    MinTest := Result;
    IdxMin := IdxCurr;
  end;
  Inc(IdxCurr);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Init();
end;

procedure TForm1.btnFillClick(Sender: TObject);
begin
 FillRandomText(20, 10000);
end;

procedure TForm1.btnTestClick(Sender: TObject);
begin
  ShowMessage(PEnd('123,asd'));
  ShowMessage(PEnd_ASM('123,asd'));
end;

end.