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

function TForm8.holeForschungen : Tintegerarray;
var i,k : integer;
begin

for k := 0 to 2 do
  begin
  i := 0;
    while i<2 do
      i := i+1;
  end;
end;					

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

function TForm8.holeForschungen : Tintegerarray;
var i,k : integer;
begin
  for k := 0 to 2 do
  begin
    ShowMessage( IntToStr( k ) );   // Mach das mal dazu.
    i := 0;
    while i<2 do
      i := i+1;
  end;
end;					

1:

i := pos(suche[k],quellcode) + Length(suche[k]);					

1:
2:

i := k;
i := pos(suche[k],quellcode) + Length(suche[k]);					

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:

function TForm8.holeForschungen : Tintegerarray;
var quellcode : string;
    suche : array[0..3] of string;
    i,k : integer;
begin
quellcode := 'Teststring Eins(1), Zwei(2), Drei(3), Vier(4)';
suche[0] := 'Eins(';
suche[1] := 'Zwei(';
suche[2] := 'Drei(';
suche[3] := 'Vier(';

for k := 0 to 2 do
  begin
      i := pos(suche[k],quellcode) + Length(suche[k]);
      suche[k] := '';
      while quellcode[i] <> ')' do
        begin
         suche[k] := suche[k] + quellcode[i];
         i := i+1;
        end;

end;
result[0] := strtoint(suche[0]);
result[1] := strtoint(suche[1]);
result[2] := strtoint(suche[2]);
end;					

1:

suche[k] := '';					

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:

Unit11.pas.31: test[0] := 1;
0045AC7E C745F401000000   mov [ebp-$0c],$00000001

Unit11.pas.32: test[1] := 2;
0045AC85 C745F802000000   mov [ebp-$08],$00000002

Unit11.pas.33: test[2] := 3;
0045AC8C C745FC03000000   mov [ebp-$04],$00000003

// Bis hierhin wird lediglich an die Speicherstellen
// der Arrayeinträge der entsprechende Wert geschrieben.

Unit11.pas.34: j := 0;
0045AC93 33DB             xor ebx,ebx
// j wird in ebx berechnet, also wird ebx auf 0 gesetzt

Unit11.pas.35: for i := 0 to 2 do
0045AC95 BA03000000       mov edx,$00000003
0045AC9A 8D45F4           lea eax,[ebp-$0c]
// in edx wird die Anzahl der Durchläufe geschrieben,
// in eax kommt die Adresse des ersten Eintrags des Arrays

Unit11.pas.36: j := j + test[i];
0045AC9D 0318             add ebx,[eax]
0045AC9F 83C004           add eax,$04
// zu ebx (j) wird der Wert an der Speicherstelle eax (des aktuellen Arrayeintrags) hinzugezählt
// die Speicheradresse in eax (der aktuelle Arrayeintrag) wird um 4 (die Größe eines Integerwerts) erhöht
// --> eax zeigt jetzt auf den nächsten Arrayeintrag

Unit11.pas.35: for i := 0 to 2 do
0045ACA2 4A               dec edx
0045ACA3 75F8             jnz $0045ac9d
// Schleifenzähler verringern, zurück zum Anfang der Schleife
// springen, wenn edx noch nicht 0 ist					

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

procedure TForm11.Button1Click(Sender: TObject);
var
  i, j: Integer;
  test: array[0..2] of Integer;
begin
  test[0] := 1;
  test[1] := 2;
  test[2] := 3;
  j := 0;
  for i := 0 to 2 do
    j := j + test[i];
  ShowMessage(IntToStr(j));
end;