Btgunluk.com

Delphi'de Sütun Başlıklarına Tıklayarak ListView Sıralama

Bir önceki yazıda, Delphi'de ListView bileşenin nasıl kullanılacağından bahsetmiştim. Bu yazıda da ListView'in sütun başlıklarına tıklayarak ListView'in nasıl sıralanacağından bahsedeceğim.

Bunun için şuradaki kodları kendi programıma uyarladım. Öncelikle Unit kodunun implementation kısmının hemen üstündeki bölümde şu tanımlamaları yapıyoruz:

type
  TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime);

var
  Form1: TForm1; //Bu tanımlada otomatik yapılıyor zaten, konumu kavramanız için silmedim.
  { variable to hold the sort style }
  LvSortStyle: TCustomSortStyle;
  { array to hold the sort order }
  LvSortOrder: array[0..4] of Boolean; // High[LvSortOrder] = Number of Lv Columns

Daha sonra sıralamayı yapan şu alt programları koda ekliyoruz:

function CustomSortProc(Item1, Item2: TListItem; SortColumn: Integer): Integer; stdcall;
var
  s1, s2: string;
  i1, i2: Integer;
  r1, r2: Boolean;
  d1, d2: TDateTime;
  { Helper functions }
  function IsValidNumber(AString : string; var AInteger : Integer): Boolean;
  var
    Code: Integer;
  begin
    Val(AString, AInteger, Code);
    Result := (Code = 0);
  end;
  function IsValidDate(AString : string; var ADateTime : TDateTime): Boolean;
  begin
    Result := True;
    try
      ADateTime := StrToDateTime(AString);
    except
      ADateTime := 0;
      Result := False;
    end;
  end;
  function CompareDates(dt1, dt2: TDateTime): Integer;
  begin
    if (dt1 > dt2) then Result := 1
    else
      if (dt1 = dt2) then Result := 0
    else
      Result := -1;
  end;
  function CompareNumeric(AInt1, AInt2: Integer): Integer;
  begin
    if AInt1 > AInt2 then Result := 1
    else
      if AInt1 = AInt2 then Result := 0
    else
      Result := -1;
  end;
begin
  Result := 0;
  if (Item1 = nil) or (Item2 = nil) then Exit;
  case SortColumn of
    -1 :
    { Compare Captions }
    begin
      s1 := Item1.Caption;
      s2 := Item2.Caption;
    end;
    else
    { Compare Subitems }
    begin
      s1 := '';
      s2 := '';
      { Check Range }
      if (SortColumn < Item1.SubItems.Count) then
        s1 := Item1.SubItems[SortColumn];
      if (SortColumn < Item2.SubItems.Count) then
        s2 := Item2.SubItems[SortColumn]
    end;
  end;
  { Sort styles }
  case LvSortStyle of
    cssAlphaNum : Result := lstrcmp(PChar(s1), PChar(s2));
    cssNumeric  : begin
                    r1 := IsValidNumber(s1, i1);
                    r2 := IsValidNumber(s2, i2);
                    Result := ord(r1 or r2);
                    if Result <> 0 then
                      Result := CompareNumeric(i2, i1);
                  end;
    cssDateTime : begin
                    r1 := IsValidDate(s1, d1);
                    r2 := IsValidDate(s2, d2);
                    Result := ord(r1 or r2);
                    if Result <> 0 then
                      Result := CompareDates(d1, d2);
                  end;
  end;
  { Sort direction }
  if LvSortOrder[SortColumn + 1] then
    Result := - Result;
end;

Son olarak da ListView'ın ColumnClick olayına şu kodları yazıyoruz:

procedure TForm1.lv1ColumnClick(Sender: TObject; Column: TListColumn);
begin
  { determine the sort style }
  if Column.Index = 0 then
    LvSortStyle := cssNumeric
  else
    LvSortStyle := cssAlphaNum;
  { Call the CustomSort method }
  lv1.CustomSort(@CustomSortProc, Column.Index -1);

  { Set the sort order for the column}
  LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];
end;

Yukarıdaki kod yardımıyla ListView'ın ilk sütun başlığına tıklandığında sayısal bir sıralama yapılacak, diğer sütun başlıklarına tıklandığında ise alfabetik bir sıralama yapılacak.

22.01.2017 12:49:47

Yorumlar