12-12-2017, Saat: 00:34
(Son Düzenleme: 12-12-2017, Saat: 00:36, Düzenleyen: Halil Han BADEM.)
İyi geceler,
Bir randevu programı yazıyorum, özel kurumsal firmalar için. Grid üzerinde ki randevuları silerken kullanılan belli bir event mevcut. Bu event ile silme işlemini gerçekleştirebiliyorum. Lakin prosedürde şöyle bir durum var;
Burada bir problem yok ama değişken tanımlamasında "Item: TPlannerItem" değişkeni işimi bozuyor, mesela;
Şöyle bir şey yaptığımda, Delphi haklı olarak "Kardeşim Item ne yav" diye haykırıyor.
Şimdi şöyle bir durumda ben silme işlemini tabi ki gerçekleştiremiyorum. Item değişkenini normal prosedürüme tanımlayınca hata alıyorum. Ben bu durumdan nasıl çıkarım.
Özetle,
Prosedürünü nasıl kullanabilirim.
Dipçe: Normal kodlar ile Item'i select edipte silmeyi deneyince hata aldım.
Teşekkürler,
İyi çalışmalar.
Bir randevu programı yazıyorum, özel kurumsal firmalar için. Grid üzerinde ki randevuları silerken kullanılan belli bir event mevcut. Bu event ile silme işlemini gerçekleştirebiliyorum. Lakin prosedürde şöyle bir durum var;
procedure TfrmAnaForm.DBPlanner1ItemDelete(Sender: TObject; Item: TPlannerItem); begin DBPlanner1.FreeItem(Item); end;
Burada bir problem yok ama değişken tanımlamasında "Item: TPlannerItem" değişkeni işimi bozuyor, mesela;
DBPlanner1ItemDelete(Sender, Item);
Şöyle bir şey yaptığımda, Delphi haklı olarak "Kardeşim Item ne yav" diye haykırıyor.
procedure TfrmAnaForm.RandevuyuSil1Click(Sender: TObject); var Mesaj: Integer; begin Mesaj := MessageDlg('Bu randevuyu silmek istediğinize emin misiniz?', mtConfirmation, mbYesNo, 0 ); if Mesaj = mrYes then begin DBPlanner1ItemDelete(Sender, Item); end; if Mesaj = mrNo then begin DBPlanner1.Update; end; end; end.
Şimdi şöyle bir durumda ben silme işlemini tabi ki gerçekleştiremiyorum. Item değişkenini normal prosedürüme tanımlayınca hata alıyorum. Ben bu durumdan nasıl çıkarım.
Özetle,
DBPlanner1ItemDelete(Sender: TObject; Item: TPlannerItem);
Prosedürünü nasıl kullanabilirim.
Dipçe: Normal kodlar ile Item'i select edipte silmeyi deneyince hata aldım.
Teşekkürler,
İyi çalışmalar.