1:
2:
3:
4:
5:

procedure TForm1.btnSortClick(Sender: TObject);
var list: TStringList;
begin
  {}
end;                    

1:

list := TStringList.Create;                    

1:

list.Assign(ListBox1.Items);                    

1:
2:

{Magie}
listbox1.Items.Assign(list);                    

1:
2:
3:
4:

function add(a, b:integer): integer;
begin
  Result := a + b;
end;                    

1:
2:
3:
4:

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin
  {...}
end;                    

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

procedure TForm2.Button12Click(Sender: TObject);
begin
  Listbox1.Items.Add(IntToStr(Random(20)));
end;

procedure TForm2.Button13Click(Sender: TObject);
var list: TStringList;       // Variable list vom Typ TStringList
begin
list := TStringList.Create; //TStringList wirdinitialisiert
list.Assign(ListBox1.Items); //String-Liste werden Items aus der ListBox zugewiesen
listbox1.Items.Assign(list);

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin

end;

end;                    

1:

list.CustomSort(Vergleiche);                    

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

procedure TForm2.Button13Click(Sender: TObject);
var list: TStringList;       // Variable list vom Typ TStringList
begin
list := TStringList.Create; //TStringList wirdinitialisiert
list.Assign(ListBox1.Items); //String-Liste werden Items aus der ListBox zugewiesen
listbox1.Items.Assign(list);
list.CustomSort(Compare);

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin

end;                    

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

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin

end;

procedure TForm2.Button13Click(Sender: TObject);
var list: TStringList;       // Variable list vom Typ TStringList
begin
  list := TStringList.Create;  //TStringList wirdinitialisiert
  list.Assign(ListBox1.Items); //String-Liste werden Items aus der ListBox zugewiesen
  list.CustomSort(Vergleiche); //liste sortieren
  listbox1.Items.Assign(list); //sortierte Liste der ListBox zuweisen
end;                    

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

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin
 if Index1 = Index2 then   TStrinList:= ;
 if Index1 > Index2 then    TStrinList:=;
 if Index1 < Index2 then    TStrinList:=;
end;                    

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

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin
 if Index1 = Index2 then   Item:=0 ;  //keine Versschiebung
 if Index1 > Index2 then    Item:=-1; //Verschiebung Richtung Listenanfang
 if Index1 < Index2 then    Item:=+1; //Verschiebung Richtung Listenende
end;

procedure TForm2.Button13Click(Sender: TObject);
var list: TStringList;       // Variable list vom Typ TStringList
begin
list := TStringList.Create; //TStringList wirdinitialisiert
list.Assign(ListBox1.Items); //String-Liste werden Items aus der ListBox zugewiesen
list.CustomSort(Vergleiche); //Vergleichs-Funktion
listbox1.Items.Assign(list);
end;                    

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

{list: array of integer}
{arrLen := length(list)}
procedure bubbleSort;
var i, j: integer;
begin
  for i := arrLen - 2 downto 0 do
    for j := 0 to i do
      if list[j] > list[j+1] then swapI(j, j+1);
end;                    

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

function Vergleiche(Liste: TStringList; Index1, Index2: integer): Integer;
begin
 if Index1 = Index2 then result:=0 ;  //keine Versschiebung
 if Index1 > Index2 then result:=-1; //Verschiebung Richtung Listenanfang
 if Index1 < Index2 then result:=+1; //Verschiebung Richtung Listenende
end;

procedure TForm2.Button13Click(Sender: TObject);
var list: TStringList;       // Variable list vom Typ TStringList
begin
list := TStringList.Create; //TStringList wirdinitialisiert
list.Assign(ListBox1.Items); //String-Liste werden Items aus der ListBox zugewiesen
list.CustomSort(Vergleiche); //Vergleichs-Funktion
listbox1.Items.Assign(list);
end;                    

1:

list.Add(Editn.Text)                    

1:

ListBox1.Items.Add(Format('%.04d', [Random(1000)]));                    

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

