MergeSort richtig implementieren

[0815]

Hallo!

Ich versuche schon ewig den MergeSort in einem Programm von mir zu benutzen. Aber irgendetwas habe ich scheinbar immer falsch gemacht. Ich möchte im Prinzip nur einen Array mit dem MergeSort sortieren. Hier ein Teil aus meinem Quellcode (den ich auf der DP-Seite gefunden habe):

Delphi-Quellcode:

var
  Form1: TForm1;
  Arr : array of integer; 
  HilfsArray: array of integer;

implementation

{$R *.dfm}

Procedure MergeSort( l, r : Integer );
var i, j, k, m : Integer;
Begin 
  If (l < r) Then
  Begin
    m:= (r+l) div 2; 

    MergeSort( l, m  ); 
    MergeSort( m+1, r );

    For i:= l To m Do HilfsArray[i]:= Data[i];
    i:= l;

    For j:= m+1 To r Do HilfsArray[r+m+1-j]:= Data[j];
    j:= r; 

    For k:= l To r Do 
    Begin 
      If (HilfsArray[i] < HilfsArray[j]) Then 
      Begin 
        Data[k]:= HilfsArray[i];
        inc( i ); 
      End 
      Else 
      Begin 
        Data[k]:= HilfsArray[j];
        dec( j ); 
      End; 
    End; 
  End; 
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
MergeSort(0,5)
end;

Danke für eure Hilfe!

[Luckie]

Bei den Tutorials dürftest du fündig werden, da gibt es ein Tutorial über Sortieralgorithmen. Deweiteren führt bestiimt auch eine Suche mit Google delphi merge sort zum Ziel.

[drav]

der gepastete quellcode von ihm stammt ja aus dem tutorial @luckie!

bei mir funktioniert der code, wenn ich ihn implentiere, auch nicht. könnte evtl. jemand erklären wie der zu implementieren ist? und wieso werden in der prozedur zwei integer-zahlen angegeben (anfangs) - eigentlich müsste da doch ein array angegeben werden, oder nich?

mergesort funktioniert doch so: ein array wird in 2 teile gesplittet, die zwei teile werden sortiert, anschließend zusammengefügt und nochmals sortiert. oder irre ich da?

bitte um hilfe, schreibe donnerstag eine klausur über das thema und wir haben bisher kein einziges mal eine funktionierende anwendung dazu programmiert :wall: