array dizi tanımlaması

);

   tanımladıgım dizi kabul etmiyor hata mesajı ve kodlarım bu şeklde
RUNTIME ERROR
File library anasayfa: Unit tarifler: Syntax error.
Source position: 9,27 when evaluating instruction CallProc
(SFFFFFFFF, $1,517D3728, $289DFBEO, "RunUnit').
Stack content is: [Null, Null, Integer: 785221136, Null...].
Source position: 28,30

var 
  tarifler      : TCLForm;
  vertScrollBox : TclVertScrollBox;
  rowPanel      : TClPanel;
  testImg1      : TClProImage;
  titleLabel    : TCLLabel;
  noteMemo1     : TCLMemo;  
  i             : Integer;
  aciklamalar   : array[1..5] of String; 

{

  aciklamalar[1] = 'Pizza: İnce hamur, bol peynir ve domates sos.';
  aciklamalar[2] = 'Mantı: Yoğurt ve sos ile servis edilir.';
  aciklamalar[3] = 'Lahmacun: İnce hamur üzerine kıymalı harç.';
  aciklamalar[4] = 'Kebap: Izgarada pişmiş et, yanında salata.';
  aciklamalar[5] = 'Dolma: Biber içine pirinçli harç doldurulur.';

  tarifler = TClform.Create(Self);
  tarifler.SetFormColor('#cce6d6', '#678e76', clGVertical);

  titleLabel = tarifler.AddNewLabel(tarifler.LytTopBar, 'titleLabel', 'Tarifler');
  titleLabel.StyledSettings = ssFamily;
  titleLabel.TextSettings.Font.Size = 30;
  titleLabel.Align = alLeft;
  titleLabel.Margins.Left = 14;
  titleLabel.Margins.Top = 10;
  titleLabel.Height = 65;
  titleLabel.Width  = 200;

  vertScrollBox = tarifler.AddNewVertScrollBox(tarifler, 'vertScrollBox');
  vertScrollBox.Align = alClient;
  vertScrollBox.ShowScrollBars = True;

  for (i = 1 to 5)
  {
    rowPanel = tarifler.AddNewPanel(vertScrollBox, 'rowPanel' + IntToStr(i));
    rowPanel.Align = alTop;
    rowPanel.Height = 120;
    rowPanel.Margins.Bottom = 8;
    rowPanel.Padding.Left = 10;
    rowPanel.Padding.Top  = 10;

    testImg1 = tarifler.AddNewProImage(rowPanel, 'testImg' + IntToStr(i));
    testImg1.Align = alLeft;
    testImg1.Width = 100;
    testImg1.Height = 100;
    testImg1.Margins.Left = 5;
    testImg1.Margins.Right = 10;

    if (i = 1) 
      tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/piece-cheese-pizza-pixel-art-style_475147-1272.jpg');
    if (i = 2)
      tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/plate-manti-turkish-food-pixel-art-style_475147-1273.jpg');
    if (i = 3)
      tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/lahmacun-turkish-pizza-pixel-art-style_475147-1274.jpg');
    if (i = 4)
      tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/kebab-meat-skewer-pixel-art-style_475147-1275.jpg');
    if (i = 5)
      tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/stuffed-pepper-dolma-pixel-art-style_475147-1276.jpg');

    noteMemo1 = tarifler.AddNewMemo(rowPanel, 'noteMemo' + IntToStr(i), aciklamalar);
    noteMemo1.Align = alClient;
    noteMemo1.Margins.Left = 5;
    noteMemo1.Margins.Right = 5;
    noteMemo1.ReadOnly = True;
    noteMemo1.ShowScrollBars = False;
  }

  tarifler.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
ela göçel Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 05 Ağustos 2025 Durum: Aktif Değil Puanlar: 16	Mesaj Seçenekleri Yanıt Yaz Alıntı ela göçel Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: array dizi tanımlaması Gönderim Zamanı: 4 Saat 31 Dakika Önce Saat 17:39
	tanımladıgım dizi kabul etmiyor hata mesajı ve kodlarım bu şeklde RUNTIME ERROR File library anasayfa: Unit tarifler: Syntax error. Source position: 9,27 when evaluating instruction CallProc (SFFFFFFFF, $1,517D3728, $289DFBEO, "RunUnit'). Stack content is: [Null, Null, Integer: 785221136, Null...]. Source position: 28,30 var tarifler : TCLForm; vertScrollBox : TclVertScrollBox; rowPanel : TClPanel; testImg1 : TClProImage; titleLabel : TCLLabel; noteMemo1 : TCLMemo; i : Integer; aciklamalar : array[1..5] of String; { aciklamalar[1] = 'Pizza: İnce hamur, bol peynir ve domates sos.'; aciklamalar[2] = 'Mantı: Yoğurt ve sos ile servis edilir.'; aciklamalar[3] = 'Lahmacun: İnce hamur üzerine kıymalı harç.'; aciklamalar[4] = 'Kebap: Izgarada pişmiş et, yanında salata.'; aciklamalar[5] = 'Dolma: Biber içine pirinçli harç doldurulur.'; tarifler = TClform.Create(Self); tarifler.SetFormColor('#cce6d6', '#678e76', clGVertical); titleLabel = tarifler.AddNewLabel(tarifler.LytTopBar, 'titleLabel', 'Tarifler'); titleLabel.StyledSettings = ssFamily; titleLabel.TextSettings.Font.Size = 30; titleLabel.Align = alLeft; titleLabel.Margins.Left = 14; titleLabel.Margins.Top = 10; titleLabel.Height = 65; titleLabel.Width = 200; vertScrollBox = tarifler.AddNewVertScrollBox(tarifler, 'vertScrollBox'); vertScrollBox.Align = alClient; vertScrollBox.ShowScrollBars = True; for (i = 1 to 5) { rowPanel = tarifler.AddNewPanel(vertScrollBox, 'rowPanel' + IntToStr(i)); rowPanel.Align = alTop; rowPanel.Height = 120; rowPanel.Margins.Bottom = 8; rowPanel.Padding.Left = 10; rowPanel.Padding.Top = 10; testImg1 = tarifler.AddNewProImage(rowPanel, 'testImg' + IntToStr(i)); testImg1.Align = alLeft; testImg1.Width = 100; testImg1.Height = 100; testImg1.Margins.Left = 5; testImg1.Margins.Right = 10; if (i = 1) tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/piece-cheese-pizza-pixel-art-style_475147-1272.jpg'); if (i = 2) tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/plate-manti-turkish-food-pixel-art-style_475147-1273.jpg'); if (i = 3) tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/lahmacun-turkish-pizza-pixel-art-style_475147-1274.jpg'); if (i = 4) tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/kebab-meat-skewer-pixel-art-style_475147-1275.jpg'); if (i = 5) tarifler.SetImage(testImg1, 'https://img.freepik.com/premium-vector/stuffed-pepper-dolma-pixel-art-style_475147-1276.jpg'); noteMemo1 = tarifler.AddNewMemo(rowPanel, 'noteMemo' + IntToStr(i), aciklamalar); noteMemo1.Align = alClient; noteMemo1.Margins.Left = 5; noteMemo1.Margins.Right = 5; noteMemo1.ReadOnly = True; noteMemo1.ShowScrollBars = False; } tarifler.Run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 238	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 3 Saat 54 Dakika Önce Saat 18:16
	Merhaba Ela, Clomosy' de diziler 0. indisle başlar bu yüzden hata alıyorsun. aciklamalar : array[0..5] of String; şeklinde çalıştırır mısın?