Syntax error

   selamun aleyküm yardımcı olabilirmisiniz hata alıyorum 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"> var
  MainForm: TclForm;
  MyMQTT: TclMQTT;
  TempLbl, SoilLbl, TankLbl, RainLbl: TclLabel;
  PmpBtn: TclProButton;
  HeaderPnl: TclProPanel;

void OnMQTTMessage;
var
  msg: String;
  jsonObj: TclJson;
begin
  msg := MyMQTT.ReceivedMessage;
  try
    jsonObj := TclJson.Create;
    jsonObj.Parse(msg);

    TempLbl.Text := '🌡️ Hava: ' + jsonObj.GetValue('temp') + '°C';
    SoilLbl.Text := '💧 Toprak Nemi: %' + jsonObj.GetValue('soil');

    if jsonObj.GetValue('rain') == '1' then
    begin
      RainLbl.Text := '🌧️ Durum: Yağmur Yağıyor';
      RainLbl.TextSettings.FontColor := clAlphaRed;
    end else 
    begin
      RainLbl.Text := '☀️ Durum: Hava Açık';
      RainLbl.TextSettings.FontColor := clAlphaLightgreen;
    end;

    if StrToInt(jsonObj.GetValue('tank')) > 20 then
      TankLbl.TextSettings.FontColor := clAlphaRed
    else
      TankLbl.TextSettings.FontColor := clAlphaWhite;

    TankLbl.Text := '🌊 Depo: ' + jsonObj.GetValue('tank') + ' cm';
  finally
    jsonObj.Free;
  end;
end;

void OnPumpClick;
begin
  if PmpBtn.Text == 'SULAMAYI BAŞLAT' then
  begin
    MyMQTT.SendToTopic('isabet/iot/ctrl', 'PUMP_ON');
    PmpBtn.Text := 'DURDUR';
    PmpBtn.clProSettings.BackgroundColor := clAlphaRed;
  end else 
  begin
    MyMQTT.SendToTopic('isabet/iot/ctrl', 'PUMP_OFF');
    PmpBtn.Text := 'SULAMAYI BAŞLAT';
    PmpBtn.clProSettings.BackgroundColor := clAlphaDarkgreen;
  end;
  PmpBtn.SetclProSettings(PmpBtn.clProSettings);
end;

begin
  MainForm := TclForm.Create(Self);
  MainForm.SetFormColor('#1B2631', '', clGNone);

  MyMQTT := MainForm.AddNewMQTTConnection(MainForm, 'MyMQTT');
  MyMQTT.OnReceivedMessage := 'OnMQTTMessage';
  MyMQTT.Connect('broker.hivemq.com', 1883, 'Kemankes_Mali');
  MyMQTT.Subscribe('isabet/iot/data');

  HeaderPnl := MainForm.AddNewProPanel(MainForm, 'HeaderPnl');
  HeaderPnl.Align := alTop; HeaderPnl.Height := 80;
  HeaderPnl.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#2C3E50');
  HeaderPnl.SetclProSettings(HeaderPnl.clProSettings);

  TempLbl := MainForm.AddNewLabel(HeaderPnl, 'TempLbl', 'Bekleniyor...');
  TempLbl.Align := alCenter; 
  TempLbl.TextSettings.FontColor := clAlphaWhite;

  SoilLbl := MainForm.AddNewLabel(MainForm, 'SoilLbl', '💧 Toprak: --');
  SoilLbl.Align := alTop; SoilLbl.Margins.Top := 40;
  SoilLbl.TextSettings.HorzAlign := taCenter;

  RainLbl := MainForm.AddNewLabel(MainForm, 'RainLbl', '☀️ Durum: --');
  RainLbl.Align := alTop; RainLbl.Margins.Top := 10;
  RainLbl.TextSettings.HorzAlign := taCenter;

  TankLbl := MainForm.AddNewLabel(MainForm, 'TankLbl', '🌊 Depo: --');
  TankLbl.Align := alTop; TankLbl.Margins.Top := 10;
  TankLbl.TextSettings.HorzAlign := taCenter;

  PmpBtn := MainForm.AddNewProButton(MainForm, 'PmpBtn', 'SULAMAYI BAŞLAT');
  PmpBtn.Align := alBottom; PmpBtn.Height := 80; PmpBtn.Margins.All := 20;
  PmpBtn.clProSettings.BackgroundColor := clAlphaDarkgreen;
  PmpBtn.SetclProSettings(PmpBtn.clProSettings);

  MainForm.AddNewEvent(PmpBtn, tbeOnClick, 'OnPumpClick');

  MainForm.Run;
