Mergesort quellcode

[Koby]

und waas bewirkt das kommentiert grob


procedure TSortierverfahren.Enter_bClick(Sender: TObject);
begin
Sortierverfahren.nsortiert_lb.items.add(eingabefel d_e.text);
Setlength (nsortiert,Elemente+1);
nsortiert[Elemente] := (StrToInt(eingabefeld_e.text));
Elemente:=Elemente+1;
Sortierverfahren.eingabefeld_e.text :='';
end;

procedure TSortierverfahren.Sort_bClick(Sender: TObject);
var
i:integer;
begin
Sortierverfahren.Mergesort(nsortiert);
for i:= 0 to Elemente-1 do
begin
Sortierverfahren.sortiert_lb.items.add(IntToStr(ns ortiert[i]));
end;
end;



und beim merge sort diese stelle noch die ich nicht ganz ralle unterre teil


if length(h_array1)<>0 then
for x:=0 to length(h_array1)-1 do
begin
List[z]:=h_array1[x];
z:=z+1;
end;

if length(h_array2)<>0 then
for y:=0 to length(h_array2)-1 do
begin
List[z]:=h_array2[y];
z:=z+1;
end;