Genel İşlemler - Hata Veriyor

Sayfayı Yazdır | Pencereyi Kapat

Hata Veriyor

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=1188
Tarih: 04 Eylül 2025 Saat 04:18
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Hata Veriyor

Mesajı Yazan: kerem_3
Konu: Hata Veriyor
Mesaj Tarihi: 26 Ağustos 2025 Saat 10:38

uses uUrunler, uMusterisecme;

var

MainForm: TClForm;

testpnl: TclProPanel;

MusteriLbl, UrunLbl: TClProLabel;

SelectedAdSoyad, SelectedPlaka, SelectedPaket, Selectedtel, Selectedtarih, Selectedsaat: String;

SecilenUrunler: array[0..3] of Integer;

UrunAdlari: array[0..3] of String;

SelectedDataList, SelectedUrunList: TclStringList;

i: Integer;

{

// --- Ürün isimlerini tanımla ---

UrunAdlari[0] = 'Motor Oil';

UrunAdlari[1] = 'Cam Suyu';

UrunAdlari[2] = 'Lastik Parlatıcı';

UrunAdlari[3] = 'Bez';

// --- Müşteri verilerini al ---

SelectedDataList = Clomosy.StringListNew;

SelectedDataList = Clomosy.GlobalVariableStringList; // Global müşteri listesi

// Eksik veri varsa placeholder ekle

while (SelectedDataList.Count < 6)

SelectedDataList.Add('---');

SelectedAdSoyad = Clomosy.StringListItemString(SelectedDataList, 0);

SelectedPlaka = Clomosy.StringListItemString(SelectedDataList, 1);

SelectedPaket = Clomosy.StringListItemString(SelectedDataList, 2);

Selectedtel = Clomosy.StringListItemString(SelectedDataList, 3);

Selectedtarih = Clomosy.StringListItemString(SelectedDataList, 4);

Selectedsaat = Clomosy.StringListItemString(SelectedDataList, 5);

// --- Ürün verilerini al ---

SelectedUrunList = Clomosy.StringListNew;

SelectedUrunList = Clomosy.GlobalVariableStringList; // Global ürün listesi

// Eksik veri varsa placeholder ekle

while (SelectedUrunList.Count < 4)

SelectedUrunList.Add('0');

for i = 0 to 3

SecilenUrunler = StrToInt(Clomosy.StringListItemString(SelectedUrunList, i));

// --- Form oluştur ---

MainForm = TclForm.Create(Self);

MainForm.AddAssetFromUrl('https://raw.githubusercontent.com/kriyus3/proje-resimler/main/XOro6W.png');

MainForm.SetFormBGImage('XOro6W.png');

testpnl = MainForm.AddNewProPanel(MainForm, 'testpnl');

testpnl.Align = alCenter;

testpnl.Width = 380;

testpnl.Height = 700;

testpnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#0394fc');

testpnl.clProSettings.BorderWidth = 2;

testpnl.clProSettings.IsRound = True;

testpnl.SetclProSettings(testpnl.clProSettings);

MusteriLbl = MainForm.AddNewProLabel(testpnl, 'MusteriLbl',

'Müşteri: ' + SelectedAdSoyad + #13#10 +

'Plaka: ' + SelectedPlaka + #13#10 +

'Paket: ' + SelectedPaket + #13#10 +

'Cep Tel: ' + Selectedtel + #13#10 +

'Tarih: ' + Selectedtarih + #13#10 +

'Saat: ' + Selectedsaat

);

MusteriLbl.Margins.Top = 150;

MusteriLbl.Margins.Bottom = 450;

MusteriLbl.Width = 350;

MusteriLbl.Height = 120;

MusteriLbl.clProSettings.TextSettings.Font.Size = 20;

MusteriLbl.SetclProSettings(MusteriLbl.clProSettings);

UrunLbl = MainForm.AddNewProLabel(testpnl, 'UrunLbl',

'Seçilen Ürünler:' + #13#10 +

UrunAdlari[0] + ': ' + IntToStr(SecilenUrunler[0]) + #13#10 +

UrunAdlari[1] + ': ' + IntToStr(SecilenUrunler[1]) + #13#10 +

UrunAdlari[2] + ': ' + IntToStr(SecilenUrunler[2]) + #13#10 +

UrunAdlari[3] + ': ' + IntToStr(SecilenUrunler[3])

);

UrunLbl.Margins.Top = 400;

UrunLbl.Margins.Bottom = 200;

UrunLbl.Width = 350;

UrunLbl.Height = 150;

UrunLbl.clProSettings.TextSettings.Font.Size = 20;

UrunLbl.SetclProSettings(UrunLbl.clProSettings);

MainForm.Run;

} kodum bu şekilde ürünlerin değerlerini kopyalıyor müşteri bilgileri

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 27 Ağustos 2025 Saat 09:25

Merhaba Kerem;
Aşağıda yer alan kodu inceler misin?

var

MainForm: TClForm;

testpnl: TclProPanel;

MusteriLbl, UrunLbl: TClProLabel;

SelectedAdSoyad, SelectedPlaka, SelectedPaket, Selectedtel, Selectedtarih, Selectedsaat: String;

SecilenUrunler: array[0..3] of Integer;

UrunAdlari: array[0..3] of String;

SelectedDataList, SelectedUrunList: TclStringList;

i: Integer;

