Registriert seit: 7. Nov 2005
10 Beiträge
Delphi 5 Professional
|
teil vom Merge sort
12. Nov 2005, 13: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.
|