Clomosy | Forum : runtime error

runtime error : var StudentForm: TclForm; lblStudentTitle:...

Tue, 30 Jun 2026 16:27:19 +0000

Yazar: kayra12
Konu: 1571
G�nderim Zaman�: 30 Haziran 2026 Saat 16:27

var

StudentForm: TclForm;

lblStudentTitle: TclLabel;

ScrollStudent: TclVertScrollBox;

edtStudentName, edtStudentClass, edtStudentDept, edtStudentPhone: TclEdit;

edtParentName, edtParentPhone: TclEdit;

TypePnl: TclProPanel;

btnTypeGroup, btnTypePrivate: TclProButton;

SelectedType: String;

btnAddStudent, btnClearAll, btnBackToMain: TclProButton;

myStudentListView: TclListView;

// Dizi s�n�rlar� runtime hatas�n� engellemek i�in 0..150 olarak kesinle�tirildi

StudentNames: array[0..150] of String;

StudentClasses: array[0..150] of String;

StudentDepts: array[0..150] of String;

StudentPhones: array[0..150] of String;

ParentNames: array[0..150] of String;

ParentPhones: array[0..150] of String;

StudentTypes: array[0..150] of String;

AbsenceCounts: array[0..150] of String;

ExcusedCounts: array[0..150] of String;

TotalStudents: Integer;

ClickedStudentIndex: Integer;

BackdropPnl: TclProPanel;

SheetPnl: TclProPanel;

lblSheetTitle: TclProLabel;

btnCallParent, btnMsgParent, btnCallStudent: TclProButton;

AbsPnl, ExcPnl: TclProPanel;

btnAbsPlus, btnAbsMinus: TclProButton;

btnExcPlus, btnExcMinus: TclProButton;

void GoBackToMain;

{

StudentForm.Hide;

}

void SaveStudentNamesToFile;

var

fileList: TclStringList;

i: Integer;

{

fileList = Clomosy.StringListNew;

for (i = 0 to TotalStudents - 1)

{

fileList.Add(StudentNames);

}

fileList.SaveToFile(Clomosy.AppFilesPath + 'ogrenci_isimleri.txt', 0);

}

void UpdateSheetTitleText;

{

lblSheetTitle.Text = StudentNames[ClickedStudentIndex] + ' (' + StudentTypes[ClickedStudentIndex] + ')' + #13#10 + 'Devamsizlik: ' + AbsenceCounts[ClickedStudentIndex] + ' gun | Izinli: ' + ExcusedCounts[ClickedStudentIndex] + ' gun';

}

void RefreshStudentList;

var

i: Integer;

jsonStr: String;

{

jsonStr = '';

for (i = 0 to TotalStudents - 1)

{

if (jsonStr <> '')

{

jsonStr = jsonStr + ', ';

}

jsonStr = jsonStr + '{"MAIN_TEXT":"' + StudentNames + ' (' + StudentClasses + '-' + StudentDepts + ')", "SUB_TEXT":"Tip: ' + StudentTypes + ' | Devamsizlik: ' + AbsenceCounts + ' | Izinli: ' + ExcusedCounts + '"}';

}

if (jsonStr == '')

{

// 79. sat�rdaki bo� dataset ��kme hatas� ClearList ile kal�c� olarak ��z�ld�

myStudentListView.ClearList;

}

else

{

myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + jsonStr + ']'));

}

void ClearAllStudents;

{

TotalStudents = 0;

RefreshStudentList;

SaveStudentNamesToFile;

ShowMessage('Ogrenci listesi tamamen temizlendi!');

}

void SetTypeGroup;

{

SelectedType = 'Etut';

btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4F46E5');

btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');

btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);

btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);

}

void SetTypePrivate;

{

SelectedType = 'Ozel Ders';

btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');

btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4F46E5');

btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);

btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);

}

void AddNewStudent;

