Hallo,
Ich hoffe ihr könnt mir mit meinem Code weiterhelfen den ich mir mühevoll aufgebaut oder zusammengesucht habe und der leider nicht so läuft...
Habe schon in der Suche geschaut aber leider nichts gefunden.
Also das ist mein Mergesort.
Danke schon mal im voraus!
(Habe nur den Ausschnitt Kopiert der nicht funktioniert...)
Delphi-Quellcode:
procedure TForm1.btu_SortierenClick(Sender: TObject);
var
vZaehlerEinlesen:integer;
begin
//Einlesen der Listbox in das List-Array
For vZaehlerEinlesen:=0 to cZahlen-1 do
begin
List[vZaehlerEinlesen+1]:=strtoint(Ltb_Eingabe.Items[vZaehlerEinlesen]);
end;
Mergesort(List[vZaehler1]);
for vZaehler1:=0 to cZahlen do
begin
ltb_Ausgabe.Items.Add(IntToStr(List[vZaehler1]));
end
end;//procedure TForm1.btu_SortierenClick(Sender: TObject);
//******************************************************************************
{
Rekursion (=/ iterativ):
Bei der rekursiven Programmierung ruft sich eine Prozedur,
Funktion oder Methode in einem Computerprogramm selbst wieder auf.
}
procedure TForm1.Mergesort(var List:array of integer);
var
vlaenge,vZahlx,vZahly,vZahlz :integer;
h_array1, h_array2 :array of integer;
begin
//Festlegen der längen der Beiden SortierArrays
vlaenge:= length(List);
Setlength (h_array1, vlaenge div 2);
Setlength (h_array2,(vlaenge + 1) div 2);
//Aufteilen des ListArrays auf die Einzelarrays
for vZahlx:=0 to vlaenge div 2 - 1 do
begin
h_array1[vZahlx]:=List[vZahlx];
end;
for vZahly:=0 to (vlaenge + 1) div 2 - 1 do
begin
h_array2[vZahly]:=List[vZahly+((vlaenge) div 2)];
end;
// Sortieren der Array mit "mergesort"
if vlaenge > 2 then
begin
mergesort(h_array1);
mergesort(h_array2);
end;
vZahlz:=0;
//
while (length(h_array1) <> 0) and (length(h_array2) <>0) do
begin
If h_array1[0] < h_array2[0] then
Begin
List[vZahlz] := h_array1[0];
for vZahlx:=0 to length(h_array1)-2 do
h_array1[vZahlx]:=h_array1[vZahlx+1];
Setlength (h_array1,length(h_array1)-1);
end
Else
begin
List[vZaehler1]:=h_array2[0];
for vZahly:=0 to length(h_array2)-2 do
h_array2[vZahly]:=h_array2[vZahly+1];
setlength(h_array2,length(h_array2)-1);
end;
vZaehler1:=vZaehler1+1;
end;
if length(h_array1)<>0 then
for vZahlx:=0 to length(h_array1)-1 do
begin
List[vZaehler1]:=h_array1[vZahlx];
vZaehler1:=vZaehler1+1;
end;
if length(h_array2)<>0 then
for vZahly:=0 to length(h_array2)-1 do
begin
List[vZahlz]:=h_array2[vZahly];
vZaehler1:=vZaehler1+1;
end;
end;//procedure TForm1.btu_ZufallClick(Sender: TObject);
[edit=SirThornberry]Titel geändert denn Hilfe braucht jeder und auch das gewählte Forum sagt dies bereits aus - Mfg, SirThornberry[/edit]