EVariantTypeCastError

   Merhaba, yazdığım kodda veri tabanına kayıt yaparken boş alan olursa kullanıcıya ShowMessage ile uyarı gönderilmesini istiyorum fakat EVariantTypeCastError Could not convert variant of type (UnicodeString) into type (Boolean) hatası alıyorum. Teşekkür ederim.
void InsertToDatabase;
{
  if (editBaslangic.Text)=='' || editBitis.Text=='' || memoDetay.Lines.Count==0 || editYapilan.Text=='') {
      ShowMessage('Lütfen tüm alanları doldurun.');
  }

else { 
  try
    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Logs (username, start_time, end_time, yapilan_is_detay, yapilan_is) VALUES (' +
      QuotedStr(username) + ', ' +
      QuotedStr(editBaslangic.Text) + ', ' +
      QuotedStr(editBitis.Text) + ', ' +
      QuotedStr(memoDetay.Text) + ', ' +
      QuotedStr(editYapilan.Text) + ')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Veriler başarıyla kayıt oldu!');
  editBaslangic.Text='';
  editBitis.Text='';
  memoDetay.Lines.Clear;
  editYapilan.Text='';

  except
    ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
 }  
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 138	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: EVariantTypeCastError Gönderim Zamanı: 26 Haziran 2025 Saat 13:09
	Merhaba, yazdığım kodda veri tabanına kayıt yaparken boş alan olursa kullanıcıya ShowMessage ile uyarı gönderilmesini istiyorum fakat EVariantTypeCastError Could not convert variant of type (UnicodeString) into type (Boolean) hatası alıyorum. Teşekkür ederim. void InsertToDatabase; { if (editBaslangic.Text)=='' \|\| editBitis.Text=='' \|\| memoDetay.Lines.Count==0 \|\| editYapilan.Text=='') { ShowMessage('Lütfen tüm alanları doldurun.'); } else { try Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Logs (username, start_time, end_time, yapilan_is_detay, yapilan_is) VALUES (' + QuotedStr(username) + ', ' + QuotedStr(editBaslangic.Text) + ', ' + QuotedStr(editBitis.Text) + ', ' + QuotedStr(memoDetay.Text) + ', ' + QuotedStr(editYapilan.Text) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Veriler başarıyla kayıt oldu!'); editBaslangic.Text=''; editBitis.Text=''; memoDetay.Lines.Clear; editYapilan.Text=''; except ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage); } } }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 455	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 26 Haziran 2025 Saat 14:00
	Merhaba Hale, void InsertToDatabase; { if ((editBaslangic.Text == '') \|\| (editBitis.Text == '') \|\| (memoDetay.Text == '') \|\| (editYapilan.Text == '')) ShowMessage('Lütfen tüm alanları doldurun.'); else { try { Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Logs (username, start_time, end_time, yapilan_is_detay, yapilan_is) VALUES (' + QuotedStr(username) + ', ' + QuotedStr(editBaslangic.Text) + ', ' + QuotedStr(editBitis.Text) + ', ' + QuotedStr(memoDetay.Text) + ', ' + QuotedStr(editYapilan.Text) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('Veriler başarıyla kayıt oldu!'); } except { ShowMessage('Hata: ' + LastExceptionMessage); } } } } Düzenli hali bu şekilde, sende projen de deneye bilir misin?