{

if (edtStudentName.Text == '')

{

ShowMessage('Lutfen en azindan ogrenci adini yazin!');

}

else

{

if (TotalStudents >= 150)

{

ShowMessage('Maksimum ogrenci sinirina ulasildi!');

Exit;

}

StudentNames[TotalStudents] = edtStudentName.Text;

StudentClasses[TotalStudents] = edtStudentClass.Text;

StudentDepts[TotalStudents] = edtStudentDept.Text;

StudentPhones[TotalStudents] = edtStudentPhone.Text;

ParentNames[TotalStudents] = edtParentName.Text;

ParentPhones[TotalStudents] = edtParentPhone.Text;

StudentTypes[TotalStudents] = SelectedType;

AbsenceCounts[TotalStudents] = '0';

ExcusedCounts[TotalStudents] = '0';

TotalStudents = TotalStudents + 1;

RefreshStudentList;

SaveStudentNamesToFile;

edtStudentName.Text = '';

edtStudentClass.Text = '';

edtStudentDept.Text = '';

edtStudentPhone.Text = '';

edtParentName.Text = '';

edtParentPhone.Text = '';

SetTypeGroup;

}

void HideBottomSheet;

{

BackdropPnl.Visible = False;

SheetPnl.Visible = False;

}

void OnStudentItemClick;

{

ClickedStudentIndex = myStudentListView.ItemIndex;

if (ClickedStudentIndex > -1)

{

UpdateSheetTitleText;

BackdropPnl.Visible = True;

SheetPnl.Visible = True;

BackdropPnl.BringToFront;

SheetPnl.BringToFront;

}

void AddAbsence;

var

currentVal: Integer;

{

currentVal = StrToInt(AbsenceCounts[ClickedStudentIndex]);

AbsenceCounts[ClickedStudentIndex] = IntToStr(currentVal + 1);

UpdateSheetTitleText;

RefreshStudentList;

}

void RemoveAbsence;

var

currentVal: Integer;

{

currentVal = StrToInt(AbsenceCounts[ClickedStudentIndex]);

if (currentVal > 0)

{

AbsenceCounts[ClickedStudentIndex] = IntToStr(currentVal - 1);

UpdateSheetTitleText;

RefreshStudentList;

}

void AddExcused;

var

currentVal: Integer;

{

currentVal = StrToInt(ExcusedCounts[ClickedStudentIndex]);

ExcusedCounts[ClickedStudentIndex] = IntToStr(currentVal + 1);

UpdateSheetTitleText;

RefreshStudentList;

}

void RemoveExcused;

var

currentVal: Integer;

{

currentVal = StrToInt(ExcusedCounts[ClickedStudentIndex]);

if (currentVal > 0)

{

ExcusedCounts[ClickedStudentIndex] = IntToStr(currentVal - 1);

UpdateSheetTitleText;

RefreshStudentList;

}

// ARTIK HATA VERMEYEN VEL� ARAMA FONKS�YONU

void CallParent;

{

if (ParentPhones[ClickedStudentIndex] <> '')

{

ShowMessage(ParentNames[ClickedStudentIndex] + ' isimli velinin telefonu: ' + ParentPhones[ClickedStudentIndex]);

}

else

{

ShowMessage('Kayitli veli telefonu bulunamadi!');

}

HideBottomSheet;

}

// ARTIK HATA VERMEYEN ��RENC� ARAMA FONKS�YONU

void CallStudent;

{

if (StudentPhones[ClickedStudentIndex] <> '')

{

ShowMessage(StudentNames[ClickedStudentIndex] + ' isimli ogrencinin telefonu: ' + StudentPhones[ClickedStudentIndex]);

}

else

{

ShowMessage('Kayitli ogrenci telefonu bulunamadi!');

}

HideBottomSheet;

}

// ARTIK HATA VERMEYEN WHATSAPP FONKS�YONU

void MsgParent;

{

if (ParentPhones[ClickedStudentIndex] <> '')

{

ShowMessage(ParentNames[ClickedStudentIndex] + ' velisi icin iletisim numarasi: ' + ParentPhones[ClickedStudentIndex]);

}

else

{

ShowMessage('Kayitli veli telefonu bulunamadi!');

}

HideBottomSheet;

}

{

StudentForm = TclForm.Create(Self);

TotalStudents = 0;

SelectedType = 'Etut';

btnBackToMain = StudentForm.AddNewProButton(StudentForm, 'btnBackToMain', '⬅ Ana Men�ye D�n');

btnBackToMain.Align = alBottom;

btnBackToMain.Height = 55;

btnBackToMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48');

btnBackToMain.clProSettings.FontColor = clAlphaColor.clWhite;

btnBackToMain.clProSettings.FontSize = 15;

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

btnBackToMain.SetclProSettings(btnBackToMain.clProSettings);

StudentForm.AddNewEvent(btnBackToMain, tbeOnClick, 'GoBackToMain');

ScrollStudent = StudentForm.AddNewVertScrollBox(StudentForm, 'ScrollStudent');

ScrollStudent.Align = alClient;

lblStudentTitle = StudentForm.AddNewLabel(ScrollStudent, 'lblStudentTitle', '👥 ��renci Portf�y�');

lblStudentTitle.Align = alTop;

lblStudentTitle.Margins.Top = 20;

lblStudentTitle.Margins.Bottom = 20;

lblStudentTitle.Height = 45;

lblStudentTitle.TextSettings.Font.Size = 22;

lblStudentTitle.TextSettings.Font.Style = [fsBold];

lblStudentTitle.TextSettings.HorzAlign = 1;

edtStudentName = StudentForm.AddNewEdit(ScrollStudent, 'edtStudentName', '��renci Ad� ve Soyad�...');

edtStudentName.Align = alTop; edtStudentName.Height = 45; edtStudentName.Margins.Left = 20; edtStudentName.Margins.Right = 20; edtStudentName.Margins.Bottom = 10;

edtStudentClass = StudentForm.AddNewEdit(ScrollStudent, 'edtStudentClass', 'S�n�f� (�rn: 12-A)...');

edtStudentClass.Align = alTop; edtStudentClass.Height = 45; edtStudentClass.Margins.Left = 20; edtStudentClass.Margins.Right = 20; edtStudentClass.Margins.Bottom = 10;

edtStudentDept = StudentForm.AddNewEdit(ScrollStudent, 'edtStudentDept', 'B�l�m� (�rn: Say�sal)...');

edtStudentDept.Align = alTop; edtStudentDept.Height = 45; edtStudentDept.Margins.Left = 20; edtStudentDept.Margins.Right = 20; edtStudentDept.Margins.Bottom = 10;

edtStudentPhone = StudentForm.AddNewEdit(ScrollStudent, 'edtStudentPhone', '��renci �leti�im No...');

edtStudentPhone.Align = alTop; edtStudentPhone.Height = 45; edtStudentPhone.Margins.Left = 20; edtStudentPhone.Margins.Right = 20; edtStudentPhone.Margins.Bottom = 10;

edtParentName = StudentForm.AddNewEdit(ScrollStudent, 'edtParentName', 'Veli Ad� ve Soyad�...');

edtParentName.Align = alTop; edtParentName.Height = 45; edtParentName.Margins.Left = 20; edtParentName.Margins.Right = 20; edtParentName.Margins.Bottom = 10;

edtParentPhone = StudentForm.AddNewEdit(ScrollStudent, 'edtParentPhone', 'Veli �leti�im No (�rn: 05xx)...');

edtParentPhone.Align = alTop; edtParentPhone.Height = 45; edtParentPhone.Margins.Left = 20; edtParentPhone.Margins.Right = 20; edtParentPhone.Margins.Bottom = 15;

TypePnl = StudentForm.AddNewProPanel(ScrollStudent, 'TypePnl');

TypePnl.Align = alTop;

TypePnl.Height = 45;

TypePnl.Margins.Bottom = 15;

TypePnl.Margins.Left = 20;

TypePnl.Margins.Right = 20;

TypePnl.clProSettings.IsTransparent = True;

TypePnl.SetclProSettings(TypePnl.clProSettings);

btnTypeGroup = StudentForm.AddNewProButton(TypePnl, 'btnTypeGroup', '👥 Et�t (Grup)');

btnTypeGroup.Align = alLeft;

btnTypeGroup.Width = (StudentForm.clWidth - 50) / 2;

btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4F46E5');

btnTypeGroup.clProSettings.FontColor = clAlphaColor.clWhite;

btnTypeGroup.clProSettings.RoundHeight = 10; btnTypeGroup.clProSettings.RoundWidth = 10;

btnTypeGroup.clProSettings.FontSize = 12;

btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);

StudentForm.AddNewEvent(btnTypeGroup, tbeOnClick, 'SetTypeGroup');

btnTypePrivate = StudentForm.AddNewProButton(TypePnl, 'btnTypePrivate', '👤 �zel Ders');

btnTypePrivate.Align = alRight;

btnTypePrivate.Width = (StudentForm.clWidth - 50) / 2;

btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');

btnTypePrivate.clProSettings.FontColor = clAlphaColor.clWhite;

btnTypePrivate.clProSettings.RoundHeight = 10; btnTypePrivate.clProSettings.RoundWidth = 10;

btnTypePrivate.clProSettings.FontSize = 12;

btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);

StudentForm.AddNewEvent(btnTypePrivate, tbeOnClick, 'SetTypePrivate');

btnAddStudent = StudentForm.AddNewProButton(ScrollStudent, 'btnAddStudent', '➕ Listeye Ekle');

btnAddStudent.Align = alTop;

btnAddStudent.Height = 50;

btnAddStudent.Margins.Left = 20; btnAddStudent.Margins.Right = 20; btnAddStudent.Margins.Bottom = 10;

btnAddStudent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#10B981');

btnAddStudent.clProSettings.FontColor = clAlphaColor.clWhite;

btnAddStudent.clProSettings.RoundHeight = 10; btnAddStudent.clProSettings.RoundWidth = 10;

btnAddStudent.clProSettings.FontSize = 13;

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

btnAddStudent.SetclProSettings(btnAddStudent.clProSettings);

StudentForm.AddNewEvent(btnAddStudent, tbeOnClick, 'AddNewStudent');

btnClearAll = StudentForm.AddNewProButton(ScrollStudent, 'btnClearAll', '🗑 Listeyi S�f�rla');

btnClearAll.Align = alTop;

btnClearAll.Height = 45;

btnClearAll.Margins.Left = 20; btnClearAll.Margins.Right = 20; btnClearAll.Margins.Bottom = 25;

btnClearAll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F59E0B');

btnClearAll.clProSettings.FontColor = clAlphaColor.clWhite;

btnClearAll.clProSettings.RoundHeight = 10; btnClearAll.clProSettings.RoundWidth = 10;

btnClearAll.clProSettings.FontSize = 12;

btnClearAll.SetclProSettings(btnClearAll.clProSettings);

StudentForm.AddNewEvent(btnClearAll, tbeOnClick, 'ClearAllStudents');

myStudentListView = StudentForm.AddNewListView(ScrollStudent, 'myStudentListView');

myStudentListView.Align = alClient;

myStudentListView.Height = 300;

myStudentListView.Margins.Left = 15; myStudentListView.Margins.Right = 15; myStudentListView.Margins.Bottom = 20;

StudentForm.AddNewEvent(myStudentListView, tbeOnItemClick, 'OnStudentItemClick');

StudentNames[0] = '�rnek ��renci';

StudentClasses[0] = '12-A';

StudentDepts[0] = 'Say�sal';

StudentPhones[0] = '05551111111';

ParentNames[0] = 'Ahmet Veli';

ParentPhones[0] = '05552222222';

StudentTypes[0] = 'Etut';

AbsenceCounts[0] = '3';

ExcusedCounts[0] = '1';

TotalStudents = 1;

RefreshStudentList;

SaveStudentNamesToFile;

BackdropPnl = StudentForm.AddNewProPanel(StudentForm, 'BackdropPnl');

BackdropPnl.Align = alClient;

BackdropPnl.clProSettings.IsTransparent = True;

BackdropPnl.Visible = False;

BackdropPnl.SetclProSettings(BackdropPnl.clProSettings);

StudentForm.AddNewEvent(BackdropPnl, tbeOnClick, 'HideBottomSheet');

SheetPnl = StudentForm.AddNewProPanel(StudentForm, 'SheetPnl');

SheetPnl.Align = alBottom;

SheetPnl.Height = 360;

SheetPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite;

SheetPnl.clProSettings.RoundHeight = 30;

SheetPnl.clProSettings.RoundWidth = 30;

SheetPnl.Visible = False;

SheetPnl.SetclProSettings(SheetPnl.clProSettings);

lblSheetTitle = StudentForm.AddNewProLabel(SheetPnl, 'lblSheetTitle', '��renci Y�netimi');

lblSheetTitle.Align = alTop;

lblSheetTitle.Height = 65;

lblSheetTitle.Margins.Top = 15;

lblSheetTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#0F172A');

lblSheetTitle.clProSettings.FontSize = 14;

lblSheetTitle.clProSettings.FontHorzAlign = palCenter;

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

lblSheetTitle.SetclProSettings(lblSheetTitle.clProSettings);

AbsPnl = StudentForm.AddNewProPanel(SheetPnl, 'AbsPnl');

AbsPnl.Align = alTop;

AbsPnl.Height = 45;

AbsPnl.Margins.Left = 25; AbsPnl.Margins.Right = 25; AbsPnl.Margins.Bottom = 10;

AbsPnl.clProSettings.IsTransparent = True;

AbsPnl.SetclProSettings(AbsPnl.clProSettings);

btnAbsMinus = StudentForm.AddNewProButton(AbsPnl, 'btnAbsMinus', '🔴 Devams�zl�k -1');

btnAbsMinus.Align = alLeft;

btnAbsMinus.Width = (StudentForm.clWidth - 60) / 2;

btnAbsMinus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FCA5A5');

btnAbsMinus.clProSettings.FontColor = clAlphaColor.clHexToColor('#7F1D1D');

btnAbsMinus.clProSettings.RoundHeight = 8; btnAbsMinus.clProSettings.RoundWidth = 8;

btnAbsMinus.clProSettings.FontSize = 11;

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

btnAbsMinus.SetclProSettings(btnAbsMinus.clProSettings);

StudentForm.AddNewEvent(btnAbsMinus, tbeOnClick, 'RemoveAbsence');

btnAbsPlus = StudentForm.AddNewProButton(AbsPnl, 'btnAbsPlus', '🔴 Devams�zl�k +1');

btnAbsPlus.Align = alRight;

btnAbsPlus.Width = (StudentForm.clWidth - 60) / 2;

btnAbsPlus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DC2626');

btnAbsPlus.clProSettings.FontColor = clAlphaColor.clWhite;

btnAbsPlus.clProSettings.RoundHeight = 8; btnAbsPlus.clProSettings.RoundWidth = 8;

btnAbsPlus.clProSettings.FontSize = 11;

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

btnAbsPlus.SetclProSettings(btnAbsPlus.clProSettings);

StudentForm.AddNewEvent(btnAbsPlus, tbeOnClick, 'AddAbsence');

ExcPnl = StudentForm.AddNewProPanel(SheetPnl, 'ExcPnl');

ExcPnl.Align = alTop;

ExcPnl.Height = 45;

ExcPnl.Margins.Left = 25; ExcPnl.Margins.Right = 25; ExcPnl.Margins.Bottom = 15;

ExcPnl.clProSettings.IsTransparent = True;

ExcPnl.SetclProSettings(ExcPnl.clProSettings);

btnExcMinus = StudentForm.AddNewProButton(ExcPnl, 'btnExcMinus', '🟡 �zinli -1');

btnExcMinus.Align = alLeft;

btnExcMinus.Width = (StudentForm.clWidth - 60) / 2;

btnExcMinus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FDE68A');

btnExcMinus.clProSettings.FontColor = clAlphaColor.clHexToColor('#78350F');

btnExcMinus.clProSettings.RoundHeight = 8; btnExcMinus.clProSettings.RoundWidth = 8;

btnExcMinus.clProSettings.FontSize = 11;

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

btnExcMinus.SetclProSettings(btnExcMinus.clProSettings);

StudentForm.AddNewEvent(btnExcMinus, tbeOnClick, 'RemoveExcused');

btnExcPlus = StudentForm.AddNewProButton(ExcPnl, 'btnExcPlus', '🟡 �zinli +1');

btnExcPlus.Align = alRight;

btnExcPlus.Width = (StudentForm.clWidth - 60) / 2;

btnExcPlus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D97706');

btnExcPlus.clProSettings.FontColor = clAlphaColor.clWhite;

btnExcPlus.clProSettings.RoundHeight = 8; btnExcPlus.clProSettings.RoundWidth = 8;

btnExcPlus.clProSettings.FontSize = 11;

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

btnExcPlus.SetclProSettings(btnExcPlus.clProSettings);

StudentForm.AddNewEvent(btnExcPlus, tbeOnClick, 'AddExcused');

btnCallParent = StudentForm.AddNewProButton(SheetPnl, 'btnCallParent', '📞 Veli''yi Ara');

btnCallParent.Align = alTop;

btnCallParent.Height = 42;

btnCallParent.Margins.Left = 25; btnCallParent.Margins.Right = 25; btnCallParent.Margins.Bottom = 8;

btnCallParent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

btnCallParent.clProSettings.FontColor = clAlphaColor.clWhite;

btnCallParent.clProSettings.RoundHeight = 8; btnCallParent.clProSettings.RoundWidth = 8;

btnCallParent.clProSettings.FontSize = 12;

btnCallParent.SetclProSettings(btnCallParent.clProSettings);

StudentForm.AddNewEvent(btnCallParent, tbeOnClick, 'CallParent');

btnMsgParent = StudentForm.AddNewProButton(SheetPnl, 'btnMsgParent', '💬 WhatsApp Mesaj�');

btnMsgParent.Align = alTop;

btnMsgParent.Height = 42;

btnMsgParent.Margins.Left = 25; btnMsgParent.Margins.Right = 25; btnMsgParent.Margins.Bottom = 8;

btnMsgParent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#10B981');

btnMsgParent.clProSettings.FontColor = clAlphaColor.clWhite;

btnMsgParent.clProSettings.RoundHeight = 8; btnMsgParent.clProSettings.RoundWidth = 8;

btnMsgParent.clProSettings.FontSize = 12;

btnMsgParent.SetclProSettings(btnMsgParent.clProSettings);

StudentForm.AddNewEvent(btnMsgParent, tbeOnClick, 'MsgParent');

btnCallStudent = StudentForm.AddNewProButton(SheetPnl, 'btnCallStudent', '📱 ��renciyi Ara');

btnCallStudent.Align = alTop;

btnCallStudent.Height = 42;

btnCallStudent.Margins.Left = 25; btnCallStudent.Margins.Right = 25; btnCallStudent.Margins.Bottom = 15;

btnCallStudent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');

btnCallStudent.clProSettings.FontColor = clAlphaColor.clWhite;

btnCallStudent.clProSettings.RoundHeight = 8; btnCallStudent.clProSettings.RoundWidth = 8;

btnCallStudent.clProSettings.FontSize = 12;

btnCallStudent.SetclProSettings(btnCallStudent.clProSettings);

StudentForm.AddNewEvent(btnCallStudent, tbeOnClick, 'CallStudent');

StudentForm.Run;

}

iyi �al��malar dilerim

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">

runtime error : uses fonksiyonlar;var StudentForm:...

Tue, 30 Jun 2026 14:59:42 +0000
Yazar: ErenTotan
Konu: 1571
G�nderim Zaman�: 30 Haziran 2026 Saat 14:59

uses fonksiyonlar;

var
StudentForm: TclForm;
lblStudentTitle: TclLabel;
ScrollStudent: TclVertScrollBox;

edtStudentName, edtStudentClass, edtStudentDept, edtStudentPhone: TclEdit;
edtParentName, edtParentPhone: TclEdit;

TypePnl: TclProPanel;
btnTypeGroup, btnTypePrivate: TclProButton;
SelectedType: String;

btnAddStudent, btnClearAll, btnBackToMain: TclProButton;
myStudentListView: TclListView;

StudentNames: array[0..100] of String;
StudentClasses: array[0..100] of String;
StudentDepts: array[0..100] of String;
StudentPhones: array[0..100] of String;
ParentNames: array[0..100] of String;
ParentPhones: array[0..100] of String;
StudentTypes: array[0..100] of String;
AbsenceCounts: array[0..100] of String;
ExcusedCounts: array[0..100] of String;

TotalStudents: Integer;
ClickedStudentIndex: Integer;

BackdropPnl: TclProPanel;
SheetPnl: TclProPanel;
lblSheetTitle: TclProLabel;
btnCallParent, btnMsgParent, btnCallStudent: TclProButton;

AbsPnl, ExcPnl: TclProPanel;
btnAbsPlus, btnAbsMinus: TclProButton;
btnExcPlus, btnExcMinus: TclProButton;

void GoBackToMain;
{
StudentForm.Hide;
}

void SaveStudentNamesToFile;
var
fileList: TclStringList;
i: Integer;
{
fileList = Clomosy.StringListNew;
for (i = 0 to TotalStudents - 1) // 🌟 Parantez eklendi
{
fileList.Add(StudentNames);
}
fileList.SaveToFile(Clomosy.AppFilesPath + 'ogrenci_isimleri.txt');
}

void UpdateSheetTitleText;
{
lblSheetTitle.Text = StudentNames[ClickedStudentIndex] + ' (' + StudentTypes[ClickedStudentIndex] + ')' + #13#10 +
'Devamsizlik: ' + AbsenceCounts[ClickedStudentIndex] + ' gun | Izinli: ' + ExcusedCounts[ClickedStudentIndex] + ' gun';
}

void RefreshStudentList;
var
i: Integer;
jsonStr: String;
{
jsonStr = '';
for (i = 0 to TotalStudents - 1) // 🌟 Parantez eklendi
{
if (jsonStr <> '')
{
jsonStr = jsonStr + ', ';
}
jsonStr = jsonStr + '{"MAIN_TEXT":"' + StudentNames + ' (' + StudentClasses + '-' + StudentDepts + ')", ' +
'"SUB_TEXT":"Tip: ' + StudentTypes + ' | Devamsizlik: ' + AbsenceCounts + ' | Izinli: ' + ExcusedCounts + '"}';
}
myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + jsonStr + ']'));
}

