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
zahlfeld: array [1..9] of integer;
zahl,i,d,hilf:integer;
begin

zahl:=strtoint(memo1.lines.text);
zahlfeld[i]:=zahl;
for d:=0 to 8 do
for i:=1 to 8  do
if zahlfeld[i] > zahlfeld[i+1] then
begin
hilf:=zahlfeld[i];
zahlfeld[i]:=zahlfeld[i+1];
zahlfeld[i+1]:=hilf;
end

end;

end.                    

1:
2:

For i:=1 to Menge-1; // -1 wegen dem letzten Vergleich
For j:=i+1 to Menge; // Die innere Schleife wird immer kürzer, da die unteren ja sortiert sind                    

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

If Wert_in_Array[i]>Wert_In_Array[j] then 
begin
  Merke:=Wert_In_Array[i]; // größeren Wert zwischenspeichern
  Wert_In_Array[i]:=Wert_in_Array[j]; // kleineren Wert nach unten
  Wert_in_Array[j]:=Merke; // größeren Wert nach oben
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
zahlfeld: array [1..9] of integer;
zahl,i,j,hilf:integer;
begin
     i:=1;
     zahl:=strtoint(memo1.lines.text);
     zahlfeld[i]:=zahl;
     for i:=1 to 8 do
     for j:=i+1 to 9  do
     if zahlfeld[i] > zahlfeld[j] then
begin
     hilf:=zahlfeld[i];
     zahlfeld[i]:=zahlfeld[j];
     zahlfeld[j]:=hilf;                    

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    zahlfeld: array [1..9] of Integer;
    zahl,i,j,hilf: Integer;
begin
  i := 1;
  zahl := strtoint(memo1.lines.text);
  zahlfeld[i] := zahl;
  for i := 1 to 8 do
    for j := i+1 to 9  do
      if (zahlfeld[i] > zahlfeld[j]) then begin
        hilf := zahlfeld[i];
        zahlfeld[i] := zahlfeld[j];
        zahlfeld[j] := hilf;
      end;                    

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

TMyForm.FormCreate(Sender : TObject);
Var i : Integer; // Laufvariable
Begin
  For i:=0 to Memo1.Lines.Count-1 do
  Begin
    Listbox1.Items.Add(Memo1.Lines[i]); // Die Lines werden mit i indiziert !
  end;
end;                    

1:
2:
3:
4:

For i:=0 to Memo1.Lines.Count-1 do
Begin
  Listbox1.Items.Add(IntToStr(StrToInt(Memo1.Lines[i]))); // mit integerwandlung
end;                    

1:
2:
3:
4:

For i:=0 to Memo1.Lines.Count-2 do
Begin
  Listbox1.Items.Add(IntToStr(StrToInt(Memo1.Lines[i]))); // mit integerwandlung
end;                    

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

TMyForm.FormCreate(Sender : TObject);  
Var i         : Integer; // Laufvariable  
    TestStr   : String;
    ZahlStr   : String;
Begin  
  TestStr:=Memo1.Lines[0]; // wenn du nur die erste Zeile willst
{ alternativ :  TestStr:=Memo1.Text; }
  ZahlStr:=''; // einen völlig leeren String erzeugen
  For i:=1 to Length(TestStr) do  
  Begin 
    if TestStr[i]=' ' then 
    begin // leerzeichen bildet die Trennung der Zahlen
      if ZahlStr<>'' then 
      begin  // nur wenn wirklich was in ZahlStr drin steht
        Listbox1.Items.Add(ZahlStr); // hier schreibst du die Zahlen in die Listbox  
        ZahlStr:='';
      end;
    end else ZahlStr:=ZahlStr+TestStr[i]; // zusammenhängende Zahlen bilden

  end;  
end;                    

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
  var
    Eingabe: String;
begin
  if InputQuery('Neue Zahl hinzufügen','Zahl:',Eingabe) then
    ListBox1.Items.Add(Eingabe);
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var rand,anzahl : integer;
    i : integer;
begin
 anzahl := strtoint(edit1.text);
 for i := 0 to anzahl do begin
 rand := random(50)+1;
 memo2.lines.add(inttostr(rand));
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var zahlen: array [0..5] of integer;
    i,j : integer;
    zahlfeld : integer;
