Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - olmayan satırda hata alıyorum
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

olmayan satırda hata alıyorum
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
ela göçel Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 05 Ağustos 2025
Durum: Aktif Değil
Puanlar: 18 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı ela göçel Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: olmayan satırda hata alıyorum
    Gönderim Zamanı: 3 Saat 11 Dakika Önce Saat 15:45
RUNTIME ERROR
File library anasayfa: Unit kaloriForminstance: Syntax error.
Source position: 152,1 when evaluating instruction CallProc SFFFFFFFF.S1.SB33728,S17CC9540,'RunUnit').
Stack content is: [Null, Null, Integer:498402960,Null...].
Source position: 22,40
Position: 22, 40.
 böyle hata mesajı alıyorum kodlarım bu şekilde nasıl çözecegimi bulamadımm yardımcı olur musunuz 

var
  kaloriFormInstance: TCLForm;
  mainLayout: TCLLayout;
  titleLabel: TCLLabel;
  dataListView: TCLListView;
  refreshButton: TCLProButton;
  addPanel: TCLProPanel;
  yemekAdiEdit: TCLProEdit;
  kaloriEdit: TCLProEdit;
  ekleButton: TCLProButton;
  SQLiteDB: TCLSQLiteConnection;
  Query: TCLSQLiteQuery;
  dbPath: string;
  Sifre, DB: String;
  Qry: TClSQLiteQuery;