void ClearAllStudents;
{
TotalStudents = 0;
RefreshStudentList;
SaveStudentNamesToFile;
ShowMessage('Ogrenci listesi tamamen temizlendi!');
}

void SetTypeGroup;
{
SelectedType = 'Etut';
btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');
btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);
btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);
}

void SetTypePrivate;
{
SelectedType = 'Ozel Ders';
btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');
btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);
btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);
}

void AddNewStudent;
{
if (edtStudentName.Text == '')
{
ShowMessage('Lutfen en azindan ogrenci adini yazin!');
}
else
{
if (TotalStudents >= 100)
{
ShowMessage('Maksimum ogrenci sinirina ulasildi!');
Exit;
}

StudentNames[TotalStudents] = edtStudentName.Text;
StudentClasses[TotalStudents] = edtStudentClass.Text;
StudentDepts[TotalStudents] = edtStudentDept.Text;
StudentPhones[TotalStudents] = edtStudentPhone.Text;
ParentNames[TotalStudents] = edtParentName.Text;
ParentPhones[TotalStudents] = edtParentPhone.Text;
StudentTypes[TotalStudents] = SelectedType;
AbsenceCounts[TotalStudents] = '0';
ExcusedCounts[TotalStudents] = '0';
TotalStudents = TotalStudents + 1;

RefreshStudentList;
SaveStudentNamesToFile;

edtStudentName.Text = '';
edtStudentClass.Text = '';
edtStudentDept.Text = '';
edtStudentPhone.Text = '';
edtParentName.Text = '';
edtParentPhone.Text = '';
SetTypeGroup;
}
}

