Kod Çalışmama Hatası

   bu kod çalışmıyor sorunu ne acaba?

var
  beklemeForm : TclForm;
  centerLayout : TclLayout;
  lblBekle : TclProLabel;
  TimerKontrol : TclTimer;

// ----------------------------------------------------
// SQL kontrolü — sıra KIRMIZI'da mı?
// ----------------------------------------------------
void KontrolKirmizi;
{
  Clomosy.DBSQLServerQuery.Sql.Text :=
    'SELECT TurnPlayer FROM GameState WHERE ID = 1';

  Clomosy.DBSQLServerQuery.OpenOrExecute;

  if Clomosy.DBSQLServerQuery.FieldByName('TurnPlayer').AsString = 'Kirmizi' then
  begin
     Clomosy.RunUnit('kirmizisoru');
  end;
}

// ----------------------------------------------------
// FORM OLUŞTURMA
// ----------------------------------------------------
{
  beklemeForm = TclForm.Create(Self);

  beklemeForm.LytTopBar.Visible = False;
  beklemeForm.SetFormColor('#FF0000', '', clGNone);

  centerLayout = beklemeForm.AddNewLayout(beklemeForm, 'centerLayout');
  centerLayout.Align = alCenter;
  centerLayout.Width = 500;
  centerLayout.Height = 200;

  lblBekle = beklemeForm.AddNewProLabel(centerLayout, 'lblBekle', 'Mavi oyuncunun cevabı bekleniyor...');
  lblBekle.Align = alClient;
  lblBekle.clProSettings.FontColor = clAlphaColor.clWhite;
  lblBekle.clProSettings.FontSize = 28;
  lblBekle.clProSettings.FontVertAlign = palCenter;
  lblBekle.clProSettings.FontHorzAlign = palCenter;
  lblBekle.clProSettings.TextSettings.Font.Style = [fsBold];
  lblBekle.SetclProSettings(lblBekle.clProSettings);

  // TIMER — SQL kontrolü
  TimerKontrol = beklemeForm.AddNewTimer('TimerKontrol');
  TimerKontrol.Interval = 1000; // 1 saniye
  beklemeForm.AddNewEvent(TimerKontrol, tbeOnTimer, 'KontrolKirmizi');

  beklemeForm.Run;
}

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Hüseyin_Sadik Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 03 Aralık 2025 Durum: Aktif Değil Puanlar: 10	Mesaj Seçenekleri Yanıt Yaz Alıntı Hüseyin_Sadik Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Kod Çalışmama Hatası Gönderim Zamanı: 2 Saat 28 Dakika Önce Saat 14:43
	bu kod çalışmıyor sorunu ne acaba? var beklemeForm : TclForm; centerLayout : TclLayout; lblBekle : TclProLabel; TimerKontrol : TclTimer; // ---------------------------------------------------- // SQL kontrolü — sıra KIRMIZI'da mı? // ---------------------------------------------------- void KontrolKirmizi; { Clomosy.DBSQLServerQuery.Sql.Text := 'SELECT TurnPlayer FROM GameState WHERE ID = 1'; Clomosy.DBSQLServerQuery.OpenOrExecute; if Clomosy.DBSQLServerQuery.FieldByName('TurnPlayer').AsString = 'Kirmizi' then begin Clomosy.RunUnit('kirmizisoru'); end; } // ---------------------------------------------------- // FORM OLUŞTURMA // ---------------------------------------------------- { beklemeForm = TclForm.Create(Self); beklemeForm.LytTopBar.Visible = False; beklemeForm.SetFormColor('#FF0000', '', clGNone); centerLayout = beklemeForm.AddNewLayout(beklemeForm, 'centerLayout'); centerLayout.Align = alCenter; centerLayout.Width = 500; centerLayout.Height = 200; lblBekle = beklemeForm.AddNewProLabel(centerLayout, 'lblBekle', 'Mavi oyuncunun cevabı bekleniyor...'); lblBekle.Align = alClient; lblBekle.clProSettings.FontColor = clAlphaColor.clWhite; lblBekle.clProSettings.FontSize = 28; lblBekle.clProSettings.FontVertAlign = palCenter; lblBekle.clProSettings.FontHorzAlign = palCenter; lblBekle.clProSettings.TextSettings.Font.Style = [fsBold]; lblBekle.SetclProSettings(lblBekle.clProSettings); // TIMER — SQL kontrolü TimerKontrol = beklemeForm.AddNewTimer('TimerKontrol'); TimerKontrol.Interval = 1000; // 1 saniye beklemeForm.AddNewEvent(TimerKontrol, tbeOnTimer, 'KontrolKirmizi'); beklemeForm.Run; } https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">