{
  kaloriFormInstance = TCLForm.Create(Self);
  kaloriFormInstance.SetFormColor('#cce6d6', '#678e76', clGVertical);

  // Veritabanı ayarları
  Sifre = '';
  DB = 'C:\sqlite_db\kalori.db';
  Clomosy.DBSQLiteConnect(DB, Sifre);

  // Veritabanı bağlantı testi
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT COUNT(*) as toplam FROM yemekler');
    Qry.OpenOrExecute;
    ShowMessage('Veritabanı bağlandı. Toplam ' + Qry.FieldByName('toplam').AsString + ' yemek bulundu.');
  except
    ShowMessage('Veritabanı bağlantı hatası: ' + LastExceptionMessage);
  ;
  // İlk verileri yükle
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT * FROM yemekler ORDER BY yemek_adi');
    Qry.OpenOrExecute;
    while (not Qry.Eof)
    {
      dataListView.Items.Add;
      dataListView.Items[dataListView.Items.Count-1].Text = Qry.FieldByName('yemek_adi').AsString;
      dataListView.Items[dataListView.Items.Count-1].Detail = Qry.FieldByName('kalori').AsString + ' kalori';
      Qry.Next;
    }
  except
    ShowMessage('Veriler yüklenirken hata: ' + LastExceptionMessage);
  ;

  // Başlık etiketi
  titleLabel = kaloriFormInstance.AddNewLabel(kaloriFormInstance.LytTopBar, 'titleLabel', 'Kalori Listesi');
  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;

  // Ana layout
  mainLayout = kaloriFormInstance.AddNewLayout(kaloriFormInstance, 'mainLayout');
  mainLayout.Align = alClient;
  mainLayout.Margins.Top = 10;
  mainLayout.Margins.Bottom = 10;
  mainLayout.Margins.Left = 10;
  mainLayout.Margins.Right = 10;

  // Yenile butonu
  refreshButton = kaloriFormInstance.AddNewProButton(mainLayout, 'refreshButton', 'Listeyi Yenile');
  refreshButton.Align = alTop;
  refreshButton.Height = 50;
  refreshButton.Margins.Bottom = 10;
  refreshButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');
  refreshButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  refreshButton.clProSettings.FontSize = 16;
  refreshButton.clProSettings.TextSettings.Font.Style = [fsBold];
  refreshButton.clProSettings.IsRound = True;
  refreshButton.clProSettings.RoundHeight = 10;
  refreshButton.clProSettings.RoundWidth = 10;
  refreshButton.SetclProSettings(refreshButton.clProSettings);

  // ListView
  dataListView = kaloriFormInstance.AddNewListView(mainLayout, 'dataListView');
  dataListView.Align = alClient;
  dataListView.ItemAppearance.ItemHeight = 60;
  dataListView.SearchVisible = True;
  dataListView.Margins.Bottom = 10;

  // Ekleme paneli
  addPanel = kaloriFormInstance.AddNewProPanel(mainLayout, 'addPanel');
  addPanel.Align = alBottom;
  addPanel.Height = 180;
  addPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');
  addPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  addPanel.clProSettings.BorderWidth = 1;
  addPanel.clProSettings.IsRound = True;
  addPanel.clProSettings.RoundHeight = 10;
  addPanel.clProSettings.RoundWidth = 10;
  addPanel.SetclProSettings(addPanel.clProSettings);

  // Yemek adı input
  yemekAdiEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'yemekAdiEdit', 'Yemek adını girin...');
  yemekAdiEdit.Align = alTop;
  yemekAdiEdit.Height = 50;
  yemekAdiEdit.Margins.Top = 15;
  yemekAdiEdit.Margins.Left = 15;
  yemekAdiEdit.Margins.Right = 15;
  yemekAdiEdit.Margins.Bottom = 5;
  yemekAdiEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2196F3');
  yemekAdiEdit.clProSettings.BorderWidth = 2;
  yemekAdiEdit.clProSettings.IsRound = True;
  yemekAdiEdit.clProSettings.RoundHeight = 10;
  yemekAdiEdit.clProSettings.RoundWidth = 10;
  yemekAdiEdit.clProSettings.FontSize = 16;
  yemekAdiEdit.SetclProSettings(yemekAdiEdit.clProSettings);

  // Kalori input
  kaloriEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'kaloriEdit', 'Kalori miktarını girin...');
  kaloriEdit.Align = alTop;
  kaloriEdit.Height = 50;
  kaloriEdit.Margins.Top = 5;
  kaloriEdit.Margins.Left = 15;
  kaloriEdit.Margins.Right = 15;
  kaloriEdit.Margins.Bottom = 5;
  kaloriEdit.KeyboardType = vktNumberPad;
  kaloriEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FF9800');
  kaloriEdit.clProSettings.BorderWidth = 2;
  kaloriEdit.clProSettings.IsRound = True;
  kaloriEdit.clProSettings.RoundHeight = 10;
  kaloriEdit.clProSettings.RoundWidth = 10;
  kaloriEdit.clProSettings.FontSize = 16;
  kaloriEdit.SetclProSettings(kaloriEdit.clProSettings);

  // Ekle butonu
  ekleButton = kaloriFormInstance.AddNewProButton(addPanel, 'ekleButton', 'EKLE');
  ekleButton.Align = alTop;
  ekleButton.Height = 50;
  ekleButton.Margins.Top = 5;
  ekleButton.Margins.Left = 15;
  ekleButton.Margins.Right = 15;
  ekleButton.Margins.Bottom = 15;
  ekleButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF5722');
  ekleButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  ekleButton.clProSettings.FontSize = 18;
  ekleButton.clProSettings.TextSettings.Font.Style = [fsBold];
  ekleButton.clProSettings.IsRound = True;
  ekleButton.clProSettings.RoundHeight = 15;
  ekleButton.clProSettings.RoundWidth = 15;
  ekleButton.SetclProSettings(ekleButton.clProSettings);
  
  kaloriFormInstance.Run;
}
Yukarı Dön
Ahmet_27 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 16 Temmuz 2025
Durum: Aktif
Puanlar: 70 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Ahmet_27 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 48 Dakika Önce Saat 17:08
var
  kaloriFormInstance: TCLForm;
  mainLayout: TCLLayout;
  titleLabel: TCLLabel;
  dataListView: TCLListView;
  refreshButton: TCLProButton;
  addPanel: TCLProPanel;
  yemekAdiEdit: TCLProEdit;
  kaloriEdit: TCLProEdit;
  ekleButton: TCLProButton;
  SQLiteDB: TCLSQLiteConnection;
  Query: TCLSQLiteQuery;
  dbPath: string;
  Sifre, DB: String;
  Qry: TClSQLiteQuery;