void HideBottomSheet;
{
BackdropPnl.Visible = False;
SheetPnl.Visible = False;
}

void OnStudentItemClick;
{
ClickedStudentIndex = myStudentListView.ItemIndex;
UpdateSheetTitleText;

BackdropPnl.Visible = True;
SheetPnl.Visible = True;
BackdropPnl.BringToFront;
SheetPnl.BringToFront;
}

void AddAbsence;
var
currentVal: Integer;
{
currentVal = StrToInt(AbsenceCounts[ClickedStudentIndex]);
AbsenceCounts[ClickedStudentIndex] = IntToStr(currentVal + 1);
UpdateSheetTitleText;
RefreshStudentList;
}

void RemoveAbsence;
var
currentVal: Integer;
{
currentVal = StrToInt(AbsenceCounts[ClickedStudentIndex]);
if (currentVal > 0)
{
AbsenceCounts[ClickedStudentIndex] = IntToStr(currentVal - 1);
UpdateSheetTitleText;
RefreshStudentList;
}
}

void AddExcused;
var
currentVal: Integer;
{
currentVal = StrToInt(ExcusedCounts[ClickedStudentIndex]);
ExcusedCounts[ClickedStudentIndex] = IntToStr(currentVal + 1);
UpdateSheetTitleText;
RefreshStudentList;
}

