DateTimePicker sorunu

[KarizMan]

Merhaba
Ben bi projemde ListView kullanıyorum.ListView'deki birsatırı seçince bu satırdaki bir bölgeyi StrToDate yaparak DateTimePicker'a atıyorum.
Programı kapatmak isteyince 'Failed to set calendar date or time' hatasını veriyor. Bunu nasıl düzeltebilirim?

[vedatkaba]

Merhaba....

Yazdığın kodları da yazmış olsaydın daha açıklayıcı olurdu.Hata hertürlü meydana gelebilir.ama kodu görmek lazım,formu nasıl kapatıyorsun nasıl açıyorsun nasıl atama yapıyorsun gibi.kolay gelsin.

[KarizMan]

Atama yaptığım kod bu:

Kod: Tümünü seç

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  Edit8.Text:=Item.Caption;
  DateTimePicker2.Date:=StrToDate(Item.SubItems[0]);
  Edit9.Text:=Item.SubItems[1];
  Edit10.Text:=Item.SubItems[2];
end;

[hdayi]

Tahminen formu kapatırken datetimepicker'a atama yapmaya çalışıyor. kodu try except aralığına alabilirsin. Ya da bir kontrol koyarak kapatırken çalışmasına engel olursun


Kolay Gelsin...

[KarizMan]

kodu

Kod: Tümünü seç

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  try
    Edit8.Text:=Item.Caption;
    DateTimePicker2.Date:=StrToDate(Item.SubItems[0]);
    Edit9.Text:=Item.SubItems[1];
    Edit10.Text:=Item.SubItems[2];
  except

  end;
end;

şeklinde düzelttim. Şimdi oldu. Peki dediğiniz gibi kapatırken çalışmasını nasıl engellerim. Teşekkürler

[hdayi]

Şİmdi kodları görmeden söylemek zor. Sen formu kapatırken ne oluyorda bu procedure'ü çağırıyorsun onu bi bulmak lazım.
Sonra şöyle deneyebilirsin. Bir değişkenin olsun boolean ve değeri false olsun. Kapatırken bunu true yap. Procedure'un başına şöyle bi kontrol koy.

if degisken then exit

Umarım işine yarar.

Kolay Gelsin...