Clomosy | Forum : EVariantTypeCastError https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:25:01 +0000 Thu, 26 Jun 2025 14:00:26 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1042 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[EVariantTypeCastError : Merhaba Hale,void InsertToDatabase;{...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1042&PID=2081#2081 Yazar: Emr.Erkmn
Konu: 1042
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? 
]]> Thu, 26 Jun 2025 14:00:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1042&PID=2081#2081 <![CDATA[EVariantTypeCastError : Merhaba, yazdığım kodda veri tabanına...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1042&PID=2080#2080 Yazar: haletr
Konu: 1042
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);
  }
 }  
}
]]> Thu, 26 Jun 2025 13:09:05 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1042&PID=2080#2080