void RemoveExcused;
var
currentVal: Integer;
{
currentVal = StrToInt(ExcusedCounts[ClickedStudentIndex]);
if (currentVal > 0)
{
ExcusedCounts[ClickedStudentIndex] = IntToStr(currentVal - 1);
UpdateSheetTitleText;
RefreshStudentList;
}
}

void CallParent;
{
if (ParentPhones[ClickedStudentIndex] <> '')
{
TClomosyOS.OpenURL('tel:' + ParentPhones[ClickedStudentIndex]);
}
else
{
ShowMessage('Kayitli veli telefonu bulunamadi!');
}
HideBottomSheet;
}

void MsgParent;
var
cleanPhone: String;
msgText: String;
{
if (ParentPhones[ClickedStudentIndex] <> '')
{
cleanPhone = ParentPhones[ClickedStudentIndex];
if (Copy(cleanPhone, 1, 1) == '0')
{
cleanPhone = Copy(cleanPhone, 2, Length(cleanPhone) - 1);
}

msgText = 'Merhaba ' + ParentNames[ClickedStudentIndex] + ' Hanim/Bey. ' + StudentNames[ClickedStudentIndex] + ' isimli ogrencimizin durumu hakk�nda gorusmek uzere mesaj at�yorum.';
TClomosyOS.OpenURL('https://wa.me/90' + cleanPhone + '?text=' + msgText);
}
else
{
ShowMessage('Kayitli veli telefonu bulunamadi!');
}
HideBottomSheet;
}

