kod hata

   Merhabalar kodumda hata var ve çözemedim< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+LLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">Yardım eder misiniz

 Var
  anaForm : TclForm;
  edtUrunAdi, edtAdet : TclEdit;
  lblUrunAdi, lblAdet : TclLabel;
  btnEkle : TclButton;
  stokListesi : TclListView;
  // Tüm ürünlerin JSON dizisini bu düz metin içinde biriktireceğiz
  tumUrunlerJson : String; 

void UrunEkle;
Var
  yeniUrunJson : String;
{
  if ((edtUrunAdi.Text == '') || (edtAdet.Text == ''))
  {
    ShowMessage('Lütfen Ürün Adı ve Adet alanlarını doldurun!');
    exit;
  }

  // Yeni ürünün JSON formatını hazırlıyoruz
  yeniUrunJson = '{"MAIN_TEXT":' + QuotedStr(edtUrunAdi.Text) + ', "SUB_TEXT":' + QuotedStr(edtAdet.Text) + '}';

  // Eğer bu ilk ürün değilse, araya JSON formatı gereği virgül koyuyoruz
  if (tumUrunlerJson != '')
  {
    tumUrunlerJson = tumUrunlerJson + ',';
  }

  // Yeni ürünü ana metne ekliyoruz
  tumUrunlerJson = tumUrunlerJson + yeniUrunJson;

  // Başına ve sonuna köşeli parantez ekleyerek geçerli bir JSON Array (Dizi) elde edip yüklüyoruz
  stokListesi.clLoadListViewDataFromJSON('[' + tumUrunlerJson + ']');

  // Giriş alanlarını temizle
  edtUrunAdi.Text = '';
  edtAdet.Text = '';
}

{
  anaForm = TclForm.Create(Self);

  // Başlangıçta listemiz boş
  tumUrunlerJson = '';

  // --- Ürün Adı Girişi ---
  lblUrunAdi = anaForm.AddNewLabel(anaForm, 'lblUrunAdi', 'Ürün Adı:');
  lblUrunAdi.Align = alTop;
  lblUrunAdi.MarginTop = 10;

  edtUrunAdi = anaForm.AddNewEdit(anaForm, 'edtUrunAdi', 'Ürün adı giriniz...');
  edtUrunAdi.Align = alTop;

  // --- Başlangıç Adedi Girişi ---
  lblAdet = anaForm.AddNewLabel(anaForm, 'lblAdet', 'Stok Adedi:');
  lblAdet.Align = alTop;
  lblAdet.MarginTop = 10;

  edtAdet = anaForm.AddNewEdit(anaForm, 'edtAdet', 'Adet giriniz...');
  edtAdet.Align = alTop;

  // --- Ekleme Butonu ---
  btnEkle = anaForm.AddNewButton(anaForm, 'btnEkle', 'Listeye Ürün Ekle');
  btnEkle.Align = alTop;
  btnEkle.MarginTop = 15;
  anaForm.AddNewEvent(btnEkle, tclOnClick, 'UrunEkle');

  // --- Stok Durum Listesi (ListView) ---
  stokListesi = anaForm.AddNewListView(anaForm, 'stokListesi');
  stokListesi.Align = alClient;
  stokListesi.MarginTop = 20;

  anaForm.Run;
}
Unit Main: Syntax error.
Source position: 24,22

Teşekkürler

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Ömer Faruk Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 07 Mart 2026 Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Ömer Faruk Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: kod hata Gönderim Zamanı: 2 Saat 28 Dakika Önce Saat 22:01
	Merhabalar kodumda hata var ve çözemedim< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+LLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous"> Yardım eder misiniz Var anaForm : TclForm; edtUrunAdi, edtAdet : TclEdit; lblUrunAdi, lblAdet : TclLabel; btnEkle : TclButton; stokListesi : TclListView; // Tüm ürünlerin JSON dizisini bu düz metin içinde biriktireceğiz tumUrunlerJson : String; void UrunEkle; Var yeniUrunJson : String; { if ((edtUrunAdi.Text == '') \|\| (edtAdet.Text == '')) { ShowMessage('Lütfen Ürün Adı ve Adet alanlarını doldurun!'); exit; } // Yeni ürünün JSON formatını hazırlıyoruz yeniUrunJson = '{"MAIN_TEXT":' + QuotedStr(edtUrunAdi.Text) + ', "SUB_TEXT":' + QuotedStr(edtAdet.Text) + '}'; // Eğer bu ilk ürün değilse, araya JSON formatı gereği virgül koyuyoruz if (tumUrunlerJson != '') { tumUrunlerJson = tumUrunlerJson + ','; } // Yeni ürünü ana metne ekliyoruz tumUrunlerJson = tumUrunlerJson + yeniUrunJson; // Başına ve sonuna köşeli parantez ekleyerek geçerli bir JSON Array (Dizi) elde edip yüklüyoruz stokListesi.clLoadListViewDataFromJSON('[' + tumUrunlerJson + ']'); // Giriş alanlarını temizle edtUrunAdi.Text = ''; edtAdet.Text = ''; } { anaForm = TclForm.Create(Self); // Başlangıçta listemiz boş tumUrunlerJson = ''; // --- Ürün Adı Girişi --- lblUrunAdi = anaForm.AddNewLabel(anaForm, 'lblUrunAdi', 'Ürün Adı:'); lblUrunAdi.Align = alTop; lblUrunAdi.MarginTop = 10; edtUrunAdi = anaForm.AddNewEdit(anaForm, 'edtUrunAdi', 'Ürün adı giriniz...'); edtUrunAdi.Align = alTop; // --- Başlangıç Adedi Girişi --- lblAdet = anaForm.AddNewLabel(anaForm, 'lblAdet', 'Stok Adedi:'); lblAdet.Align = alTop; lblAdet.MarginTop = 10; edtAdet = anaForm.AddNewEdit(anaForm, 'edtAdet', 'Adet giriniz...'); edtAdet.Align = alTop; // --- Ekleme Butonu --- btnEkle = anaForm.AddNewButton(anaForm, 'btnEkle', 'Listeye Ürün Ekle'); btnEkle.Align = alTop; btnEkle.MarginTop = 15; anaForm.AddNewEvent(btnEkle, tclOnClick, 'UrunEkle'); // --- Stok Durum Listesi (ListView) --- stokListesi = anaForm.AddNewListView(anaForm, 'stokListesi'); stokListesi.Align = alClient; stokListesi.MarginTop = 20; anaForm.Run; } Unit Main: Syntax error. Source position: 24,22 Teşekkürler