delphi 7 de

Bu soru iptal edilmiştir...
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
case StrtoIntDef( Q1.FieldByName('CINSIYET').AsString,0) of
1:lblCinsiyet.Caption:='ERKEK' ;
2:lblCinsiyet.Caption:='KIZ' ;
else
lblCinsiyet.Caption:='VERİ HATASI';
end;
end;

burda hata alıyorum. hatanın neden kaynaklandıgını cozeömedim :S
+0
-0
Cevaba KatılıyorumKatılmıyorum
Cevap Yaz Yorum Yaz Arşivime Ekle Takip Et

Cevaplar

  • fatihcan92 adlı üyenin fotoğrafı
    10 yıl önce yazılmış
    6 cevap - 2 soru
    Ne hatası alıyorsun ekran görüntüsünü paylaşırsan ona göre bir tavsiye buluna biliriz.