UniDBGridColumnFilter Release Modda Hata veriyor

[yhackup]

Yaklaşık 2 yıldır kullandığım projede, bir formumda çok basit bir Unidbgrid var bağlı datasource ve dataset var formdaki tek kod burası. bomboş basit bir form.

procedure TUrunAciklamaForm.UniDBGrid1ColumnFilter(Sender: TUniDBGrid;
 const Column: TUniDBGridColumn; const Value: Variant);
begin

 if product_desc.Active then
 begin
   if Trim(VarToStr( Value )) = '' then
   begin
     product_desc.Filter := '';
     product_desc.Filtered := False;
   end
   else
   begin
     product_desc.Filter := Column.FieldName + ' LIKE "%' + Value + '%" ';
     product_desc.Filtered := True;
   end;
 end;
end;

Debug modda derliyorum filtre harika çalışıyor zaten gördüğünüz gibi basit mantık. Ama Release moda alıp derleyince edite bir şey yazar yazmaz Accesss Vio.. yiyorum.
Release modunda beginin hemen altına showmessage ekliyorum ama hiç gelemeden kırılıyor.

aynı yöntemi kullandığım bir sürü form var , ama sadece bunda bir gariplik var.

[hi_selamlar]

(16-01-2023, Saat: 15:55)yhackup Adlı Kullanıcıdan Alıntı: Yaklaşık 2 yıldır kullandığım projede, bir formumda çok basit bir Unidbgrid var bağlı datasource ve dataset var formdaki tek kod burası. bomboş basit bir form.

procedure TUrunAciklamaForm.UniDBGrid1ColumnFilter(Sender: TUniDBGrid;
 const Column: TUniDBGridColumn; const Value: Variant);
begin

 if product_desc.Active then
 begin
   if Trim(VarToStr( Value )) = '' then
   begin
     product_desc.Filter := '';
     product_desc.Filtered := False;
   end
   else
   begin
     product_desc.Filter := Column.FieldName + ' LIKE "%' + Value + '%" ';
     product_desc.Filtered := True;
   end;
 end;
end;

Debug modda derliyorum filtre harika çalışıyor zaten gördüğünüz gibi basit mantık. Ama Release moda alıp derleyince edite bir şey yazar yazmaz Accesss Vio.. yiyorum.
Release modunda beginin hemen altına showmessage ekliyorum ama hiç gelemeden kırılıyor.

aynı yöntemi kullandığım bir sürü form var , ama sadece bunda bir gariplik var.

Merhabalar,

Çok bilgim yok ama merakımdan soruyorum hocam

- Hiç filtreleme yapmadan veriler listelenebiliyor mu?
- UniGrid bağlantısı (Ddatasource) başka bir formda (Create Edilmemiş) olabilir mi?,
- UniGrid kendi içinde ki JS kodlamasında bir şeyler kalmış olabilir mi?

Kolay gelsin.

[delphi.developer]

Hata durumda çağrı yığını incelemeden birşeyler söylemek zor. Ama formunuzda ClientDataSet tabanlı bir bileşen söz konusu ise; Debug ve Release modunda farklı dizinlere derlemesinden kaynaklı hali hazırda Debug klasöründe olanlar Release 'da bulunamıyor olabilir.

[yhackup]

(16-01-2023, Saat: 16:48)hi_selamlar Adlı Kullanıcıdan Alıntı:

(16-01-2023, Saat: 15:55)yhackup Adlı Kullanıcıdan Alıntı: Yaklaşık 2 yıldır kullandığım projede, bir formumda çok basit bir Unidbgrid var bağlı datasource ve dataset var formdaki tek kod burası. bomboş basit bir form.

procedure TUrunAciklamaForm.UniDBGrid1ColumnFilter(Sender: TUniDBGrid;
 const Column: TUniDBGridColumn; const Value: Variant);
begin

 if product_desc.Active then
 begin
   if Trim(VarToStr( Value )) = '' then
   begin
     product_desc.Filter := '';
     product_desc.Filtered := False;
   end
   else
   begin
     product_desc.Filter := Column.FieldName + ' LIKE "%' + Value + '%" ';
     product_desc.Filtered := True;
   end;
 end;
end;

Debug modda derliyorum filtre harika çalışıyor zaten gördüğünüz gibi basit mantık. Ama Release moda alıp derleyince edite bir şey yazar yazmaz Accesss Vio.. yiyorum.
Release modunda beginin hemen altına showmessage ekliyorum ama hiç gelemeden kırılıyor.

aynı yöntemi kullandığım bir sürü form var , ama sadece bunda bir gariplik var.

Merhabalar,

Çok bilgim yok ama merakımdan soruyorum hocam

- Hiç filtreleme yapmadan veriler listelenebiliyor mu?
* Hayır
- UniGrid bağlantısı (Ddatasource) başka bir formda (Create Edilmemiş) olabilir mi?,
* Hayır
- UniGrid kendi içinde ki JS kodlamasında bir şeyler kalmış olabilir mi?
* Hayır

Kolay gelsin.

---

(16-01-2023, Saat: 17:53)delphi.developer Adlı Kullanıcıdan Alıntı: Hata durumda çağrı yığını incelemeden birşeyler söylemek zor. Ama formunuzda ClientDataSet tabanlı bir bileşen söz konusu ise; Debug ve Release modunda farklı dizinlere derlemesinden kaynaklı hali hazırda Debug klasöründe olanlar Release 'da bulunamıyor olabilir.

