Thema: Delphi teil vom Merge sort

Einzelnen Beitrag anzeigen

Koby

Registriert seit: 7. Nov 2005
10 Beiträge
 
Delphi 5 Professional
 
#1

teil vom Merge sort

  Alt 12. Nov 2005, 12:40
Hallo könnte mir jemand den folgenden quellcode kommentieren und die bedeutung von item erklären!
Danke

Delphi-Quellcode:
procedure TSortierverfahren.Enter_bClick(Sender: TObject);
begin
Sortierverfahren.nsortiert_lb.items.add(eingabefeld_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(nsortiert[i]));
end;
end;




[edit=sakura] Tags korrigiert Mfg, sakura[/edit]
Die Dummheit des Menschen ist unendlich, bei dem Weltraum bin ich mir noch nicht sicher!!!

A.E.
  Mit Zitat antworten Zitat