1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

function CharPos(const PStr: PChar; Chr: Char; StrLen: Integer): Integer;
begin
  asm
    push edi
    mov edi, PStr           // In PStr suchen
    mov ecx, StrLen         // Max. Stringlänge suchen
    mov al, Chr             // Chr suchen
    cld                     // Vorwärts
    repne scasb             // Byteweise nach al suchen
    mov Result, ecx
    pop edi
  end;
end;

function TFileStreamW.ReadLn(var Buffer: String): Boolean;
const
  bufMaxSize = 4096;
var
  start      : integer;
  bufSize    : integer;
  chrPos     : integer;
  newPos     : integer;

{*var StartPos, BufPos, ReadBytes: Cardinal;
    CRPos: Integer;*}

begin
  SetLength(Buffer, bufMaxSize);
  start       := position;

  chrPos := 1;
  bufSize := Read(Buffer[chrPos], bufMaxSize);
  while(bufSize<>0) do
  begin
    newPos  := CharPos(@Buffer[chrPos], #13, bufSize);
    if newPos = bufSize then
    begin
      newPos  := CharPos(@Buffer[chrPos], #10, bufSize);
    end;
    if newPos < bufSize then
    begin
      SetLength(Buffer, chrPos+newPos);
      Position:=start+chrPos+newPos+1;
    end
    else
    begin
      SetLength(Buffer, length(Buffer)+bufMaxSize);
      bufSize := Read(Buffer[chrPos], bufMaxSize);
      inc(chrPos, bufMaxSize);
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function CharPos(const PStr: PChar; Chr: Char; StrLen: Integer): Integer;
asm
    cld                
    push edi
    mov edi, PStr           
    mov ecx, StrLen        
    mov eax, ecx
    push eax
    mov al, Chr             
    repnz scasb
    pop eax      
    sub eax, ecx
    mov Result, eax
    pop edi
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

    pushl  %ebp
  movl  %esp, %ebp
  movl  16(%ebp), %ecx
  pushl  %ebx
  movzbl  12(%ebp), %edx
  movl  8(%ebp), %ebx
  testl  %ecx, %ecx
  jle  .L2
  xorl  %eax, %eax
  cmpb  %dl, (%ebx)
  jne  .L7
  jmp  .L6
  .p2align 4,,7
.L8:
  cmpb  %dl, (%eax,%ebx)
  .p2align 4,,5
  je  .L6
.L7:
  addl  $1, %eax
  cmpl  %ecx, %eax
  .p2align 4,,5
  jne  .L8
.L2:
  movl  $-1, %eax
.L6:
  popl  %ebx
  popl  %ebp
  .p2align 4,,1
  ret					

1:
2:

13   12   11    10     9
   a    b    c     #13					

1:

[DCC Fehler] UniCodeFileStream.pas(232): E2107 Operandengröße stimmt nicht überein					

1:
2:

scasb{yte}
scasw{ord}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function CharPos(const PStr: PAnsiChar; Chr: AnsiChar; StrLen: Integer): Integer;
asm
  push edi
  push ebx
  mov edi, eax           // In PStr suchen
  mov ebx, ecx           // Max. Stringlänge suchen (BackUp)
  mov al, dl             // Chr suchen
  cld                    // Vorwärts
  repne scasb            // Byteweise nach al suchen
  JNC @@FOUND            // was gefunden->springen
  xor eax,eax            // 0 als Ergebnis zurückgeben, wenn nix gefunden
  JMP @@END

  @@FOUND:
  mov eax, ebx           //Ergebnis in Result speichern
  sub eax, ecx           //Differenz bilden
  @@END:
  pop ebx
  pop edi
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:

function CharPos_Sha_Pas_2_c(ch: char; const s: AnsiString): integer;
const
  cMinusOnes = -$01010101;
  cSignums   =  $80808080;
var
  Ndx, Len, c, d, Mask, Sign, Save, SaveEnd: integer;
label
  Small, Middle, Large,
  Found0, Found1, Found2, Found3, NotFound,
  Matched, MatchedPlus1, MatchedMinus1, NotMatched,
  Return;
begin
  c:=integer(@pchar(integer(s))[-4]);
  if c=-4 then goto NotFound;
  Len:=pinteger(c)^;
  if Len>24 then goto Large;
  Ndx:=4;
  if Ndx>Len then goto Small;

Middle:
  if pchar(c)[Ndx+0]=ch then goto Found0;
  if pchar(c)[Ndx+1]=ch then goto Found1;
  if pchar(c)[Ndx+2]=ch then goto Found2;
  if pchar(c)[Ndx+3]=ch then goto Found3;
  inc(Ndx,4);
  if Ndx<=Len then goto Middle;

  Ndx:=Len+1;
  if pchar(c)[Len+1]=ch then goto Found0;
  if pchar(c)[Len+2]=ch then goto Found1;
  if pchar(c)[Len+3]<>ch then goto NotFound;
  Result:=integer(@pchar(Ndx)[-1]); exit;
  goto Return; //drop Ndx

Small:
  if Len=0 then goto NotFound; if pchar(c)[Ndx+0]=ch then goto Found0;
  if Len=1 then goto NotFound; if pchar(c)[Ndx+1]=ch then goto Found1;
  if Len=2 then goto NotFound; if pchar(c)[Ndx+2]<>ch then goto NotFound;

Found2: Result:=integer(@pchar(Ndx)[-1]); exit;
Found1: Result:=integer(@pchar(Ndx)[-2]); exit;
Found0: Result:=integer(@pchar(Ndx)[-3]); exit;
NotFound: Result:=0; exit;
  goto NotFound; //kill warning 'Ndx might not have been initialized'
Found3: Result:=integer(@pchar(Ndx)[0]); exit;
  goto Return; //drop Ndx

Large:
  Save:=c;
    Mask:=ord(ch);
  Ndx:=integer(@pchar(c)[+4]);

    d:=Mask;
  inc(Len,c);
  SaveEnd:=Len;
    Mask:=(Mask shl 8);
  inc(Len,+4-16+3);

    Mask:=Mask or d;
  Len:=Len and (-4);
    d:=Mask;
  cardinal(Sign):=cSignums;

    Mask:=Mask shl 16;
  c:=pintegerArray(Ndx)[0];
    Mask:=Mask or d;
  inc(Ndx,4);

    c:=c xor Mask;
    d:=integer(@pchar(c)[cMinusOnes]);
    c:=c xor (-1);
    c:=c and d;
    d:=Mask;

    if c and Sign<>0 then goto MatchedMinus1;
    Ndx:=Ndx and (-4);
    d:=d xor pintegerArray(Ndx)[0];

    if cardinal(Ndx)<cardinal(Len) then repeat;
      c:=integer(@pchar(d)[cMinusOnes]);
      d:=d xor (-1);
      c:=c and d;
      d:=Mask;

      d:=d xor pintegerArray(Ndx)[1];
      if c and Sign<>0 then goto Matched;
      c:=integer(@pchar(d)[cMinusOnes]);
      d:=d xor (-1);
      c:=c and d;
      d:=pintegerArray(Ndx)[2];
      if c and Sign<>0 then goto MatchedPlus1;
      d:=d xor Mask;

      c:=integer(@pchar(d)[cMinusOnes]);
      d:=d xor (-1);
      inc(Ndx,12);
      c:=c and d;

      //if c and Sign<>0 then goto MatchedMinus1;
      d:=Mask;
      if c and Sign<>0 then goto MatchedMinus1;
      d:=d xor pintegerArray(Ndx)[0];
      until cardinal(Ndx)>=cardinal(Len);

    Len:=SaveEnd;
    while true do begin;
      c:=integer(@pchar(d)[cMinusOnes]);
      d:=d xor (-1);
      c:=c and d;
      inc(Ndx,4);
      if c and Sign<>0 then goto MatchedMinus1;
      d:=Mask;
      if cardinal(Ndx)<=cardinal(Len)
      then d:=d xor pintegerArray(Ndx)[0]
      else begin;
        if Len=0 then goto NotMatched;
        d:=d xor pintegerArray(Len)[0];
        Ndx:=Len;
        Len:=0;
        end
      end;

NotMatched:
  Result:=0; exit;

MatchedPlus1:   inc(Ndx,8);
MatchedMinus1:  dec(Ndx,4);
Matched:
    c:=c and Sign;
    dec(Ndx,integer(Save)+2);
    if word(c)=0 then begin;
      c:=c shr 16; inc(Ndx,2);
      end;
    if byte(c)<>0 then dec(Ndx);
    Result:=Ndx;
Return:
  end;