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

procedure TForm1.Button1Click(Sender: TObject);
var
  A, i ,buff : Integer;
  text : String;
begin
  A := 0;
  buff := 0;
  //=======================================
  text := edit1.Text;
//=======================================
  for i := 1 to Length(text) do
    A := Ord(text[i]);
  asm
    MOV EAX, A
    add eax,eax
    mov buff, EAX
  end;
//=======================================
  Edit2.Text := IntToStr(buff);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

00465FE1  |.  BA 01000000   MOV EDX,1
00465FE6  |>  8B4D F4       /MOV ECX,DWORD PTR SS:[EBP-C]
00465FE9  |.  0FB74C51 FE   |MOVZX ECX,WORD PTR DS:[ECX+EDX*2-2] ;//Ord(text[i]);
00465FEE  |.  894D FC       |MOV DWORD PTR SS:[EBP-4],ECX       ;//mov buff,eax
00465FF1  |.  42            |INC EDX
00465FF2  |.  48            |DEC EAX
00465FF3  |.^ 75 F1         \JNZ SHORT 00465FE6
00465FF5  |>  8B45 FC       MOV EAX,DWORD PTR SS:[EBP-4]
00465FF8  |.  01C0          ADD EAX,EAX  <<<<<<<<<< da is das add ?? wtf :(                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  A, i ,buff : Integer;
  text : String;
begin
  A := 0;
  buff := 0;
  //=======================================
  text := edit1.Text;
//=======================================
  for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A
      add eax,eax
      mov buff, EAX
    end;
  end;
//=======================================
  Edit2.Text := IntToStr(buff);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

00465FE3  |.  B9 01000000   MOV ECX,1
00465FE8  |>  8B45 F4       /MOV EAX,DWORD PTR SS:[EBP-C]
00465FEB  |.  0FB74448 FE   |MOVZX EAX,WORD PTR DS:[EAX+ECX*2-2]
00465FF0  |.  8945 FC       |MOV DWORD PTR SS:[EBP-4],EAX
00465FF3  |.  8B45 FC       |MOV EAX,DWORD PTR SS:[EBP-4]
00465FF6  |.  01C0          |ADD EAX,EAX <<<<<<<<<<<<<< müsste wohl eine zeile höher ?!?!?
00465FF8  |.  8945 F8       |MOV DWORD PTR SS:[EBP-8],EAX
00465FFB  |.  41            |INC ECX
00465FFC  |.  4A            |DEC EDX
00465FFD  |.^ 75 E9         \JNZ SHORT 00465FE8                    

1:
2:
3:
4:
5:

text = hallo
hallo = 68 61 6C 6C 6F 
== 68 + 61 + 6C + 6C + 6F = 210 == 528 <<< valid!

also müsste die schleife jedes zeichen einlesen Ord(text[i]) und addieren ADD EAX,EAX....                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A
      mov buff, EAX
      mov edx, buff
      add eax,edx
      mov buff,eax
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for i := 1 to Length(text) do
  begin
    A := Ord(text[i]);
    asm
      MOV EAX, A            // Inhalt von A nach EAX schieben, EAX = A
      mov buff, EAX         // Inhalt von EAX nach Buff schieben, Buff = EAX = A
      mov edx, buff         // Inhalt von Buff nach EDX, EDX = EAX = A = Buff
      add eax,edx           // Addiere EDX und EAX, da EAX und EDX jeweils den Wert von A haben = 2 * A
      mov buff,eax          // nun schiebst Du den Wert von EAX nach BUff, Buff = 2 * A
    end;                    

1:
2:
3:

buf := 0;
for i := 1 to Length(text) do
  buf := buf + Ord(text[i]);                    

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

asm
    PUSH    ESI
    XOR     EAX, EAX
    MOV     ESI, DWORD PTR [Text]
    TEST    ESI, ESI
    JZ      @@e
    MOV     ECX, DWORD PTR [ESI - 4]
@@l:
    MOVZX   EDX, BYTE PTR [ESI]
    ADD     EAX, EDX
    INC     ESI
    DEC     ECX
    JNZ     @@l
@@e:
    POP     ESI
    MOV     DWORD PTR [Buff], EAX
end;                    

1:
2:
3:
4:
5:
6:

@@l:
    MOVZX   EDX, BYTE PTR [ESI]
    ADD     EAX, EDX
    INC     ESI // {ADD ESI, 2} 
    DEC     ECX
    JNZ     @@l                    

1:
2:
3:
4:
5:

asm
    TEST EAX, EAX
    SETZ AL
    MOVZX, EAX, AL
end;                    

1:

EAX := ord(EAX <> 0);                    

1:
2:
3:
4:
5:
6:
7:
8:

Da hab ich auch ne frage zu und zwar folgender code...

CMP EAX,10
JNZ bla:

Wenn ich sowas in einen Loop packen möchte gibt es da noch andere möglichkeiten das zu verwürklichen auzer GOTO label...

Ja.                    

1:
2:
3:

IF A < 10 then
Break;
IF A < 10 then goto...;                    

1:
2:
3:
4:
5:
6:
7:

MOV EAX,[EBP+4] //oder was auch immer in EAX berechnet wurde
CMP EAX,10
JNZ LabelX
ADD EAX,5
//mache noch was
LabelX: ADD EAX,1
//Rest der Anweisungen                    

1:
2:
3:
4:
5:
6:

if(EAX=$10) then begin//Vergleiche EAX mit $10 und überspringe Code bei UNGLEICH!
EAX:=EAX+5;
//mache noch was
end;
EAX:=EAX+1;
//rest                    

1:
2:
3:
4:
5:
6:

CMP EAX,10
JE @x1
ADD EAX,2
JMP @x2
@x1:Sub EAX,1
@x2://...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

MOV ESI,12
MOV EAX,0
TEST ESI,ESI
JE @l2
@l1: ADD EAX,EAX
CMP EAX,$FFFF
JB @l2
SUB ESI
JNZ @l1
@l2://....                    

1:
2:
3:
4:
5:

If (eax=$10) then begin
eax := eax+2;
end;
dec(eax);
//@x2:restmachen                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

MOV ESI,12
MOV EAX,0
TEST ESI,ESI
JE @l2
@l1: ADD EAX,EAX
CMP EAX,$FFFF
JB @l2
SUB ESI
JNZ @l1
@l2://....                    

1:

[Fehler]example2.pas(8): Invalid Opcode                    

1:

EAX := 0;                    

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

        MOV EDX,$016
@Project1_0045101D:
        CMP EAX,$012
        JNZ @Project1_00451027
        ADD EAX,5
        JMP @Project1_00451032
@Project1_00451027:
        CMP EAX,$014
        JNZ @Project1_0045102F
        INC EAX
        JMP @Project1_00451032
@Project1_0045102F:
        ADD EAX,$016
@Project1_00451032:
        DEC EDX
        JNZ @Project1_0045101D
        RETN                    

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

var
a,i : Integer;
begin
for i := 1 to 22 do
begin
if(a=$12) then begin
a:=a+5;
end else
if(a=$14) then begin
a:=a+1;
end else
a := a + 22;
end;
end;                    

1:
2:
3:
4:

function Foo: pointer;
asm
    MOV EAX, [EBP+4]
end;                    

1:
2:
3:
4:

PUSH EBP
MOV EBP,ESP
SUB ESP,x
//...                    

1:
2:
3:
4:
5:

function Test(b:Cardinal):Cardinal;stdcall;
var c:Cardinal;
begin
  Result:=Cardinal(foo())-PCardinal(Cardinal(@c)+12)^;//Immer 0 ;-)
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

{$R-}
function Foo: Pointer;
var 
    S:array[0..0] of Integer;
Begin
    S[0] := 2;
    Result := Pointer(S[S[0]]);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

{$R-}
function Foo: Pointer;
var 
    S:array[0..0] of record case Boolean of false: (I: Integer;); true: (P: Pointer;); end;
Begin
    S[0].I := 2;
    Result := S[S[0].I].P;
end;                    

1:
2:
3:
4:
5:
6:
7:

{$R-}
function Foo: Pointer;
var 
    S:array[0..0] of Integer;
Begin
    Result := Pointer(S[2]);
end;                    

1:
2:
3:
4:
5:
6:
7:

{$R-}
function Foo: Pointer;
var 
    S:array[0..0] of Pointer;
Begin
    Result := S[2];
end;