Hata durumda çağrı yığını incelemeden bir şeyler söylemek zor.

işte yığın.

[RAD Coder]

(17-01-2023, Saat: 09:16)yhackup Adlı Kullanıcıdan Alıntı:

(16-01-2023, Saat: 16:48)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Çok bilgim yok ama merakımdan soruyorum hocam

- Hiç filtreleme yapmadan veriler listelenebiliyor mu?
     * Hayır
- UniGrid bağlantısı (Ddatasource) başka bir formda (Create Edilmemiş) olabilir mi?,
     * Hayır
- UniGrid kendi içinde ki JS kodlamasında bir şeyler kalmış olabilir mi?
     * Hayır

Kolay gelsin.

---

(16-01-2023, Saat: 17:53)delphi.developer Adlı Kullanıcıdan Alıntı: Hata durumda çağrı yığını incelemeden birşeyler söylemek zor. Ama formunuzda ClientDataSet tabanlı bir bileşen söz konusu ise; Debug ve Release modunda farklı dizinlere derlemesinden kaynaklı hali hazırda Debug klasöründe olanlar Release 'da bulunamıyor olabilir.

Hata durumda çağrı yığını incelemeden bir şeyler söylemek zor.

işte yığın.

Artık o kadar da zor değil.
Delphi 11.2 ile birlikte gelen daha açıklayıcı CPU işlem bilgisi var.

   

   

   

[yhackup]

Teşekkür ederim abi ama gitmiyor işe yaramıyor yani bu.

[hi_selamlar]

(17-01-2023, Saat: 10:03)yhackup Adlı Kullanıcıdan Alıntı: Teşekkür ederim abi ama gitmiyor işe yaramıyor yani bu.

Merhabalar,

Hocam formda çok bir şey yok demiştiniz.
Farkı görmek için eski .pas ve .dfm dosyalarının yedeğini alıp, sonra formu yeniden sıfırdan oluşturup dosyaları karşılaştırsanız.

Kolay gelsin.

[yhackup]

(16-01-2023, Saat: 16:48)hi_selamlar Adlı Kullanıcıdan Alıntı:

(16-01-2023, Saat: 15:55)yhackup Adlı Kullanıcıdan Alıntı: Yaklaşık 2 yıldır kullandığım projede, bir formumda çok basit bir Unidbgrid var bağlı datasource ve dataset var formdaki tek kod burası. bomboş basit bir form.

procedure TUrunAciklamaForm.UniDBGrid1ColumnFilter(Sender: TUniDBGrid;
 const Column: TUniDBGridColumn; const Value: Variant);
begin

 if product_desc.Active then
 begin
   if Trim(VarToStr( Value )) = '' then
   begin
     product_desc.Filter := '';
     product_desc.Filtered := False;
   end
   else
   begin
     product_desc.Filter := Column.FieldName + ' LIKE "%' + Value + '%" ';
     product_desc.Filtered := True;
   end;
 end;
end;

Debug modda derliyorum filtre harika çalışıyor zaten gördüğünüz gibi basit mantık. Ama Release moda alıp derleyince edite bir şey yazar yazmaz Accesss Vio.. yiyorum.
Release modunda beginin hemen altına showmessage ekliyorum ama hiç gelemeden kırılıyor.

aynı yöntemi kullandığım bir sürü form var , ama sadece bunda bir gariplik var.

Merhabalar,

Çok bilgim yok ama merakımdan soruyorum hocam

- Hiç filtreleme yapmadan veriler listelenebiliyor mu?
- UniGrid bağlantısı (Ddatasource) başka bir formda (Create Edilmemiş) olabilir mi?,
- UniGrid kendi içinde ki JS kodlamasında bir şeyler kalmış olabilir mi?

Kolay gelsin.

Öyle olsa, diğer formlarımda da aynı hatayı almam gerekirdi.

[hi_selamlar]

(17-01-2023, Saat: 16:08)yhackup Adlı Kullanıcıdan Alıntı:

(16-01-2023, Saat: 16:48)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Çok bilgim yok ama merakımdan soruyorum hocam

- Hiç filtreleme yapmadan veriler listelenebiliyor mu?
- UniGrid bağlantısı (Ddatasource) başka bir formda (Create Edilmemiş) olabilir mi?,
- UniGrid kendi içinde ki JS kodlamasında bir şeyler kalmış olabilir mi?

Kolay gelsin.

Öyle olsa, diğer formlarımda da aynı hatayı almam gerekirdi.

Merhabalar,

Hocam amaç zaten diğer formlarda olmayıp burada olan hatayı bulmak.
basit bir şekilde hatayı karşılaştırma ile bulmak içinde fikir.

Kolay gelsin.

[delphi.developer]

cxLookupComboBox1 kontrolünden EditValue özelliği üzerinden değer alıyorsunuz. Anladığım kadarı ile Null bir değerin Integer 'a atanması gibi bir durum söz konusu. Button1 Click olayında GetTotal metotuna göndermeden önce bu değeri güvenli bir şekide almayı deneyebilirsiniz. Belkide buradan Null bir değer dönüyor.