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;

  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