Mergesort quellcode

[Koby]

das verstehe ich nit ganz die beiden proceduren

[delphi]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;

[hanselmansel]

oh my lovely Delphi-Tag
when will you arriveing?
in this board it is so nice
to read formatted codings. :dance: :dance:
:dancer2: :dancer:

P.S.: Ich weiß um die miserable Sprache, aber ich musste den Text anpassen, sodass er auf die Melodie von Twinkle, twinkle litte star passt.

[Daniel G]

Zitat:

Zitat von hanselmansel

oh my lovely Delphi-Tag
when will you arriveing?
in this board it is so nice
to read formatted codings. :dance: :dance:
:dancer2: :dancer:

P.S.: Ich weiß um die miserable Sprache, aber ich musste den Text anpassen, sodass er auf die Melodie von Twinkle, twinkle litte star passt.

:mrgreen: :mrgreen: :thumb:

Mehr brauch ich nicht sagen....