void CallStudent;
{
if (StudentPhones[ClickedStudentIndex] <> '')
{
TClomosyOS.OpenURL('tel:' + StudentPhones[ClickedStudentIndex]);
}
else
{
ShowMessage('Kayitli ogrenci telefonu bulunamadi!');
}
HideBottomSheet;
}

{
StudentForm = TclForm.Create(Self);
TotalStudents = 0;
SelectedType = 'Etut';

btnBackToMain = fonksiyonlar.CreateMyProButton(StudentForm, StudentForm, 'btnBackToMain', '⬅ Ana Men�ye D�n', '#EF4444', 60);
btnBackToMain.Align = alBottom;
StudentForm.AddNewEvent(btnBackToMain, tbeOnClick, 'GoBackToMain');

ScrollStudent = StudentForm.AddNewVertScrollBox(StudentForm, 'ScrollStudent');
ScrollStudent.Align = alClient;

lblStudentTitle = StudentForm.AddNewLabel(ScrollStudent, 'lblStudentTitle', '👥 ��renci Portf�y�');
lblStudentTitle.Align = alTop;
lblStudentTitle.Margins.Top = 20;
lblStudentTitle.Height = 40;
lblStudentTitle.TextSettings.Font.Size = 24;
lblStudentTitle.TextSettings.Font.Style = [fsBold];

edtStudentName = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtStudentName', '��renci Ad� ve Soyad�...');
edtStudentClass = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtStudentClass', 'S�n�f� (�rn: 12-A)...');
edtStudentDept = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtStudentDept', 'B�l�m� (�rn: Say�sal)...');
edtStudentPhone = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtStudentPhone', '��renci �leti�im No...');
edtParentName = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtParentName', 'Veli Ad� ve Soyad�...');
edtParentPhone = fonksiyonlar.CreateMyEdit(StudentForm, ScrollStudent, 'edtParentPhone', 'Veli �leti�im No (�rn: 05xx)...');

TypePnl = StudentForm.AddNewProPanel(ScrollStudent, 'TypePnl');
TypePnl.Align = alTop;
TypePnl.Height = 45;
TypePnl.Margins.Top = 5;
TypePnl.Margins.Left = 20;
TypePnl.Margins.Right = 20;
TypePnl.clProSettings.IsTransparent = True;
TypePnl.SetclProSettings(TypePnl.clProSettings);

btnTypeGroup = StudentForm.AddNewProButton(TypePnl, 'btnTypeGroup', '👥 Et�t (Grup)');
btnTypeGroup.Align = alLeft;
btnTypeGroup.Width = (StudentForm.clWidth - 50) / 2;
btnTypeGroup.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
btnTypeGroup.clProSettings.FontColor = clAlphaColor.clWhite;
btnTypeGroup.clProSettings.RoundHeight = 8; btnTypeGroup.clProSettings.RoundWidth = 8;
btnTypeGroup.clProSettings.FontSize = 11;
btnTypeGroup.SetclProSettings(btnTypeGroup.clProSettings);
StudentForm.AddNewEvent(btnTypeGroup, tbeOnClick, 'SetTypeGroup');

btnTypePrivate = StudentForm.AddNewProButton(TypePnl, 'btnTypePrivate', '👤 �zel Ders');
btnTypePrivate.Align = alRight;
btnTypePrivate.Width = (StudentForm.clWidth - 50) / 2;
btnTypePrivate.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#94A3B8');
btnTypePrivate.clProSettings.FontColor = clAlphaColor.clWhite;
btnTypePrivate.clProSettings.RoundHeight = 8; btnTypePrivate.clProSettings.RoundWidth = 8;
btnTypePrivate.clProSettings.FontSize = 11;
btnTypePrivate.SetclProSettings(btnTypePrivate.clProSettings);
StudentForm.AddNewEvent(btnTypePrivate, tbeOnClick, 'SetTypePrivate');

btnAddStudent = fonksiyonlar.CreateMyProButton(StudentForm, ScrollStudent, 'btnAddStudent', '➕ Listeye Ekle', '#10B981', 45);
StudentForm.AddNewEvent(btnAddStudent, tbeOnClick, 'AddNewStudent');

btnClearAll = fonksiyonlar.CreateMyProButton(StudentForm, ScrollStudent, 'btnClearAll', '🗑️ Listeyi S�f�rla', '#F59E0B', 40);
StudentForm.AddNewEvent(btnClearAll, tbeOnClick, 'ClearAllStudents');

myStudentListView = StudentForm.AddNewListView(ScrollStudent, 'myStudentListView');
myStudentListView.Align = alClient;
StudentForm.AddNewEvent(myStudentListView, tbeOnItemClick, 'OnStudentItemClick');

StudentNames[0] = '�rnek ��renci';
StudentClasses[0] = '12-A';
StudentDepts[0] = 'Say�sal';
StudentPhones[0] = '05551111111';
ParentNames[0] = 'Ahmet Veli';
ParentPhones[0] = '05552222222';
StudentTypes[0] = 'Etut';
AbsenceCounts[0] = '3';
ExcusedCounts[0] = '1';
TotalStudents = 1;
RefreshStudentList;
SaveStudentNamesToFile;

BackdropPnl = StudentForm.AddNewProPanel(StudentForm, 'BackdropPnl');
BackdropPnl.Align = alClient;
BackdropPnl.clProSettings.IsTransparent = True;
BackdropPnl.Visible = False;
BackdropPnl.SetclProSettings(BackdropPnl.clProSettings);
StudentForm.AddNewEvent(BackdropPnl, tbeOnClick, 'HideBottomSheet');

SheetPnl = StudentForm.AddNewProPanel(StudentForm, 'SheetPnl');
SheetPnl.Align = alBottom;
SheetPnl.Height = 310;
SheetPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite;
SheetPnl.clProSettings.RoundHeight = 20;
SheetPnl.clProSettings.RoundWidth = 20;
SheetPnl.Visible = False;
SheetPnl.SetclProSettings(SheetPnl.clProSettings);

lblSheetTitle = StudentForm.AddNewProLabel(SheetPnl, 'lblSheetTitle', '��renci Y�netimi');
lblSheetTitle.Align = alTop;
lblSheetTitle.Height = 55;
lblSheetTitle.Margins.Top = 10;
lblSheetTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#1E293B');
lblSheetTitle.clProSettings.FontSize = 13;
lblSheetTitle.clProSettings.FontHorzAlign = palCenter;
lblSheetTitle.clProSettings.TextSettings.Font.Style = [fsBold];
lblSheetTitle.SetclProSettings(lblSheetTitle.clProSettings);

AbsPnl = StudentForm.AddNewProPanel(SheetPnl, 'AbsPnl');
AbsPnl.Align = alTop;
AbsPnl.Height = 38;
AbsPnl.Margins.Left = 20; AbsPnl.Margins.Right = 20; AbsPnl.Margins.Bottom = 5;
AbsPnl.clProSettings.IsTransparent = True;
AbsPnl.SetclProSettings(AbsPnl.clProSettings);

btnAbsMinus = StudentForm.AddNewProButton(AbsPnl, 'btnAbsMinus', '🔴 Devams�zl�k -1');
btnAbsMinus.Align = alLeft;
btnAbsMinus.Width = (StudentForm.clWidth - 50) / 2;
btnAbsMinus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');
btnAbsMinus.clProSettings.FontColor = clAlphaColor.clWhite;
btnAbsMinus.clProSettings.RoundHeight = 6; btnAbsMinus.clProSettings.RoundWidth = 6;
btnAbsMinus.clProSettings.FontSize = 10;
btnAbsMinus.SetclProSettings(btnAbsMinus.clProSettings);
StudentForm.AddNewEvent(btnAbsMinus, tbeOnClick, 'RemoveAbsence');

btnAbsPlus = StudentForm.AddNewProButton(AbsPnl, 'btnAbsPlus', '🔴 Devams�zl�k +1');
btnAbsPlus.Align = alRight;
btnAbsPlus.Width = (StudentForm.clWidth - 50) / 2;
btnAbsPlus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B91C1C');
btnAbsPlus.clProSettings.FontColor = clAlphaColor.clWhite;
btnAbsPlus.clProSettings.RoundHeight = 6; btnAbsPlus.clProSettings.RoundWidth = 6;
btnAbsPlus.clProSettings.FontSize = 10;
btnAbsPlus.SetclProSettings(btnAbsPlus.clProSettings);
StudentForm.AddNewEvent(btnAbsPlus, tbeOnClick, 'AddAbsence');

ExcPnl = StudentForm.AddNewProPanel(SheetPnl, 'ExcPnl');
ExcPnl.Align = alTop;
ExcPnl.Height = 38;
ExcPnl.Margins.Left = 20; ExcPnl.Margins.Right = 20; ExcPnl.Margins.Bottom = 10;
ExcPnl.clProSettings.IsTransparent = True;
ExcPnl.SetclProSettings(ExcPnl.clProSettings);

btnExcMinus = StudentForm.AddNewProButton(ExcPnl, 'btnExcMinus', '🟡 �zinli -1');
btnExcMinus.Align = alLeft;
btnExcMinus.Width = (StudentForm.clWidth - 50) / 2;
btnExcMinus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F59E0B');
btnExcMinus.clProSettings.FontColor = clAlphaColor.clWhite;
btnExcMinus.clProSettings.RoundHeight = 6; btnExcMinus.clProSettings.RoundWidth = 6;
btnExcMinus.clProSettings.FontSize = 10;
btnExcMinus.SetclProSettings(btnExcMinus.clProSettings);
StudentForm.AddNewEvent(btnExcMinus, tbeOnClick, 'RemoveExcused');

btnExcPlus = StudentForm.AddNewProButton(ExcPnl, 'btnExcPlus', '🟡 �zinli +1');
btnExcPlus.Align = alRight;
btnExcPlus.Width = (StudentForm.clWidth - 50) / 2;
btnExcPlus.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D97706');
btnExcPlus.clProSettings.FontColor = clAlphaColor.clWhite;
btnExcPlus.clProSettings.RoundHeight = 6; btnExcPlus.clProSettings.RoundWidth = 6;
btnExcPlus.clProSettings.FontSize = 10;
btnExcPlus.SetclProSettings(btnExcPlus.clProSettings);
StudentForm.AddNewEvent(btnExcPlus, tbeOnClick, 'AddExcused');

btnCallParent = StudentForm.AddNewProButton(SheetPnl, 'btnCallParent', '📞 Veli''yi Ara');
btnCallParent.Align = alTop;
btnCallParent.Height = 36;
btnCallParent.Margins.Left = 20; btnCallParent.Margins.Right = 20; btnCallParent.Margins.Bottom = 5;
btnCallParent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3B82F6');
btnCallParent.clProSettings.FontColor = clAlphaColor.clWhite;
btnCallParent.clProSettings.RoundHeight = 6; btnCallParent.clProSettings.RoundWidth = 6;
btnCallParent.clProSettings.FontSize = 11;
btnCallParent.SetclProSettings(btnCallParent.clProSettings);
StudentForm.AddNewEvent(btnCallParent, tbeOnClick, 'CallParent');

btnMsgParent = StudentForm.AddNewProButton(SheetPnl, 'btnMsgParent', '💬 WhatsApp Mesaj�');
btnMsgParent.Align = alTop;
btnMsgParent.Height = 36;
btnMsgParent.Margins.Left = 20; btnMsgParent.Margins.Right = 20; btnMsgParent.Margins.Bottom = 5;
btnMsgParent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#10B981');
btnMsgParent.clProSettings.FontColor = clAlphaColor.clWhite;
btnMsgParent.clProSettings.RoundHeight = 6; btnMsgParent.clProSettings.RoundWidth = 6;
btnMsgParent.clProSettings.FontSize = 11;
btnMsgParent.SetclProSettings(btnMsgParent.clProSettings);
StudentForm.AddNewEvent(btnMsgParent, tbeOnClick, 'MsgParent');

btnCallStudent = StudentForm.AddNewProButton(SheetPnl, 'btnCallStudent', '📱 ��renciyi Ara');
btnCallStudent.Align = alTop;
btnCallStudent.Height = 36;
btnCallStudent.Margins.Left = 20; btnCallStudent.Margins.Right = 20;
btnCallStudent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E293B');
btnCallStudent.clProSettings.FontColor = clAlphaColor.clWhite;
btnCallStudent.clProSettings.RoundHeight = 6; btnCallStudent.clProSettings.RoundWidth = 6;
btnCallStudent.clProSettings.FontSize = 11;
btnCallStudent.SetclProSettings(btnCallStudent.clProSettings);
StudentForm.AddNewEvent(btnCallStudent, tbeOnClick, 'CallStudent');

StudentForm.Run;
}
RUNTIME ERROR
File library Main: Unit student: Syntax error.
Source position: 1,2 when evaluating instruction CallProc ($FFFFFFFF,$1,$1D3A270,$0,'RunUnit').
Stack content is: [2675675489600,2675675487616,2675675485632,2675675483648...].
Source position: 18,29
Position: 18, 29

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">