Genel İşlemler - Syntax error

Syntax error

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1425
Tarih: 23 Mart 2026 Saat 19:54
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Syntax error

Mesajı Yazan: Mali Demirok
Konu: Syntax error
Mesaj Tarihi: 23 Mart 2026 Saat 15:57

var

MyForm: TclForm;

MainPnl: TclPanel;

UserEdit, 2011: TclProEdit;

LoginBtn: TclProButton;

HeaderLbl: TclLabel;

procedure CheckLogin;

begin

if (UserEdit.Text = '') or (2011.Text = '') then

begin

ShowMessage('Uyarı: Alanlar boş bırakılamaz!');

MyForm.SetFormColor('#C0392B', '', 0);

end

else

begin

ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text);

MyForm.SetFormColor('#27AE60', '', 0);

end;

begin

MyForm := TclForm.Create(Self);

MyForm.SetFormBGImage(' https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg" rel="nofollow - https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg ');

MainPnl := MyForm.AddNewPanel(MyForm, 'MainPnl');

MainPnl.Align := alCenter;

MainPnl.Width := 300;

MainPnl.Height := 350;

HeaderLbl := MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ');

HeaderLbl.Align := alTop;

HeaderLbl.Margins.Top := 20;

HeaderLbl.Height := 30;

HeaderLbl.TextSettings.Font.Size := 20;

HeaderLbl.TextSettings.HorzAlign := 1;

UserEdit := MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı');

UserEdit.Align := alTop;

UserEdit.Margins.Top := 30;

UserEdit.Margins.Left := 20;

UserEdit.Margins.Right := 20;

UserEdit.Height := 45;

2011 := MyForm.AddNewProEdit(MainPnl, '2011', 'Şifre');

2011.Align := alTop;

2011.Margins.Top := 15;

2011.Margins.Left := 20;

2011.Margins.Right := 20;

2011.Height := 45;

2011.Password := True;

LoginBtn := MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP');

LoginBtn.Align := alBottom;

LoginBtn.Margins.Bottom := 30;

LoginBtn.Margins.Left := 40;

LoginBtn.Margins.Right := 40;

LoginBtn.Height := 50;

MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin');

MyForm.Run;

end;

selamün aleyküm

kod yazarken hata aldım düzeltemiyorom yardım eder misiniz

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - 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">

Cevaplar:

Mesajı Yazan: kaanl0
Mesaj Tarihi: 23 Mart 2026 Saat 16:46

AleykumSelam
Clomosy'de kod blokları Begin ile başlayıp end ile bitmez {} ile başlar ve biter.
Ayrıca atama operatörü olarak := şeklinde değil = şeklinde kullanırız.
Ayrıca bir değişken ismi sayı ile başlayamaz.

Kodun düzeltimiş Halini iletiyorum. Başka hata alırsan iletebilirsin

var

MyForm: TclForm;

MainPnl: TclPanel;

UserEdit, PassEdit: TclProEdit; // "2011" ismi "PassEdit" olarak değiştirildi

LoginBtn: TclProButton;

HeaderLbl: TclLabel;

void CheckLogin; // procedure yerine void kullanıldı

{

// begin yerine { kullanıldı

if ((UserEdit.Text == '') || (PassEdit.Text == '')) // Karşılaştırma için == ve mantıksal veya için ||

{

ShowMessage('Uyarı: Alanlar boş bırakılamaz!');

MyForm.SetFormColor('#C0392B', '', 0);

}

else

{

ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text);

MyForm.SetFormColor('#27AE60', '', 0);

}

{ // Ana blok başlangıcı

MyForm = TclForm.Create(Self); // := yerine = kullanıldı

MainPnl = MyForm.AddNewPanel(MyForm, 'MainPnl');

MainPnl.Align = alCenter;

MainPnl.Width = 300;

MainPnl.Height = 350;

HeaderLbl = MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ');

HeaderLbl.Align = alTop;

HeaderLbl.Margins.Top = 20;

HeaderLbl.Height = 30;

HeaderLbl.TextSettings.Font.Size = 20;

HeaderLbl.TextSettings.HorzAlign = palCenter; // Sayısal değer yerine hizalama sabiti kullanıldı

UserEdit = MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı');

UserEdit.Align = alTop;

UserEdit.Margins.Top = 30;

UserEdit.Margins.Left = 20;

UserEdit.Margins.Right = 20;

UserEdit.Height = 45;

// Değişken adı rakamla başlayamazdı, PassEdit olarak güncellendi

PassEdit = MyForm.AddNewProEdit(MainPnl, 'PassEdit', 'Şifre');

PassEdit.Align = alTop;

PassEdit.Margins.Top = 15;

PassEdit.Margins.Left = 20;

PassEdit.Margins.Right = 20;

PassEdit.Height = 45;

PassEdit.Password = True;

LoginBtn = MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP');

LoginBtn.Align = alBottom;

LoginBtn.Margins.Bottom = 30;

LoginBtn.Margins.Left = 40;

LoginBtn.Margins.Right = 40;

LoginBtn.Height = 50;

MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin');

MyForm.Run;

} // end yerine } kullanıldı.