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) < 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 :-)