Sortowanie bąbelkowe

0

procedure TForm1.ListColumnClick(Sender: TObject; Column: TListColumn);
var
C : TListItem;
I, p, CS : Integer;
A, B : String;

begin
CS := Column.Index;

if CS = 2 then
begin
I:= 0;
Repeat
A:= List.Items.Item[I].SubItems.Strings[1];
B:= List.Items.Item[I + 1].SubItems.Strings[1];

  if StrToInt(B) &lt StrToInt(A) then
  begin
    C:= List.Items.Item[I];
    List.Items.Item[I]:= List.Items.Item[I + 1];
    List.Items.Item[I + 1]:= C;
    I:= 0;
  end else
  I:= I + 1;

until I = List.Items.Count -1;

end;
end;

O to kod do sortowania liczba w listview w kolumnie 3 ale......
gdzieś jest błąd(zamiast sortować copiuje wielokrotnie niektóre pozycje) jak dla mnie wszystko wygląda w porządku hmm... .
Jakby ktoś zauważył błąd prosiłbym o pomoc. Z góry dzięki {browar} --Pozdrawiam eSka :-)

0

Po ciul ty to sortutujesz w ten sposob ?
Dajac Ci kod myslalem ze potrafisz troche pokombinowac sam - przeciez ListView ma metode AlphaSort - twoim zadaniem jest tylko oprogramowanie OnCompare

Fojcik

0

i nakrzyczał na mnie {wstyd}
hehe :-) --Pozdrawiam eSka :-)

0

Jak ci nie wychodzi bąbelkowe to zawsze możesz spróbować inne... :-) --Rafalrs

0

rafalrs - bardzo blyskotliwa odpowiedz. Dlugo nad tym myslales ?

0

Jakbyś szukał opisów algorytmu sortowania zajrzyj na http://www.algorytm.cad.pl

0

dzieki lamer ja tam siedze non stop {browar} :-)
--Pozdrawiam eSka :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0