Genel İşlemler - kod hata

Sayfayı Yazdır | Pencereyi Kapat

kod hata

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=1564
Tarih: 29 Haziran 2026 Saat 16:28
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: kod hata

Mesajı Yazan: smeye
Konu: kod hata
Mesaj Tarihi: 29 Haziran 2026 Saat 13:21

Var

listData : TclStringList;

selectedType : String;

Form1 : TclForm;

lblTitle : TclLabel;

imgMoney : TclImage;

lblType : TclLabel;

btnIncome : TclProButton;

btnExpense : TclProButton;

lblAmount : TclLabel;

edtAmount : TclProEdit;

lblDescription : TclLabel;

edtDescription : TclProEdit;

lblDate : TclLabel;

dateEdit : TclProDateEdit;

btnSave : TclProButton;

lblLast : TclLabel;

listView : TclProListView;

void btnSaveClick;

{

if(selectedType == '')

{

ShowMessage('Önce Gelir veya Gider seçiniz');

}

else

{

listData.Add(

selectedType + ' | ' +

edtAmount.Text + ' TL | ' +

edtDescription.Text + ' | ' +

dateEdit.DateStr

);

listView.clLoadListViewDataFromDataset(

Clomosy.ClDataSetFromJSON(

'['+

'{"MAIN_TEXT":"'+selectedType+

'","SUB_TEXT":"'+edtAmount.Text+

' TL","FOOTER_TEXT":"'+edtDescription.Text+

'"}'

+']'));

ShowMessage('Kayıt eklendi');

edtAmount.Text = '';

edtDescription.Text = '';

}

{

Form1 = TclForm.Create(Self);

listData = Clomosy.StringListNew;

lblTitle = Form1.AddNewLabel(Form1,'lblTitle','Gelir - Gider Takip');

lblTitle.Align = alTop;

lblTitle.Height = 50;

lblTitle.StyledSettings = ssFamily;

lblTitle.TextSettings.Font.Size = 22;

lblType = Form1.AddNewLabel(Form1,'lblType','İşlem Türü');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(Form1,'btnIncome','Gelir');

btnIncome.Align = alTop;

btnIncome.Height = 45;

Form1.AddNewEvent(btnIncome,tbeOnClick,'btnIncomeClick');

btnExpense = Form1.AddNewProButton(Form1,'btnExpense','Gider');

btnExpense.Align = alTop;

btnExpense.Height = 45;

Form1.AddNewEvent(btnExpense,tbeOnClick,'btnExpenseClick');

lblAmount = Form1.AddNewLabel(Form1,'lblAmount','Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(Form1,'edtAmount','Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(Form1,'lblDescription','Açıklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(Form1,'edtDescription','Açıklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(Form1,'lblDate','Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(Form1,'dateEdit');

dateEdit.Align = alTop;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(Form1,'btnSave','Kaydet');

btnSave.Align = alTop;

btnSave.Height = 50;

Form1.AddNewEvent(btnSave,tbeOnClick,'btnSaveClick');

lblLast = Form1.AddNewLabel(Form1,'lblLast','Son İşlemler');

lblLast.Align = alTop;

lblLast.Height = 30;

listView = Form1.AddNewProListView(Form1,'listView');

listView.Align = alClient;

Form1.Run;

}

kod hatası

Unit Main: Unknown member method: "clLoadListViewDataFromDataset".

Source position: 50,11

çözemedim yardımcı olurmusunuz

https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Cevaplar:

Mesajı Yazan: kayra12
Mesaj Tarihi: 29 Haziran 2026 Saat 13:31

var

listData : TclStringList;

selectedType : String;

Form1 : TclForm;

lblTitle : TclLabel;

imgMoney : TclImage;

lblType : TclLabel;

btnIncome : TclProButton;

btnExpense : TclProButton;

lblAmount : TclLabel;

edtAmount : TclProEdit;

lblDescription : TclLabel;

edtDescription : TclProEdit;

lblDate : TclLabel;

dateEdit : TclProDateEdit;

btnSave : TclProButton;

lblLast : TclLabel;

listView : TclProListView;

// Gelir butonuna tıklandığında çalışacak fonksiyon

void btnIncomeClick;

{

selectedType = 'Gelir';

ShowMessage('İşlem Türü: Gelir olarak seçildi.');

}

// Gider butonuna tıklandığında çalışacak fonksiyon

void btnExpenseClick;

{

selectedType = 'Gider';

ShowMessage('İşlem Türü: Gider olarak seçildi.');

}

// Kaydet butonuna tıklandığında çalışacak fonksiyon

void btnSaveClick;

{

if(selectedType == '')

{

ShowMessage('Önce Gelir veya Gider seçiniz');

}

else

{

listData.Add(

selectedType + ' | ' +

edtAmount.Text + ' TL | ' +

edtDescription.Text + ' | ' +

dateEdit.DateStr

);

// Hatalı olan metod adı clLoadProListViewDataFromDataset olarak düzeltildi

listView.clLoadProListViewDataFromDataset(

Clomosy.ClDataSetFromJSON(

'['+

'{"MAIN_TEXT":"'+selectedType+

'","SUB_TEXT":"'+edtAmount.Text+

' TL","FOOTER_TEXT":"'+edtDescription.Text+

'"}'

+']'));

ShowMessage('Kayıt eklendi');

edtAmount.Text = '';

edtDescription.Text = '';

}

// Ana Program Bloğu

{

Form1 = TclForm.Create(Self);

listData = Clomosy.StringListNew;

selectedType = '';

lblTitle = Form1.AddNewLabel(Form1,'lblTitle','Gelir - Gider Takip');

lblTitle.Align = alTop;

lblTitle.Height = 50;

lblTitle.StyledSettings = ssFamily;

lblTitle.TextSettings.Font.Size = 22;

lblType = Form1.AddNewLabel(Form1,'lblType','İşlem Türü');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(Form1,'btnIncome','Gelir');

btnIncome.Align = alTop;

btnIncome.Height = 45;

Form1.AddNewEvent(btnIncome,tbeOnClick,'btnIncomeClick');

btnExpense = Form1.AddNewProButton(Form1,'btnExpense','Gider');

btnExpense.Align = alTop;

btnExpense.Height = 45;

Form1.AddNewEvent(btnExpense,tbeOnClick,'btnExpenseClick');

lblAmount = Form1.AddNewLabel(Form1,'lblAmount','Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(Form1,'edtAmount','Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(Form1,'lblDescription','Açıklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(Form1,'edtDescription','Açıklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(Form1,'lblDate','Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(Form1,'dateEdit');

dateEdit.Align = alTop;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(Form1,'btnSave','Kaydet');

btnSave.Align = alTop;

btnSave.Height = 50;

Form1.AddNewEvent(btnSave,tbeOnClick,'btnSaveClick');

lblLast = Form1.AddNewLabel(Form1,'lblLast','Son İşlemler');

lblLast.Align = alTop;

lblLast.Height = 30;

listView = Form1.AddNewProListView(Form1,'listView');

listView.Align = alClient;

Form1.Run;

} iyi çalışmalar

Mesajı Yazan: smeye
Mesaj Tarihi: 29 Haziran 2026 Saat 14:46

var

clomosyQ1 : TCLJSONQuery;

listData : TclStringList;

SeçilenTür: Dize;

Form1 : TclForm;

lblBaşlık : TclEtiket;

imgMoney : TclImage;

lblType : TclLabel;

btnIncome : TclProButton;

btnExpense : TclProButton;

lblAmount : TclLabel;

edtAmount : TclProEdit;

lblDescription : TclLabel;

edtDescription : TclProEdit;

lblDate : TclLabel;

tarihDüzenleme: TclProDateEdit;

btnSave : TclProButton;

lblLast : TclLabel;

liste görünümü: TclProListView;

void btnIncomeClick;

{

selectedType = 'Gelir';

ShowMessage('İşlem Türü: Gelir olarak seçildi.');

}

void btnExpenseClick;

{

selectedType = 'Gider';

ShowMessage('İşlem Türü: Gider olarak seçildi.');

}

void btnSaveClick;

{

eğer (selectedType == '')

{

ShowMessage('Önce Gelir veya Gider seçiniz');

çıkış;

}

denemek

clomosyQ1 = Clomosy.DBCloudQueryWith(ftTransactions,'','1=1');

if(clomosyQ1.Found)

{

clomosyQ1.Insert;

clomosyQ1.FieldByName('Transaction_Type').AsString = selectedType;

clomosyQ1.FieldByName('Amount').AsString =

edtAmount.Text;

clomosyQ1.FieldByName('Description').AsString =

edtDescription.Text;

clomosyQ1.FieldByName('Transaction_Date').AsString =

tarihDüzenle.TarihStr;

clomosyQ1.Post(True);

Clomosy.DBCloudPostJSON(

ftİşlemleri,

clomosyQ1.GetJSONString

);

ShowMessage('Veri Bulut Veritabanı kaydedildi');

}

hariç

Mesajı Göster(

'Hata: '+SonİstisnaMesajı

);

}

{

Form1 = TclForm.Create(Self);

listData = Clomosy.StringListNew;

seçiliTür = '';

lblTitle = Form1.AddNewLabel(Form1,'lblTitle','Gelir - Gider Takip');

lblTitle.Align = alTop;

Başlık Yüksekliği = 50;

lblTitle.StyledSettings = ssFamily;

lblTitle.TextSettings.Font.Size = 22;

lblType = Form1.AddNewLabel(Form1,'lblType','İşlem Türü');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(Form1,'btnIncome','Gelir');

btnIncome.Align = alTop;

btnGelir.Boy = 45;

Form1.AddNewEvent(btnIncome,tbeOnClick,'btnIncomeClick');

btnExpense = Form1.AddNewProButton(Form1,'btnExpense','Gider');

btnExpense.Align = alTop;

düğmeGider.Yükseklik = 45;

Form1.AddNewEvent(btnExpense,tbeOnClick,'btnExpenseClick');

lblAmount = Form1.AddNewLabel(Form1,'lblAmount','Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(Form1,'edtAmount','Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(Form1,'lblDescription','Açıklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(Form1,'edtDescription','Açıklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(Form1,'lblDate','Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(Form1,'dateEdit');

tarihDüzenle.Hizala = üst;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(Form1,'btnSave','Kaydit');

btnSave.Align = alTop;

düğmeKaydet.Yükseklik = 50;

Form1.AddNewEvent(btnSave,tbeOnClick,'btnSaveClick');

lblLast = Form1.AddNewLabel(Form1,'lblLast','Son İşlemler');

lblLast.Align = alTop;

lblSon.Yükseklik = 30;

listView = Form1.AddNewProListView(Form1,'listView');

listView.Align = alClient;

Form1.Çalıştır;

}

kodlar

Ana Birim: Bilinmeyen tanımlayıcı veya değişken bildirilmemiş: "ftTransactions".

Kaynak konumu: 49,57

yardımcı olur.

Mesajı Yazan: MehmetOzcan
Mesaj Tarihi: 29 Haziran 2026 Saat 15:13

Merhaba türkçe karakter kullanmamaya özen gösterelim.

var

clomosyQ1: TCLJSONQuery;

listData: TclStringList;

SecilenTur: String;

Form1: TclForm;

lblBaslik: TclLabel;

lblType: TclLabel;

btnIncome: TclProButton;

btnExpense: TclProButton;

lblAmount: TclLabel;

edtAmount: TclProEdit;

lblDescription: TclLabel;

edtDescription: TclProEdit;

lblDate: TclLabel;

dateEdit: TclProDateEdit;

btnSave: TclProButton;

lblLast: TclLabel;

listView: TclProListView;

void btnIncomeClick;

{

SecilenTur = 'Gelir';

ShowMessage('Islem Turu: Gelir olarak secildi.');

}

void btnExpenseClick;

{

SecilenTur = 'Gider';

ShowMessage('Islem Turu: Gider olarak secildi.');

}

void btnSaveClick;

{

if (SecilenTur == '')

{

ShowMessage('Once Gelir veya Gider seciniz.');

Exit;

}

try

clomosyQ1 = Clomosy.DBCloudQueryWith('ftTransactions', '', '1=1');

if (clomosyQ1.Found)

{

clomosyQ1.Insert;

clomosyQ1.FieldByName('Transaction_Type').AsString = SecilenTur;

clomosyQ1.FieldByName('Amount').AsString = edtAmount.Text;

clomosyQ1.FieldByName('Description').AsString = edtDescription.Text;

clomosyQ1.FieldByName('Transaction_Date').AsString = dateEdit.Text;

clomosyQ1.Post(True);

Clomosy.DBCloudPostJSON('ftTransactions', clomosyQ1.GetJSONString);

ShowMessage('Veri Bulut Veritabanina kaydedildi.');

}

except

ShowMessage('Hata: ' + LastExceptionMessage);

}

{

Form1 = TclForm.Create(Self);

listData = Clomosy.StringListNew;

SecilenTur = '';

lblBaslik = Form1.AddNewLabel(Form1, 'lblBaslik', 'Gelir - Gider Takip');

lblBaslik.Align = alTop;

lblBaslik.Height = 50;

lblBaslik.StyledSettings = ssFamily;

lblBaslik.TextSettings.Font.Size = 22;

lblType = Form1.AddNewLabel(Form1, 'lblType', 'Islem Turu');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(Form1, 'btnIncome', 'Gelir');

btnIncome.Align = alTop;

btnIncome.Height = 45;

Form1.AddNewEvent(btnIncome, tbeOnClick, 'btnIncomeClick');

btnExpense = Form1.AddNewProButton(Form1, 'btnExpense', 'Gider');

btnExpense.Align = alTop;

btnExpense.Height = 45;

Form1.AddNewEvent(btnExpense, tbeOnClick, 'btnExpenseClick');

lblAmount = Form1.AddNewLabel(Form1, 'lblAmount', 'Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(Form1, 'edtAmount', 'Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(Form1, 'lblDescription', 'Aciklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(Form1, 'edtDescription', 'Aciklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(Form1, 'lblDate', 'Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(Form1, 'dateEdit');

dateEdit.Align = alTop;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(Form1, 'btnSave', 'Kaydet');

btnSave.Align = alTop;

btnSave.Height = 50;

Form1.AddNewEvent(btnSave, tbeOnClick, 'btnSaveClick');

lblLast = Form1.AddNewLabel(Form1, 'lblLast', 'Son Islemler');

lblLast.Align = alTop;

lblLast.Height = 30;

listView = Form1.AddNewProListView(Form1, 'listView');

listView.Align = alClient;

Form1.Run;

}