Clomosy | Forum : Hata Veriyor https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 08:59:06 +0000 Wed, 27 Aug 2025 13:14:10 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1188 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Hata Veriyor : Merhaba,bu arada sorunu çözdüm...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2530#2530 Yazar: kerem_3
Konu: 1188
Gönderim Zamanı: 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.]]> Wed, 27 Aug 2025 13:14:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2530#2530 <![CDATA[Hata Veriyor : ]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2529#2529 Yazar: kerem_3
Konu: 1188
Gönderim Zamanı: 27 Ağustos 2025 Saat 13:13


]]> Wed, 27 Aug 2025 13:13:02 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2529#2529 <![CDATA[Hata Veriyor : Merhaba Kerem, // --- Ürün verilerini...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2528#2528 Yazar: Developer
Konu: 1188
Gönderim Zamanı: 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 
]]> Wed, 27 Aug 2025 11:15:10 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2528#2528 <![CDATA[Hata Veriyor : Merhaba Kerem;Aşağıda yer alan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2527#2527 Yazar: Emr.Erkmn
Konu: 1188
Gönderim Zamanı: 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');
  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;
}
]]> Wed, 27 Aug 2025 09:25:06 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2527#2527 <![CDATA[Hata Veriyor : uses uUrunler, uMusterisecme;var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2526#2526 Yazar: kerem_3
Konu: 1188
Gönderim Zamanı: 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 

]]> Tue, 26 Aug 2025 10:38:44 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1188&PID=2526#2526