end;
Unit Main: Syntax error.
Source position: 21,34

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
maliwankenobi254 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Mart 2026 Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı maliwankenobi254 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Syntax error Gönderim Zamanı: 4 Saat 26 Dakika Önce Saat 22:00
	selamun aleyküm yardımcı olabilirmisiniz hata alıyorum 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"> var MainForm: TclForm; MyMQTT: TclMQTT; TempLbl, SoilLbl, TankLbl, RainLbl: TclLabel; PmpBtn: TclProButton; HeaderPnl: TclProPanel; void OnMQTTMessage; var msg: String; jsonObj: TclJson; begin msg := MyMQTT.ReceivedMessage; try jsonObj := TclJson.Create; jsonObj.Parse(msg); TempLbl.Text := '🌡️ Hava: ' + jsonObj.GetValue('temp') + '°C'; SoilLbl.Text := '💧 Toprak Nemi: %' + jsonObj.GetValue('soil'); if jsonObj.GetValue('rain') == '1' then begin RainLbl.Text := '🌧️ Durum: Yağmur Yağıyor'; RainLbl.TextSettings.FontColor := clAlphaRed; end else begin RainLbl.Text := '☀️ Durum: Hava Açık'; RainLbl.TextSettings.FontColor := clAlphaLightgreen; end; if StrToInt(jsonObj.GetValue('tank')) > 20 then TankLbl.TextSettings.FontColor := clAlphaRed else TankLbl.TextSettings.FontColor := clAlphaWhite; TankLbl.Text := '🌊 Depo: ' + jsonObj.GetValue('tank') + ' cm'; finally jsonObj.Free; end; end; void OnPumpClick; begin if PmpBtn.Text == 'SULAMAYI BAŞLAT' then begin MyMQTT.SendToTopic('isabet/iot/ctrl', 'PUMP_ON'); PmpBtn.Text := 'DURDUR'; PmpBtn.clProSettings.BackgroundColor := clAlphaRed; end else begin MyMQTT.SendToTopic('isabet/iot/ctrl', 'PUMP_OFF'); PmpBtn.Text := 'SULAMAYI BAŞLAT'; PmpBtn.clProSettings.BackgroundColor := clAlphaDarkgreen; end; PmpBtn.SetclProSettings(PmpBtn.clProSettings); end; begin MainForm := TclForm.Create(Self); MainForm.SetFormColor('#1B2631', '', clGNone); MyMQTT := MainForm.AddNewMQTTConnection(MainForm, 'MyMQTT'); MyMQTT.OnReceivedMessage := 'OnMQTTMessage'; MyMQTT.Connect('broker.hivemq.com', 1883, 'Kemankes_Mali'); MyMQTT.Subscribe('isabet/iot/data'); HeaderPnl := MainForm.AddNewProPanel(MainForm, 'HeaderPnl'); HeaderPnl.Align := alTop; HeaderPnl.Height := 80; HeaderPnl.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#2C3E50'); HeaderPnl.SetclProSettings(HeaderPnl.clProSettings); TempLbl := MainForm.AddNewLabel(HeaderPnl, 'TempLbl', 'Bekleniyor...'); TempLbl.Align := alCenter; TempLbl.TextSettings.FontColor := clAlphaWhite; SoilLbl := MainForm.AddNewLabel(MainForm, 'SoilLbl', '💧 Toprak: --'); SoilLbl.Align := alTop; SoilLbl.Margins.Top := 40; SoilLbl.TextSettings.HorzAlign := taCenter; RainLbl := MainForm.AddNewLabel(MainForm, 'RainLbl', '☀️ Durum: --'); RainLbl.Align := alTop; RainLbl.Margins.Top := 10; RainLbl.TextSettings.HorzAlign := taCenter; TankLbl := MainForm.AddNewLabel(MainForm, 'TankLbl', '🌊 Depo: --'); TankLbl.Align := alTop; TankLbl.Margins.Top := 10; TankLbl.TextSettings.HorzAlign := taCenter; PmpBtn := MainForm.AddNewProButton(MainForm, 'PmpBtn', 'SULAMAYI BAŞLAT'); PmpBtn.Align := alBottom; PmpBtn.Height := 80; PmpBtn.Margins.All := 20; PmpBtn.clProSettings.BackgroundColor := clAlphaDarkgreen; PmpBtn.SetclProSettings(PmpBtn.clProSettings); MainForm.AddNewEvent(PmpBtn, tbeOnClick, 'OnPumpClick'); MainForm.Run; end; Unit Main: Syntax error. Source position: 21,34