Genel İşlemler - EVariantTypeCastError

EVariantTypeCastError

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1042
Tarih: 26 Haziran 2025 Saat 20:02
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: EVariantTypeCastError

Mesajı Yazan: haletr
Konu: EVariantTypeCastError
Mesaj Tarihi: 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);

}

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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 {