{
  kaloriFormInstance = TCLForm.Create(Self);
  kaloriFormInstance.SetFormColor('#cce6d6', '#678e76', clGVertical);

  // Veritabanı ayarları
  Sifre = '';
  DB = 'C:\sqlite_db\kalori.db';
  Clomosy.DBSQLiteConnect(DB, Sifre);


    Qry = Clomosy.DBSQLiteQueryWith('SELECT COUNT(*) as toplam FROM yemekler');
    Qry.OpenOrExecute;
    ShowMessage('Veritabanı bağlandı. Toplam ' + Qry.FieldByName('toplam').AsString + ' yemek bulundu.');


    Qry = Clomosy.DBSQLiteQueryWith('SELECT * FROM yemekler ORDER BY yemek_adi');
    Qry.OpenOrExecute;
    while (not Qry.Eof)
    {
      dataListView.Items.Add;
      dataListView.Items[dataListView.Items.Count-1].Text = Qry.FieldByName('yemek_adi').AsString;
      dataListView.Items[dataListView.Items.Count-1].Detail = Qry.FieldByName('kalori').AsString + ' kalori';
      Qry.Next;
    }
  

  // Başlık etiketi
  titleLabel = kaloriFormInstance.AddNewLabel(kaloriFormInstance.LytTopBar, 'titleLabel', 'Kalori Listesi');
  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;

  // Ana layout
  mainLayout = kaloriFormInstance.AddNewLayout(kaloriFormInstance, 'mainLayout');
  mainLayout.Align = alClient;
  mainLayout.Margins.Top = 10;
  mainLayout.Margins.Bottom = 10;
  mainLayout.Margins.Left = 10;
  mainLayout.Margins.Right = 10;

  // Yenile butonu
  refreshButton = kaloriFormInstance.AddNewProButton(mainLayout, 'refreshButton', 'Listeyi Yenile');
  refreshButton.Align = alTop;
  refreshButton.Height = 50;
  refreshButton.Margins.Bottom = 10;
  refreshButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');
  refreshButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  refreshButton.clProSettings.FontSize = 16;
  refreshButton.clProSettings.TextSettings.Font.Style = [fsBold];
  refreshButton.clProSettings.IsRound = True;
  refreshButton.clProSettings.RoundHeight = 10;
  refreshButton.clProSettings.RoundWidth = 10;
  refreshButton.SetclProSettings(refreshButton.clProSettings);

  // ListView
  dataListView = kaloriFormInstance.AddNewListView(mainLayout, 'dataListView');
  dataListView.Align = alClient;
  dataListView.ItemAppearance.ItemHeight = 60;
  dataListView.SearchVisible = True;
  dataListView.Margins.Bottom = 10;

  // Ekleme paneli
  addPanel = kaloriFormInstance.AddNewProPanel(mainLayout, 'addPanel');
  addPanel.Align = alBottom;
  addPanel.Height = 180;
  addPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');
  addPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');
  addPanel.clProSettings.BorderWidth = 1;
  addPanel.clProSettings.IsRound = True;
  addPanel.clProSettings.RoundHeight = 10;
  addPanel.clProSettings.RoundWidth = 10;
  addPanel.SetclProSettings(addPanel.clProSettings);

  // Yemek adı input
  yemekAdiEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'yemekAdiEdit', 'Yemek adını girin...');
  yemekAdiEdit.Align = alTop;
  yemekAdiEdit.Height = 50;
  yemekAdiEdit.Margins.Top = 15;
  yemekAdiEdit.Margins.Left = 15;
  yemekAdiEdit.Margins.Right = 15;
  yemekAdiEdit.Margins.Bottom = 5;
  yemekAdiEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2196F3');
  yemekAdiEdit.clProSettings.BorderWidth = 2;
  yemekAdiEdit.clProSettings.IsRound = True;
  yemekAdiEdit.clProSettings.RoundHeight = 10;
  yemekAdiEdit.clProSettings.RoundWidth = 10;
  yemekAdiEdit.clProSettings.FontSize = 16;
  yemekAdiEdit.SetclProSettings(yemekAdiEdit.clProSettings);

  // Kalori input
  kaloriEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'kaloriEdit', 'Kalori miktarını girin...');
  kaloriEdit.Align = alTop;
  kaloriEdit.Height = 50;
  kaloriEdit.Margins.Top = 5;
  kaloriEdit.Margins.Left = 15;
  kaloriEdit.Margins.Right = 15;
  kaloriEdit.Margins.Bottom = 5;
  kaloriEdit.KeyboardType = vktNumberPad;
  kaloriEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FF9800');
  kaloriEdit.clProSettings.BorderWidth = 2;
  kaloriEdit.clProSettings.IsRound = True;
  kaloriEdit.clProSettings.RoundHeight = 10;
  kaloriEdit.clProSettings.RoundWidth = 10;
  kaloriEdit.clProSettings.FontSize = 16;
  kaloriEdit.SetclProSettings(kaloriEdit.clProSettings);

  // Ekle butonu
  ekleButton = kaloriFormInstance.AddNewProButton(addPanel, 'ekleButton', 'EKLE');
  ekleButton.Align = alTop;
  ekleButton.Height = 50;
  ekleButton.Margins.Top = 5;
  ekleButton.Margins.Left = 15;
  ekleButton.Margins.Right = 15;
  ekleButton.Margins.Bottom = 15;
  ekleButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF5722');
  ekleButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  ekleButton.clProSettings.FontSize = 18;
  ekleButton.clProSettings.TextSettings.Font.Style = [fsBold];
  ekleButton.clProSettings.IsRound = True;
  ekleButton.clProSettings.RoundHeight = 15;
  ekleButton.clProSettings.RoundWidth = 15;
  ekleButton.SetclProSettings(ekleButton.clProSettings);
  
  kaloriFormInstance.Run;
}

Düzelmiş olması lazım. Bende yine hata verdi ama db olmadığı için sende vermemesi lazım.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.