Insertion-Sort

[Lomion]

Delphi-Quellcode:

Procedure InsertionSort; 
var i,j,v : Integer; 
Begin 
  For i:= 2 To N Do 
  Begin 
    v:= Data[i]; 
    j:= i; 
    While (j > 1) and (Data[j-1] > v) Do 
    Begin 
      Data[j]:= Data[j-1]; 
      dec( j ); 
    End; 
    Data[j]:= v; 
  End; 
End;

soweit sogut dank der suchfunktion aber welche parameter müssen angepasst werden um zB die items einer listbox der größe nach zu ordnen?

:wall: <<<< so fühl ich mich grad blick nix mehr 11 stunden schule am tach sind zu viel!

ty for help

[bttb930]

du hast keine parameter, gibt's also auch nichts anzupassen.

eigentlich machst dus genauso wies da steht. statt data[i] halt listbox.items[i] und statt 1 bis n lieber 0 bis listbox.items.count - 1.

[Lomion]

danke :dancer2:

[r2c2]

Zitat:

Zitat von bttb930

und statt 1 bis n lieber 0 bis listbox.items.count - 1.

Nö, in dem Fall nicht. Zumindest nicht ganz. Guck dir den code mal genauer an...

@Lomion:
Was bringt es, wenn wir dir genau sagen, was du ändern musst. Versuche lieber den Code zu versten. Alles andere bringt nix...

mfg

Christian

[Lomion]

abends peil ich immer nix .... das is wie ne wand vorm schädel dann muss mir einer die wand einreissen :wink:

und inzwischen hab ichs verstanden und einen eigenen code geschrieben der sogar schneller ist

[Nikolas]

Zitat:

und inzwischen hab ichs verstanden und einen eigenen code geschrieben der sogar schneller ist

Das ist nichts besonderes. Wenn du dir das Tutotial aus dem du den Code genommen hast, auch gelesen hast, müsstest du wissen, dass diese Methode eine der langsamsten ist.

Wie sieht denn deine Version aus?