Syntax Error : Merhaba Sude,Syntax hatasının...

Tue, 08 Jul 2025 15:54:06 +0000

Yazar: BilalCndn
Konu: 1068
G�nderim Zaman�: 08 Temmuz 2025 Saat 15:54

Merhaba Sude,

Syntax hatas�n�n sebebi 67. sat�rdaki if i�in s�sl� parantez a��p kapatmam�� olman.
Bunun d��nda da a�a��daki hatalar var.
23. Sat�r ->

Clomosy.DBSQLiteQuery.Open;

Clomosy.DBSQLiteQuery.OpenOrExecute;

95. Sat�r ->

titleLabel.clProSettings.TextSettings.FontHorzAlign = palCenter;

titleLabel.clProSettings.FontHorzAlign = palCenter;

�yi �al��malar dilerim.

Syntax Error : merhaba aşağıdaki kodda en son...

Tue, 08 Jul 2025 14:47:29 +0000

Yazar: Sudesigirci
Konu: 1068
G�nderim Zaman�: 08 Temmuz 2025 Saat 14:47

merhaba a�a��daki kodda en son sat�rda anlamland�ramad��m bir sytanx error al�yorum �imdiden yard�mlar�n�z i�in te�ekk�r ederim

var

KayitForm: TclStyleForm;

nameEdit, surnameEdit, emailEdit, passwordEdit: TclProEdit;

kayitButton: TClProButton;

titleLabel: TClProLabel;

function IsValidAndUniqueEmail(mail: String): Boolean;

var atPos, dotPos, adetInt: Integer;

{

atPos = Pos('@', mail);

dotPos = Pos('.', mail);

if (atPos <= 1 || dotPos <= atPos + 1 || dotPos >= Length(mail)) {

ShowMessage('Ge�erli bir e-posta adresi giriniz.');

Result = False;

exit;

}

try

Clomosy.DBSQLiteQuery.SQL.Text =

'SELECT COUNT(*) as adet FROM Users WHERE Email = ' + QuotedStr(mail);

Clomosy.DBSQLiteQuery.Open;

adetInt = 0;

if not Clomosy.DBSQLiteQuery.Eof

adetInt = Clomosy.DBSQLiteQuery.FieldByName('adet').AsInteger;

Clomosy.DBSQLiteQuery.Close;

if (adetInt > 0) {

ShowMessage('Bu e-posta adresi zaten kay�tl�.');

Result = False;

} else {

Result = True;

}

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

Clomosy.DBSQLiteQuery.Close;

Result = False;

}

function CheckBlanks: Boolean;

{

if (Trim(nameEdit.Text) == '' || Trim(surnameEdit.Text) == '' ||

Trim(emailEdit.Text) == '' || Trim(passwordEdit.Text) == '') {

ShowMessage('L�tfen t�m alanlar� doldurun.');

Result = False;

} else {

Result = True;

}

void ResetFields;

{

nameEdit.Text = '';

surnameEdit.Text = '';

emailEdit.Text = '';

passwordEdit.Text = '';

}

void KayitOl;

{

if (CheckBlanks && IsValidAndUniqueEmail(emailEdit.Text)) {

Clomosy.DBSQLiteQuery.SQL.Text =

'INSERT INTO Users (Email, FirstName, LastName, Password) VALUES (' +

QuotedStr(emailEdit.Text) + ',' +

QuotedStr(nameEdit.Text) + ',' +

QuotedStr(surnameEdit.Text) + ',' +

QuotedStr(passwordEdit.Text) + ')';

try

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Kay�t ba�ar�yla tamamland�.');

ResetFields;

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

{

KayitForm = TclStyleForm.Create(Self);

KayitForm.SetFormBGImage('https://i.imgur.com/XYlUQhl.jpeg');

titleLabel = KayitForm.AddNewProLabel(KayitForm, 'titleLabel', 'Kay�t Ol');

titleLabel.Align = alTop;

titleLabel.Height = 40;

titleLabel.clProSettings.FontSize = 20;

titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];

titleLabel.clProSettings.TextSettings.FontHorzAlign = palCenter;

titleLabel.SetclProSettings(titleLabel.clProSettings);

nameEdit = KayitForm.AddNewProEdit(KayitForm, 'nameEdit', 'Ad�n�z');

nameEdit.Align = alTop;

nameEdit.Height = 40;

nameEdit.Margins.Top = 20;

surnameEdit = KayitForm.AddNewProEdit(KayitForm, 'surnameEdit', 'Soyad�n�z');

surnameEdit.Align = alTop;

surnameEdit.Height = 40;

surnameEdit.Margins.Top = 10;

emailEdit = KayitForm.AddNewProEdit(KayitForm, 'emailEdit', 'E-posta adresi');

emailEdit.Align = alTop;

emailEdit.Height = 40;

emailEdit.Margins.Top = 10;

passwordEdit = KayitForm.AddNewProEdit(KayitForm, 'passwordEdit', '�ifre');

passwordEdit.Align = alTop;

passwordEdit.Height = 40;

passwordEdit.Password = True;

passwordEdit.Margins.Top = 10;

passwordEdit.SetclProSettings(passwordEdit.clProSettings);

kayitButton = KayitForm.AddNewProButton(KayitForm, 'kayitButton', 'Kay�t Ol');

kayitButton.Align = alTop;

kayitButton.Height = 45;

kayitButton.Margins.Top = 20;

kayitButton.clProSettings.TextSettings.Font.Style = [fsBold];

kayitButton.clProSettings.FontHorzAlign = palCenter;

kayitButton.SetclProSettings(kayitButton.clProSettings);

KayitForm.AddNewEvent(kayitButton, tbeOnClick, 'KayitOl');

KayitForm.Run;

}

Clomosy | Forum : Syntax Error

Syntax Error : Merhaba Sude,Syntax hatasının...

Syntax Error : merhaba aşağıdaki kodda en son...