begin
end;

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:

var
  Zahlen: array[0..5] of Integer; // globales Zahlenfeld, 6 Elemente

procedure TForm1.Ausgabe; // Zahlen ausgeben
  var
    i: Integer;
    tmp: String;
begin
  tmp := ''; // temp. Sammelvariable
  for i := 0 to 5 do // alle 6 Zahlen
    tmp := IntToStr(Zahl[i]) +' '; // in den temp. String
  Memo2.Lines.Add(tmp); // und diesen dann ins Memo
end;

procedure TForm1.Button1Click(Sender: TObject); // Zahlen erzeugen
  var
    i: Integer;
begin
  for i := 0 to 5 do // alle 6 Zahlen
    Zahl[i] := Random(50) +1; // mit Zufallszahl 1..50 belegen
  Ausgabe; // und ausgeben
end;

procedure TForm1.Button2Click(Sender: TObject); // Zahlen sortieren
  var
    i,j,tmp: Integer;
begin
  for j := 4 downto 0 do begin // äußere Schleife 4..0
    for i := 0 to j do // innere Schleife 0..j
      if (Zahl[i] > Zahl[i+1]) then begin // Zahlen verkehrtrum?
        tmp := Zahl[i]; // dann tauschen
        Zahl[i] := Zahl[i+1];
        Zahl[i+1] := tmp;
      end;
    Ausgabe; // nach einem Durchlauf Zwischenergebnis ausgeben
  end;
end;                    

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

zahlen[0] := strtoint(memo1.lines[0]);
zahlen[1] := strtoint(memo1.lines[1]);
zahlen[2] := strtoint(memo1.lines[2]);
zahlen[3] := strtoint(memo1.lines[3]);
zahlen[4] := strtoint(memo1.lines[4]);
zahlen[5] := strtoint(memo1.lines[5]);
zahlen[6] := strtoint(memo1.lines[6]);                    

1:
2:

for i := 0 to 6 do
 zahlen[i] := strtoint(memo1.lines[i]);                    

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

for i := 0 to memo1.lines.count-1 do 
begin
 if zahlen[i] > zahlen[i+1] then 
 hilfe := zahlen[i];
 zahlen[i] := zahlen[i+1];
 zahlen[i+1] := hilfe;                    

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

for i := 0 to memo1.lines.count-1 do   
 begin  
   if zahlen[i] > zahlen[i+1] then   
   hilfe := zahlen[i];  // diesen und die folgenden Befehle in Begin und End 
   zahlen[i] := zahlen[i+1]; // sonst werden diese Befehle immer !! ausgeführt 
   zahlen[i+1] := hilfe;     // nur Hilfe wird in Abhängigkeit vom Vergleich gesetzt
   // außerdem ist dein max. Indexwert Memo.Lines.Count-1 und damit 
   // greifst du beim letzten Durchlauf beim Array über den Arraybereich hinaus
// es fehlt das End für die Schleife                    

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

 for i := 0 to memo1.lines.count-2 do   
 begin  
   if zahlen[i] > zahlen[i+1] then   
   begin
     hilfe := zahlen[i];  // jetzt werden alle Variablen nacheinander getauscht
     zahlen[i] := zahlen[i+1]; 
     zahlen[i+1] := hilfe;     
   end; // end if
 End; // end For                    

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

Procedure TForm.Bubble_Step;
Var i      : Integer;
    Hilfe  : Integer;
Begin
  for i := 0 to memo1.lines.count-2 do     
  begin    
    if zahlen[i] > zahlen[i+1] then     
    begin  
      hilfe := zahlen[i];  // jetzt werden alle Variablen nacheinander getauscht  
      zahlen[i] := zahlen[i+1];   
      zahlen[i+1] := hilfe;       
    end; // end if  
  End; // end For 
End; // end Proc                    

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

Procedure TForm.Show_Array;
Var i      : Integer;
Begin
  Memo2.Lines.Clear; // Memoinhalt löschen
  for i := 0 to memo1.lines.count-1 do Memo2.Lines.Add(IntToStr(Zahlen[i]);    
  
End; // end Proc