{

UrunAdlari[0] = 'Motor Oil';

UrunAdlari[1] = 'Cam Suyu';

UrunAdlari[2] = 'Lastik Parlatıcı';

UrunAdlari[3] = 'Bez';

SelectedDataList = Clomosy.StringListNew;

SelectedDataList = Clomosy.GlobalVariableStringList; // Global müşteri listesi

while (SelectedDataList.Count < 6)

SelectedDataList.Add('---');

SelectedAdSoyad = Clomosy.StringListItemString(SelectedDataList, 0);

SelectedPlaka = Clomosy.StringListItemString(SelectedDataList, 1);

SelectedPaket = Clomosy.StringListItemString(SelectedDataList, 2);

Selectedtel = Clomosy.StringListItemString(SelectedDataList, 3);

Selectedtarih = Clomosy.StringListItemString(SelectedDataList, 4);

Selectedsaat = Clomosy.StringListItemString(SelectedDataList, 5);

SelectedUrunList = Clomosy.StringListNew;

SelectedUrunList.Add('5'); // Motor Oil miktarı

SelectedUrunList.Add('2'); // Cam Suyu miktarı

SelectedUrunList.Add('1'); // Lastik Parlatıcı miktarı

SelectedUrunList.Add('3'); // Bez miktarı

while (SelectedUrunList.Count < 4)

SelectedUrunList.Add('0');

for i = 0 to 3

SecilenUrunler = StrToInt(Clomosy.StringListItemString(SelectedUrunList, i));

// --- Form oluştur ---

MainForm = TclForm.Create(Self);

MainForm.AddAssetFromUrl(' https://raw.githubusercontent.com/kriyus3/proje-resimler/main/XOro6W.png" rel="nofollow - https://raw.githubusercontent.com/kriyus3/proje-resimler/main/XOro6W.png ');

MainForm.SetFormBGImage('XOro6W.png');

testpnl = MainForm.AddNewProPanel(MainForm, 'testpnl');

testpnl.Align = alCenter;

testpnl.Width = 380;

testpnl.Height = 700;

testpnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#0394fc');

testpnl.clProSettings.BorderWidth = 2;

testpnl.clProSettings.IsRound = True;

testpnl.clProSettings.RoundHeight = 20;

testpnl.clProSettings.RoundWidth = 20;

testpnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');

testpnl.SetclProSettings(testpnl.clProSettings);

MusteriLbl = MainForm.AddNewProLabel(testpnl, 'MusteriLbl',

'Müşteri: ' + SelectedAdSoyad + #13#10 +

'Plaka: ' + SelectedPlaka + #13#10 +

'Paket: ' + SelectedPaket + #13#10 +

'Cep Tel: ' + Selectedtel + #13#10 +

'Tarih: ' + Selectedtarih + #13#10 +

'Saat: ' + Selectedsaat

);

MusteriLbl.Margins.Top = 150;

MusteriLbl.Margins.Bottom = 450;

MusteriLbl.Width = 350;

MusteriLbl.Height = 120;

MusteriLbl.clProSettings.TextSettings.Font.Size = 20;

MusteriLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#333333');

MusteriLbl.clProSettings.TextSettings.Font.Style = [fsBold];

MusteriLbl.SetclProSettings(MusteriLbl.clProSettings);

UrunLbl = MainForm.AddNewProLabel(testpnl, 'UrunLbl',

'Seçilen Ürünler:' + #13#10 +

UrunAdlari[0] + ': ' + IntToStr(SecilenUrunler[0]) + #13#10 +

UrunAdlari[1] + ': ' + IntToStr(SecilenUrunler[1]) + #13#10 +

UrunAdlari[2] + ': ' + IntToStr(SecilenUrunler[2]) + #13#10 +

UrunAdlari[3] + ': ' + IntToStr(SecilenUrunler[3])

);

UrunLbl.Margins.Top = 400;

UrunLbl.Margins.Bottom = 200;

UrunLbl.Width = 350;

UrunLbl.Height = 150;

UrunLbl.clProSettings.TextSettings.Font.Size = 20;

UrunLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#2196F3');

UrunLbl.clProSettings.TextSettings.Font.Style = [fsBold];

UrunLbl.SetclProSettings(UrunLbl.clProSettings);

MainForm.Run;

}

Mesajı Yazan: Developer
Mesaj Tarihi: 27 Ağustos 2025 Saat 11:15

Merhaba Kerem,

// --- Ürün verilerini al ---

SelectedUrunList = Clomosy.StringListNew;

SelectedUrunList = Clomosy.GlobalVariableStringList; // Global ürün listesi

// Eksik veri varsa placeholder ekle

while (SelectedUrunList.Count < 4)

SelectedUrunList.Add('0');

for i = 0 to 3

SecilenUrunler = StrToInt(Clomosy.StringListItemString(SelectedUrunList, i));

SelectedUrunList sanirim veri yukleyemiyorsun. Ben burda hata aliyorum eger farkli bir hatan varsa hatani paylasir misin

Mesajı Yazan: kerem_3
Mesaj Tarihi: 27 Ağustos 2025 Saat 13:13

Mesajı Yazan: kerem_3
Mesaj Tarihi: 27 Ağustos 2025 Saat 13:14

Merhaba,bu arada sorunu çözdüm sqlite kullanıyordum global değişken tanımlamak yerine geçici bir sqlite tablosu üzerinden çektim teşekkürler.