numaratik sıralama

[mazhargemci]

dbgridte sıralanan numaraları bir buton yardımıyla büyükten küçüğe doğru sıralayabilmemiz mümkünmü

[ikra]

dbgrid'in sql'ini order by field asc yada desc seklinde degistirip hazir sorgulanmis halini kullanabilirsin.

[ALUCARD]

viewtopic.php?t=12403 başlığında tamda aradığınız şey mevcut.

[mazhargemci]

Kod: Tümünü seç

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
 const PreviousColumnIndex : integer = -1;
{$J-}
begin
  if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    try
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
    except
    end;

    Column.title.Font.Style :=
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;

    if (Pos(Column.Field.FieldName, Sort) = 1)
    and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

Kod: Tümünü seç

if (Pos(Column.Field.FieldName, Sort) = 1)

kısmında hata veriyor
[[DCC Error] Unit1.pas(611): E2251 Ambiguous overloaded call to 'Pos'
System.pas(16698): Related method: function Pos(const WideString; const WideString): Integer;
System.pas(18389): Related method: function Pos(const string; const string): Integer;
[DCC Warning] Unit1.pas(611): W1058 Implicit string cast with potential data loss from 'string' to 'RawByteString'
[DCC Error] Unit1.pas(612): E2251 Ambiguous overloaded call to 'Pos'
System.pas(16698): Related method: function Pos(const WideString; const WideString): Integer;
System.pas(18389): Related method: function Pos(const string; const string): Integer;
şeklinde