dbgridin titleclick olayına şu kodu yazdım düzenliyim dedim ama beceremedim arkadaşlar.
var
OrderF:String;
I:Integer;
begin
if Query1.findfield(Column.FieldName).fieldKind=fkCalculated then begin
ShowMessage('Hesaplamalı alan Sıralanamaz');
Exit;
end;
if LastOrderField=Column.FieldName then begin [Error] Unit1.pas(40): Undeclared identifier: 'LastOrderField'
OrderDesc:= not OrderDesc; [Error] Unit1.pas(41): Undeclared identifier: 'OrderDesc'
if OrderDesc then
OrderF:=LastOrderField+' DESC'
else
OrderF:=LastOrderField+' ASC';
end else begin
OrderDesc:=FALSE;
LastOrderField:=Column.FieldName;
OrderF:=LastOrderField+' ASC';
end;
Load(OrderF); [Error] Unit1.pas(51): Undeclared identifier: 'Load'
end;
Dbgrid sıralama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
seni Arama'ya davet ediyorum. Undeclared diye arattım ve 20 adet (yazı ile YİRMİ ) sonuç çıktı ve sonucu bulmam 20 sn. sürdü 
viewtopic.php?t=1010&highlight=undeclared
Kolay gelsin.

viewtopic.php?t=1010&highlight=undeclared
Kolay gelsin.
Standart DBGrid kullanıyorsan Klıkladığın kolona göre Query ni yeniden sadece ;
burada istersen sorguyu yeniden oluşturur, istersen sadece son order by satırını gibi değiştirebilirsin. Bu işlemden önce Query yi Close edip yeniden açman gerekir.
Ayrıca derlerken delphinin Undeclared identifier dediği hatalar da tanımsız değişkenler kullandığındandır.
Order by kullanılan Query de İndekse göre değilse RequestLive true yapılamaz dolaysıyla kayıt girişine ve güncellemeye izin vermez!
Kod: Tümünü seç
select * from tablo -> sıfırıncı satır
where a=12 -> birinci satır
order by alan1 -> ikinci satır
Kod: Tümünü seç
Query.SQL[2] := 'order by alan2';
Ayrıca derlerken delphinin Undeclared identifier dediği hatalar da tanımsız değişkenler kullandığındandır.
Order by kullanılan Query de İndekse göre değilse RequestLive true yapılamaz dolaysıyla kayıt girişine ve güncellemeye izin vermez!
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!