ListBox1.Items.Add(Format('%.04d', [Random(1000)]));
// -->
Random(1000) // Zufallszahl zwischen 0..999 auswürfeln
[Random(1000)] // die Klammern machen aus der Zufallszahl ein konstantes Array mit einem Wert (ist nicht weiter wichtig jetzt, aber die Format()-Funktion will das so haben, kannst ja mal in der Online-Hilfe nachlesen
Format('%.04d', [Random(1000)]) // die Format()-Funktion gibt (hier: eine Zahl; allgemein: die Parameter in den eckigen Klammern) im gewünschten "Format" (hier: .04d) aus
// das %-Zeichen leitet eine Variable ein
// der Punkt steht für die Stellenanzahl
// die 0 für "mit führenden Nullen" ausgeben
// die 4 für die Anzahl der Stellen, eben 4
// das d für eine Dezimalzahl (Integer)

// den Rest kennst du schon, der fügt eine Zeile in die Listbox ein                    

1:

ListBox.Items.Add(Format('%.04d', [strtoint(Edit.Text)]);                    

1:

ListBox.Items.Add(Copy('0000'+Edit.Text, length(Edit.Text)+1, 4));                    

1:

ListBox1.Items.Add(Format('%.04d %s', [Random(1000), EditX.Text]));                    

1:

ListBox2.Clear;                    

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

procedure TForm2.Button12Click(Sender: TObject);
begin
ListBox1.Items.Add(Copy('0000'+Edit2.Text, length(Edit2.Text)+1, 4)+' ' + Edit3.Text);
//Zahl, die ja als Zeichenkette vorliegt, werden vorn vier nullen hinzugefügt,
//kopieren der letzten vier stellen der neuen Zeichenkette in die ListBox
Listbox1.Count
for ----
Listbox2.Items.Insert(<position>, <element>)
ListBox2.Clear;
Listbox1.Items.Strings[<position>]                    

1:
2:
3:
4:
5:

Listbox1.Count  //Anzahl der Elemente in der ersten Listbox
for - to - do -      //läuft über alle Elemente der ersten Listbox
Listbox2.Items.Insert(<position>, <element>)  //fügt Element an einer bestimmten Position in Listbox
ListBox2.Clear;   //Box leeren
Listbox1.Items.Strings[<position>]  //Zugriff auf ein Element Listbox 1                    

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

Listbox1.Count  //Anzahl der Elemente in der ersten Listbox
ListBox2.Clear;   //Box leeren
for Anfang Liste to Ende Liste do Ausgabe in Liste 2 ?      //läuft über alle Elemente der ersten Listbox

Listbox2.Items.Insert(<position>, <element>)  //fügt Element an einer bestimmten Position in Listbox
Listbox1.Items.Strings[<position>]  //Zugriff auf ein Element Listbox 1                    

1:
2:
3:
4:

ListBox2.Clear;   //Box leeren
for i :=0 to Listbox1.Count-1 do      //läuft über alle Elemente der ersten Listbox
Listbox2.Items.Insert(<position>, <element>)  //fügt Element an einer bestimmten Position in Listbox
Listbox1.Items.Strings[<position>]  //Zugriff auf ein Element Listbox 1                    

1:
2:

Listbox2.Items.Insert(Listbox2+1, i)  //fügt Element an einer bestimmten Position in Listbox
Listbox1.Items.Strings[Listbox1-1]                    

1:
2:
3:
4:
5:

Listbox1.Count;  //Anzahl der Elemente in der ersten Listbox
ListBox2.Clear;   //Box leeren
for i :=0 to Listbox1.Count-1 do      //läuft über alle Elemente der ersten Listbox , -1 weil 0 mitgezählt wird
Listbox2.Items.Insert(Listbox2-1, i)  //fügt Element an einer bestimmten Position in Listjavascript:PostEdit.editorInsertEmoticon(':)')box
Listbox1.Items.Strings[Listbox1-1]  //Zugriff auf ein Element Listbox 1                    

1:
2:
3:
4:

ListBox2.Clear;   //Box leeren
for i :=0 to Listbox1.Count-1 do      //läuft über alle Elemente der ersten Listbox , -1 weil 0 mitgezählt wird
Listbox2.Items.Insert((0, i));  //fügt Element an einer bestimmten Position in Listbox
Listbox1.Items.Strings[i]  //Zugriff auf ein Element Listbox 1                    

1:
2:
3:

ListBox2.Clear;   //Box leeren
for i :=0 to Listbox1.Count-1 do      //läuft über alle Elemente der ersten Listbox , -1 weil 0 mitgezählt wird
Listbox2.Items.Insert(0,Listbox1.Items.Strings[i]);