Clomosy | Forum : Text hatas�

Text hatas� : var MyForm: TclForm; PnlLogin:...

Mon, 06 Apr 2026 11:00:45 +0000

Yazar: Emr.Erkmn
Konu: 1433
G�nderim Zaman�: 06 Nisan 2026 Saat 11:00

var

MyForm: TclForm;

PnlLogin: TclProPanel;

PnlKayit: TclProPanel;

PnlAna: TclProPanel;

EdtKullanici: TclProEdit;

EdtSifre: TclProEdit;

EdtKayitKullanici: TclProEdit;

EdtKayitSifre: TclProEdit;

EdtKayitEmail: TclProEdit;

BtnGiris: TclProButton;

BtnKayitOl: TclProButton;

BtnKaydet: TclProButton;

BtnGeri: TclProButton;

BtnRotaOlustur: TclProButton;

BtnRotaGoster, BtnAnaGeri: TclProButton;

BtnKayitliRotalar: TclProButton;

LblLoginBaslik: TclProLabel;

LblKayitBaslik: TclProLabel;

LblMesaj: TclProLabel;

LblNereden: TclProLabel;

LblNereye: TclProLabel;

LblDetay: TclProLabel;

CmbNereden: TclComboBox;

CmbNereye: TclComboBox;

LstRotalar: TclListView;

KullaniciAdi: String;

DB: String;

ad: String;

sifre: String;

email: String;

varMi: Integer;

IlListesi: array[0..80] of String;

IlSayisi: Integer;

i: Integer;

benzinSayisi: Integer;

otelSayisi: Integer;

benzinListe: String;

otelListe: String;

void Baglan;

{

DB = Clomosy.AppFilesPath + 'rota.db3';

Clomosy.DBSQLiteConnect(DB, '');

}

void TabloKontrol;

{

Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS kullanicilar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, sifre TEXT, email TEXT)';

Clomosy.DBSQLiteQuery.OpenOrExecute;

Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS rotalar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, nereden TEXT, nereye TEXT, tarih TEXT)';

Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void IlleriYukle;

{

IlSayisi = 81;

IlListesi[0] = 'Adana'; IlListesi[1] = 'Ad�yaman'; IlListesi[2] = 'Afyonkarahisar'; IlListesi[3] = 'A�r�';

IlListesi[4] = 'Aksaray'; IlListesi[5] = 'Amasya'; IlListesi[6] = 'Ankara'; IlListesi[7] = 'Antalya';

IlListesi[8] = 'Ardahan'; IlListesi[9] = 'Artvin'; IlListesi[10] = 'Ayd�n'; IlListesi[11] = 'Bal�kesir';

IlListesi[12] = 'Bart�n'; IlListesi[13] = 'Batman'; IlListesi[14] = 'Bayburt'; IlListesi[15] = 'Bilecik';

IlListesi[16] = 'Bing�l'; IlListesi[17] = 'Bitlis'; IlListesi[18] = 'Bolu'; IlListesi[19] = 'Burdur';

IlListesi[20] = 'Bursa'; IlListesi[21] = '�anakkale'; IlListesi[22] = '�ank�r�'; IlListesi[23] = '�orum';

IlListesi[24] = 'Denizli'; IlListesi[25] = 'Diyarbak�r'; IlListesi[26] = 'D�zce'; IlListesi[27] = 'Edirne';

IlListesi[28] = 'Elaz��'; IlListesi[29] = 'Erzincan'; IlListesi[30] = 'Erzurum'; IlListesi[31] = 'Eski�ehir';

IlListesi[32] = 'Gaziantep'; IlListesi[33] = 'Giresun'; IlListesi[34] = 'G�m��hane'; IlListesi[35] = 'Hakkari';

IlListesi[36] = 'Hatay'; IlListesi[37] = 'I�d�r'; IlListesi[38] = 'Isparta'; IlListesi[39] = '�stanbul';

IlListesi[40] = '�zmir'; IlListesi[41] = 'Kahramanmara�'; IlListesi[42] = 'Karab�k'; IlListesi[43] = 'Karaman';

IlListesi[44] = 'Kars'; IlListesi[45] = 'Kastamonu'; IlListesi[46] = 'Kayseri'; IlListesi[47] = 'K�r�kkale';

IlListesi[48] = 'K�rklareli'; IlListesi[49] = 'K�r�ehir'; IlListesi[50] = 'Kilis'; IlListesi[51] = 'Kocaeli';

IlListesi[52] = 'Konya'; IlListesi[53] = 'K�tahya'; IlListesi[54] = 'Malatya'; IlListesi[55] = 'Manisa';

IlListesi[56] = 'Mardin'; IlListesi[57] = 'Mersin'; IlListesi[58] = 'Mu�la'; IlListesi[59] = 'Mu�';

IlListesi[60] = 'Nev�ehir'; IlListesi[61] = 'Ni�de'; IlListesi[62] = 'Ordu'; IlListesi[63] = 'Osmaniye';

IlListesi[64] = 'Rize'; IlListesi[65] = 'Sakarya'; IlListesi[66] = 'Samsun'; IlListesi[67] = 'Siirt';

IlListesi[68] = 'Sinop'; IlListesi[69] = 'Sivas'; IlListesi[70] = '�anl�urfa'; IlListesi[71] = '��rnak';

IlListesi[72] = 'Tekirda�'; IlListesi[73] = 'Tokat'; IlListesi[74] = 'Trabzon'; IlListesi[75] = 'Tunceli';

IlListesi[76] = 'U�ak'; IlListesi[77] = 'Van'; IlListesi[78] = 'Yalova'; IlListesi[79] = 'Yozgat';

IlListesi[80] = 'Zonguldak';

}

void KayitOl;

{

PnlLogin.Visible = False;

PnlKayit.Visible = True;

}

void KayitYap;

{

ad = EdtKayitKullanici.Text;

sifre = EdtKayitSifre.Text;

email = EdtKayitEmail.Text;

if (ad == '')

{

ShowMessage('Kullan�c� ad� giriniz!');

}

else if (sifre == '')

{

ShowMessage('�ifre giriniz!');

}

else

{

Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '"';

Clomosy.DBSQLiteQuery.OpenOrExecute;

varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;

Clomosy.DBSQLiteQuery.Close;

if (varMi > 0)

{

ShowMessage('Bu kullan�c� ad� zaten al�nm��!');

}

else

{

Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO kullanicilar (kullanici_adi, sifre, email) VALUES ("' + ad + '", "' + sifre + '", "' + email + '")';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Kay�t ba�ar�l�! Giri� yapabilirsiniz.');

EdtKayitKullanici.Text = '';

EdtKayitSifre.Text = '';

EdtKayitEmail.Text = '';

PnlKayit.Visible = False;

PnlLogin.Visible = True;

}

void GirisYap;

{

ad = EdtKullanici.Text;

sifre = EdtSifre.Text;

if (ad == '')

{

ShowMessage('Kullan�c� ad� giriniz!');

}

else if (sifre == '')

{

ShowMessage('�ifre giriniz!');

}

else

{

Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '" AND sifre = "' + sifre + '"';

Clomosy.DBSQLiteQuery.OpenOrExecute;

varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;

Clomosy.DBSQLiteQuery.Close;

if (varMi > 0)

{

KullaniciAdi = ad;

ShowMessage('Ho� geldin ' + KullaniciAdi);

PnlLogin.Visible = False;

PnlAna.Visible = True;

}

else

{

ShowMessage('Kullan�c� ad� veya �ifre hatal�!');

}

void GeriDon;

{

PnlKayit.Visible = False;

PnlLogin.Visible = True;

}

void RotaOlustur;

{

if ((CmbNereden.Text == '') || (CmbNereye.Text == ''))

{

ShowMessage('L�tfen nereden ve nereyi se�iniz!');

}

else

{

benzinSayisi = 5 + Random(10);

otelSayisi = 3 + Random(8);

benzinListe = 'Shell, BP, Opet, Total, Petrol Ofisi';

otelListe = 'Hilton, Sheraton, Ramada, Holiday Inn, Divan';

LblDetay.Text = '🚗 ROTA: ' + CmbNereden.Text + ' -> ' + CmbNereye.Text + #13#10 + #13#10 +

'⛽ Benzin �stasyonlar�: ' + IntToStr(benzinSayisi) + ' adet' + #13#10 +

' �rnek: ' + benzinListe + #13#10 + #13#10 +

'🏨 Oteller: ' + IntToStr(otelSayisi) + ' adet' + #13#10 +

' �rnek: ' + otelListe;

LblDetay.Visible = True;

Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO rotalar (kullanici_adi, nereden, nereye, tarih) VALUES ("' + KullaniciAdi + '", "' + CmbNereden.Text + '", "' + CmbNereye.Text + '", "' + DateTimeToStr(Now) + '")';

Clomosy.DBSQLiteQuery.OpenOrExecute;

}

void KayitliRotalariGoster;

var

jsonStr: String;

{

Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT nereden as MAIN_TEXT, nereye as SUB_TEXT, tarih as SIDE_TEXT_BOTTOM FROM rotalar WHERE kullanici_adi = "' + KullaniciAdi + '" ORDER BY id DESC';

Clomosy.DBSQLiteQuery.OpenOrExecute;

LstRotalar.clLoadListViewDataFromDataset(Clomosy.DBSQLiteQuery);

Clomosy.DBSQLiteQuery.Close;

LstRotalar.Visible = True;

LblDetay.Visible = False;

BtnRotaGoster.Visible = True;

BtnAnaGeri.Visible = True;

}

void AnaMenuGoster;

{

LstRotalar.Visible = False;

LblDetay.Visible = False;

BtnRotaGoster.Visible = False;

BtnAnaGeri.Visible = False;

PnlAna.Visible = True;

}

{

MyForm = TclForm.Create(Self);

MyForm.SetFormBGImage('https://images.clomosy.com/media/ThemeStyle5.png');

Baglan;

TabloKontrol;

IlleriYukle;

PnlLogin = MyForm.AddNewProPanel(MyForm, 'PnlLogin');

PnlLogin.Align = alClient;

LblLoginBaslik = MyForm.AddNewProLabel(PnlLogin, 'LblLoginBaslik', '🚗 ROTA PLANLAYICI 🏨');

clComponent.SetupComponent(LblLoginBaslik, '{"Align":"top","Height":80,"MarginTop":60,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');

EdtKullanici = MyForm.AddNewProEdit(PnlLogin, 'EdtKullanici', '');

clComponent.SetupComponent(EdtKullanici, '{"Align":"top","Height":50,"MarginTop":40,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullan�c� Ad� Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

EdtSifre = MyForm.AddNewProEdit(PnlLogin, 'EdtSifre', '');

clComponent.SetupComponent(EdtSifre, '{"Align":"top","Height":50,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"�ifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');

BtnGiris = MyForm.AddNewProButton(PnlLogin, 'BtnGiris', '🚀 G�R�� YAP');

clComponent.SetupComponent(BtnGiris, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');

MyForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');

BtnKayitOl = MyForm.AddNewProButton(PnlLogin, 'BtnKayitOl', '📝 KAYIT OL');

clComponent.SetupComponent(BtnKayitOl, '{"Align":"top","Height":55,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#3498db","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');

MyForm.AddNewEvent(BtnKayitOl, tbeOnClick, 'KayitOl');

PnlKayit = MyForm.AddNewProPanel(MyForm, 'PnlKayit');

PnlKayit.Align = alClient;

PnlKayit.Visible = False;

LblKayitBaslik = MyForm.AddNewProLabel(PnlKayit, 'LblKayitBaslik', '📝 YEN� �YE');

clComponent.SetupComponent(LblKayitBaslik, '{"Align":"top","Height":80,"MarginTop":40,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');

EdtKayitKullanici = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitKullanici', '');

clComponent.SetupComponent(EdtKayitKullanici, '{"Align":"top","Height":50,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullan�c� Ad� Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

EdtKayitSifre = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitSifre', '');

clComponent.SetupComponent(EdtKayitSifre, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"�ifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');

EdtKayitEmail = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitEmail', '');

clComponent.SetupComponent(EdtKayitEmail, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"E-posta Adresiniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

BtnKaydet = MyForm.AddNewProButton(PnlKayit, 'BtnKaydet', '✅ KAYDET');

clComponent.SetupComponent(BtnKaydet, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');

MyForm.AddNewEvent(BtnKaydet, tbeOnClick, 'KayitYap');

BtnGeri = MyForm.AddNewProButton(PnlKayit, 'BtnGeri', '◀ GER�');

clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":100,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');

MyForm.AddNewEvent(BtnGeri, tbeOnClick, 'GeriDon');

PnlAna = MyForm.AddNewProPanel(MyForm, 'PnlAna');

PnlAna.Align = alClient;

PnlAna.Visible = False;

LblNereden = MyForm.AddNewProLabel(PnlAna, 'LblNereden', 'Nereden');

clComponent.SetupComponent(LblNereden, '{"Align":"top","Height":30,"MarginTop":20,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');

CmbNereden = MyForm.AddNewComboBox(PnlAna, 'CmbNereden');

CmbNereden.Align = alTop;

CmbNereden.Height = 45;

CmbNereden.Margins.Top = 5;

CmbNereden.Margins.Left = 40;

CmbNereden.Margins.Right = 40;

for i = 0 to IlSayisi - 1

{

CmbNereden.Items.Add(IlListesi);

}

LblNereye = MyForm.AddNewProLabel(PnlAna, 'LblNereye', 'Nereye');

clComponent.SetupComponent(LblNereye, '{"Align":"top","Height":30,"MarginTop":10,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');

CmbNereye = MyForm.AddNewComboBox(PnlAna, 'CmbNereye');

CmbNereye.Align = alTop;

CmbNereye.Height = 45;

CmbNereye.Margins.Top = 5;

CmbNereye.Margins.Left = 40;

CmbNereye.Margins.Right = 40;

for i = 0 to IlSayisi - 1

{

CmbNereye.Items.Add(IlListesi);

}

BtnRotaOlustur = MyForm.AddNewProButton(PnlAna, 'BtnRotaOlustur', '🚀 ROTA OLU�TUR');

clComponent.SetupComponent(BtnRotaOlustur, '{"Align":"top","Height":55,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');

MyForm.AddNewEvent(BtnRotaOlustur, tbeOnClick, 'RotaOlustur');

BtnKayitliRotalar = MyForm.AddNewProButton(PnlAna, 'BtnKayitliRotalar', '📋 KAYITLI ROTALAR');

clComponent.SetupComponent(BtnKayitliRotalar, '{"Align":"top","Height":55,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#2980b9","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');

MyForm.AddNewEvent(BtnKayitliRotalar, tbeOnClick, 'KayitliRotalariGoster');

LblDetay = MyForm.AddNewProLabel(PnlAna, 'LblDetay', '');

clComponent.SetupComponent(LblDetay, '{"Align":"top","MarginTop":15,"MarginLeft":40,"MarginRight":40,"TextSize":14,"TextColor":"#ffffff","TextHorizontalAlign":"left"}');

LblDetay.Visible = False;

LstRotalar = MyForm.AddNewListView(PnlAna, 'LstRotalar');

LstRotalar.Align = alTop;

LstRotalar.Height = 400;

LstRotalar.Margins.Top = 10;

LstRotalar.Margins.Left = 20;

LstRotalar.Margins.Right = 20;

LstRotalar.Visible = False;

BtnRotaGoster = MyForm.AddNewProButton(PnlAna, 'BtnRotaGoster', '🗺️ SE��LEN ROTAYI G�STER');

clComponent.SetupComponent(BtnRotaGoster, '{"Align":"top","Height":50,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#e67e22","TextColor":"#ffffff","TextSize":14,"RoundHeight":10}');

BtnRotaGoster.Visible = False;

BtnAnaGeri = MyForm.AddNewProButton(PnlAna, 'BtnAnaGeri', '◀ ANA MEN�');

clComponent.SetupComponent(BtnAnaGeri, '{"Align":"bottom","Width":120,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');

MyForm.AddNewEvent(BtnAnaGeri, tbeOnClick, 'AnaMenuGoster');

BtnAnaGeri.Visible = False;

MyForm.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">

Text hatas� : Hocam kafayı yıcem orayı düzeltiyom...

Fri, 03 Apr 2026 21:08:57 +0000
Yazar: DuCi03131
Konu: 1433
G�nderim Zaman�: 03 Nisan 2026 Saat 21:08

Hocam kafay� y�cem oray� d�zeltiyom ba�ka yer hata veriyo baska yeri d�zeltiyom baska yer hata veriyo

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
MyForm: TclForm;
PnlLogin: TclProPanel;
PnlKayit: TclProPanel;
PnlAna: TclProPanel;
EdtKullanici: TclProEdit;
EdtSifre: TclProEdit;
EdtKayitKullanici: TclProEdit;
EdtKayitSifre: TclProEdit;
EdtKayitEmail: TclProEdit;
BtnGiris: TclProButton;
BtnKayitOl: TclProButton;
BtnKaydet: TclProButton;
BtnGeri: TclProButton;
BtnRotaOlustur: TclProButton;
BtnRotaGoster: TclProButton;
BtnKayitliRotalar: TclProButton;
LblLoginBaslik: TclProLabel;
LblKayitBaslik: TclProLabel;
LblMesaj: TclProLabel;
LblNereden: TclProLabel;
LblNereye: TclProLabel;
LblDetay: TclProLabel;
CmbNereden: TclComboBox;
CmbNereye: TclComboBox;
LstRotalar: TclListView;
KullaniciAdi: String;
DB: String;
ad: String;
sifre: String;
email: String;
varMi: Integer;
IlListesi: array[0..80] of String;
IlSayisi: Integer;
i: Integer;
benzinSayisi: Integer;
otelSayisi: Integer;
benzinListe: String;
otelListe: String;

void Baglan;
{
if (Clomosy.PlatformIsMobile)
DB = Clomosy.AppFilesPath + 'rota.db3'
else
DB = Clomosy.AppFilesPath + 'rota.db3';
Clomosy.DBSQLiteConnect(DB, '');
}

void TabloKontrol;
{
Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS kullanicilar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, sifre TEXT, email TEXT)';
Clomosy.DBSQLiteQuery.OpenOrExecute;
Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS rotalar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, nereden TEXT, nereye TEXT, tarih TEXT)';
Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void IlleriYukle;
{
IlSayisi = 81;
IlListesi[0] = 'Adana'; IlListesi[1] = 'Ad�yaman'; IlListesi[2] = 'Afyonkarahisar'; IlListesi[3] = 'A�r�';
IlListesi[4] = 'Aksaray'; IlListesi[5] = 'Amasya'; IlListesi[6] = 'Ankara'; IlListesi[7] = 'Antalya';
IlListesi[8] = 'Ardahan'; IlListesi[9] = 'Artvin'; IlListesi[10] = 'Ayd�n'; IlListesi[11] = 'Bal�kesir';
IlListesi[12] = 'Bart�n'; IlListesi[13] = 'Batman'; IlListesi[14] = 'Bayburt'; IlListesi[15] = 'Bilecik';
IlListesi[16] = 'Bing�l'; IlListesi[17] = 'Bitlis'; IlListesi[18] = 'Bolu'; IlListesi[19] = 'Burdur';
IlListesi[20] = 'Bursa'; IlListesi[21] = '�anakkale'; IlListesi[22] = '�ank�r�'; IlListesi[23] = '�orum';
IlListesi[24] = 'Denizli'; IlListesi[25] = 'Diyarbak�r'; IlListesi[26] = 'D�zce'; IlListesi[27] = 'Edirne';
IlListesi[28] = 'Elaz��'; IlListesi[29] = 'Erzincan'; IlListesi[30] = 'Erzurum'; IlListesi[31] = 'Eski�ehir';
IlListesi[32] = 'Gaziantep'; IlListesi[33] = 'Giresun'; IlListesi[34] = 'G�m��hane'; IlListesi[35] = 'Hakkari';
IlListesi[36] = 'Hatay'; IlListesi[37] = 'I�d�r'; IlListesi[38] = 'Isparta'; IlListesi[39] = '�stanbul';
IlListesi[40] = '�zmir'; IlListesi[41] = 'Kahramanmara�'; IlListesi[42] = 'Karab�k'; IlListesi[43] = 'Karaman';
IlListesi[44] = 'Kars'; IlListesi[45] = 'Kastamonu'; IlListesi[46] = 'Kayseri'; IlListesi[47] = 'K�r�kkale';
IlListesi[48] = 'K�rklareli'; IlListesi[49] = 'K�r�ehir'; IlListesi[50] = 'Kilis'; IlListesi[51] = 'Kocaeli';
IlListesi[52] = 'Konya'; IlListesi[53] = 'K�tahya'; IlListesi[54] = 'Malatya'; IlListesi[55] = 'Manisa';
IlListesi[56] = 'Mardin'; IlListesi[57] = 'Mersin'; IlListesi[58] = 'Mu�la'; IlListesi[59] = 'Mu�';
IlListesi[60] = 'Nev�ehir'; IlListesi[61] = 'Ni�de'; IlListesi[62] = 'Ordu'; IlListesi[63] = 'Osmaniye';
IlListesi[64] = 'Rize'; IlListesi[65] = 'Sakarya'; IlListesi[66] = 'Samsun'; IlListesi[67] = 'Siirt';
IlListesi[68] = 'Sinop'; IlListesi[69] = 'Sivas'; IlListesi[70] = '�anl�urfa'; IlListesi[71] = '��rnak';
IlListesi[72] = 'Tekirda�'; IlListesi[73] = 'Tokat'; IlListesi[74] = 'Trabzon'; IlListesi[75] = 'Tunceli';
IlListesi[76] = 'U�ak'; IlListesi[77] = 'Van'; IlListesi[78] = 'Yalova'; IlListesi[79] = 'Yozgat';
IlListesi[80] = 'Zonguldak';
}

void KayitOl;
{
PnlLogin.Visible = False;
PnlKayit.Visible = True;
}

void KayitYap;
{
ad = EdtKayitKullanici.Text;
sifre = EdtKayitSifre.Text;
email = EdtKayitEmail.Text;

if (ad == '')
{
ShowMessage('Kullan�c� ad� giriniz!');
}
else if (sifre == '')
{
ShowMessage('�ifre giriniz!');
}
else
{
Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '"';
Clomosy.DBSQLiteQuery.OpenOrExecute;
varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
Clomosy.DBSQLiteQuery.Close;

if (varMi > 0)
{
ShowMessage('Bu kullan�c� ad� zaten al�nm��!');
}
else
{
Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO kullanicilar (kullanici_adi, sifre, email) VALUES ("' + ad + '", "' + sifre + '", "' + email + '")';
Clomosy.DBSQLiteQuery.OpenOrExecute;
ShowMessage('Kay�t ba�ar�l�! Giri� yapabilirsiniz.');
EdtKayitKullanici.Text = '';
EdtKayitSifre.Text = '';
EdtKayitEmail.Text = '';
PnlKayit.Visible = False;
PnlLogin.Visible = True;
}
}
}

void GirisYap;
{
ad = EdtKullanici.Text;
sifre = EdtSifre.Text;

if (ad == '')
{
ShowMessage('Kullan�c� ad� giriniz!');
}
else if (sifre == '')
{
ShowMessage('�ifre giriniz!');
}
else
{
Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '" AND sifre = "' + sifre + '"';
Clomosy.DBSQLiteQuery.OpenOrExecute;
varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
Clomosy.DBSQLiteQuery.Close;

if (varMi > 0)
{
KullaniciAdi = ad;
ShowMessage('Ho� geldin ' + KullaniciAdi);
PnlLogin.Visible = False;
PnlAna.Visible = True;
}
else
{
ShowMessage('Kullan�c� ad� veya �ifre hatal�!');
}
}
}

void GeriDon;
{
PnlKayit.Visible = False;
PnlLogin.Visible = True;
}

void RotaOlustur;
{
if (CmbNereden.Text == '' || CmbNereye.Text == '')
{
ShowMessage('L�tfen nereden ve nereyi se�iniz!');
}
else
{
benzinSayisi = 5 + Random(10);
otelSayisi = 3 + Random(8);
benzinListe = 'Shell, BP, Opet, Total, Petrol Ofisi';
otelListe = 'Hilton, Sheraton, Ramada, Holiday Inn, Divan';

LblDetay.Text = '🚗 ROTA: ' + CmbNereden.Text + ' → ' + CmbNereye.Text + '\n\n' +
'⛽ Benzin �stasyonlar�: ' + IntToStr(benzinSayisi) + ' adet\n' +
' �rnek: ' + benzinListe + '\n\n' +
'🏨 Oteller: ' + IntToStr(otelSayisi) + ' adet\n' +
' �rnek: ' + otelListe;
LblDetay.Visible = True;

Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO rotalar (kullanici_adi, nereden, nereye, tarih) VALUES ("' + KullaniciAdi + '", "' + CmbNereden.Text + '", "' + CmbNereye.Text + '", "' + DateTimeToStr(Now) + '")';
Clomosy.DBSQLiteQuery.OpenOrExecute;
}
}

void KayitliRotalariGoster;
{
LstRotalar.Free;
Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT nereden, nereye, tarih FROM rotalar WHERE kullanici_adi = "' + KullaniciAdi + '" ORDER BY id DESC';
Clomosy.DBSQLiteQuery.OpenOrExecute;
while (Clomosy.DBSQLiteQuery.Eof == False)
{
LstRotalar.Items.Add;
LstRotalar.Items.Item[LstRotalar.Items.Count-1].Text = Clomosy.DBSQLiteQuery.FieldByName('nereden').AsString + ' → ' + Clomosy.DBSQLiteQuery.FieldByName('nereye').AsString;
LstRotalar.Items.Item[LstRotalar.Items.Count-1].SubItems.Add(Clomosy.DBSQLiteQuery.FieldByName('tarih').AsString);
Clomosy.DBSQLiteQuery.Next;
}
Clomosy.DBSQLiteQuery.Close;
LstRotalar.Visible = True;
LblDetay.Visible = False;
BtnRotaGoster.Visible = True;
BtnGeri.Visible = True;
}

void AnaMenuGoster;
{
LstRotalar.Visible = False;
LblDetay.Visible = False;
BtnRotaGoster.Visible = False;
BtnGeri.Visible = False;
PnlAna.Visible = True;
}

{
MyForm = TclForm.Create(Self);
MyForm.SetFormBGImage('https://images.clomosy.com/media/ThemeStyle5.png');

Baglan;
TabloKontrol;
IlleriYukle;

// Login Paneli
PnlLogin = MyForm.AddNewProPanel(MyForm, 'PnlLogin');
PnlLogin.Align = alClient;

LblLoginBaslik = MyForm.AddNewProLabel(PnlLogin, 'LblLoginBaslik', '🚗 ROTA PLANLAYICI 🏨');
clComponent.SetupComponent(LblLoginBaslik, '{"Align":"top","Height":80,"MarginTop":60,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');

EdtKullanici = MyForm.AddNewProEdit(PnlLogin, 'EdtKullanici', '');
clComponent.SetupComponent(EdtKullanici, '{"Align":"top","Height":50,"MarginTop":40,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullan�c� Ad� Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

EdtSifre = MyForm.AddNewProEdit(PnlLogin, 'EdtSifre', '');
clComponent.SetupComponent(EdtSifre, '{"Align":"top","Height":50,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"�ifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');

BtnGiris = MyForm.AddNewProButton(PnlLogin, 'BtnGiris', '🚀 G�R�� YAP');
clComponent.SetupComponent(BtnGiris, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
BtnGiris.OnClick = 'GirisYap';

BtnKayitOl = MyForm.AddNewProButton(PnlLogin, 'BtnKayitOl', '📝 KAYIT OL');
clComponent.SetupComponent(BtnKayitOl, '{"Align":"top","Height":55,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#3498db","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
BtnKayitOl.OnClick = 'KayitOl';

// Kay�t Paneli
PnlKayit = MyForm.AddNewProPanel(MyForm, 'PnlKayit');
PnlKayit.Align = alClient;
PnlKayit.Visible = False;

LblKayitBaslik = MyForm.AddNewProLabel(PnlKayit, 'LblKayitBaslik', '📝 YEN� �YE');
clComponent.SetupComponent(LblKayitBaslik, '{"Align":"top","Height":80,"MarginTop":40,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');

EdtKayitKullanici = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitKullanici', '');
clComponent.SetupComponent(EdtKayitKullanici, '{"Align":"top","Height":50,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullan�c� Ad� Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

EdtKayitSifre = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitSifre', '');
clComponent.SetupComponent(EdtKayitSifre, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"�ifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');

EdtKayitEmail = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitEmail', '');
clComponent.SetupComponent(EdtKayitEmail, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"E-posta Adresiniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');

BtnKaydet = MyForm.AddNewProButton(PnlKayit, 'BtnKaydet', '✅ KAYDET');
clComponent.SetupComponent(BtnKaydet, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
BtnKaydet.OnClick = 'KayitYap';

BtnGeri = MyForm.AddNewProButton(PnlKayit, 'BtnGeri', '◀ GER�');
clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":100,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
BtnGeri.OnClick = 'GeriDon';

// Ana Men�
PnlAna = MyForm.AddNewProPanel(MyForm, 'PnlAna');
PnlAna.Align = alClient;
PnlAna.Visible = False;

LblNereden = MyForm.AddNewProLabel(PnlAna, 'LblNereden', 'Nereden');
clComponent.SetupComponent(LblNereden, '{"Align":"top","Height":30,"MarginTop":20,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');

CmbNereden = MyForm.AddNewComboBox(PnlAna, 'CmbNereden');
CmbNereden.Align = alTop;
CmbNereden.Height = 45;
CmbNereden.Margins.Top = 5;
CmbNereden.Margins.Left = 40;
CmbNereden.Margins.Right = 40;
CmbNereden.AutoComplete = True;
for (i = 0 to IlSayisi - 1) CmbNereden.Items.Add(IlListesi);

LblNereye = MyForm.AddNewProLabel(PnlAna, 'LblNereye', 'Nereye');
clComponent.SetupComponent(LblNereye, '{"Align":"top","Height":30,"MarginTop":10,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');

CmbNereye = MyForm.AddNewComboBox(PnlAna, 'CmbNereye');
CmbNereye.Align = alTop;
CmbNereye.Height = 45;
CmbNereye.Margins.Top = 5;
CmbNereye.Margins.Left = 40;
CmbNereye.Margins.Right = 40;
CmbNereye.AutoComplete = True;
for (i = 0 to IlSayisi - 1) CmbNereye.Items.Add(IlListesi);

BtnRotaOlustur = MyForm.AddNewProButton(PnlAna, 'BtnRotaOlustur', '🚀 ROTA OLU�TUR');
clComponent.SetupComponent(BtnRotaOlustur, '{"Align":"top","Height":55,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
BtnRotaOlustur.OnClick = 'RotaOlustur';

BtnKayitliRotalar = MyForm.AddNewProButton(PnlAna, 'BtnKayitliRotalar', '📋 KAYITLI ROTALAR');
clComponent.SetupComponent(BtnKayitliRotalar, '{"Align":"top","Height":55,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#2980b9","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
BtnKayitliRotalar.OnClick = 'KayitliRotalariGoster';

LblDetay = MyForm.AddNewProLabel(PnlAna, 'LblDetay', '');
clComponent.SetupComponent(LblDetay, '{"Align":"top","MarginTop":15,"MarginLeft":40,"MarginRight":40,"TextSize":14,"TextColor":"#ffffff","TextHorizontalAlign":"left"}');
LblDetay.Visible = False;

LstRotalar = MyForm.AddNewListView(PnlAna, 'LstRotalar');
LstRotalar.Align = alTop;
LstRotalar.Height = 400;
LstRotalar.Margins.Top = 10;
LstRotalar.Margins.Left = 20;
LstRotalar.Margins.Right = 20;
LstRotalar.Visible = False;
LstRotalar.Columns.Add('Rota', 250);
LstRotalar.Columns.Add('Tarih', 150);
LstRotalar.ViewStyle = vsReport;

BtnRotaGoster = MyForm.AddNewProButton(PnlAna, 'BtnRotaGoster', '🗺️ SE��LEN ROTAYI G�STER');
clComponent.SetupComponent(BtnRotaGoster, '{"Align":"top","Height":50,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#e67e22","TextColor":"#ffffff","TextSize":14,"RoundHeight":10}');
BtnRotaGoster.Visible = False;

BtnGeri = MyForm.AddNewProButton(PnlAna, 'BtnGeri', '◀ ANA MEN�');
clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":120,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
BtnGeri.OnClick = 'AnaMenuGoster';
BtnGeri.Visible = False;

MyForm.Run;
}
l�tfen hatalar� d�zeltip atarm�s�n�z

Text hatas� : Merhaba Emin,void ListeyiGuncelle(Lst:...

Fri, 03 Apr 2026 17:44:23 +0000
Yazar: Emr.Erkmn
Konu: 1433
G�nderim Zaman�: 03 Nisan 2026 Saat 17:44

Merhaba Emin,

void ListeyiGuncelle(Lst: TclListView; metin: String);
var
i: Integer;
gelenAd, jsonStr: String;
{
if (metin == '')
{
Lst.Visible = False;
Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
}
else
{
Lst.Visible = True;
jsonStr = '';

for (i = 0 to IlSayisi - 1)
{
gelenAd = IlListesi;

if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
{
if (jsonStr <> '')
{
jsonStr = jsonStr + ',';
}

jsonStr = jsonStr + '{"MAIN_TEXT":"' + gelenAd + '"}';
}
}

if (jsonStr == '')
{
Lst.Visible = False;
Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
}
else
{
jsonStr = '[' + jsonStr + ']';

Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON(jsonStr));
}
}
}

Test edip kodunu entegre eder misin?
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">

Text hatas� : PROJEM İÇİN geliştirdiğim koddavoid...

Fri, 03 Apr 2026 11:44:01 +0000
Yazar: DuCi03131
Konu: 1433
G�nderim Zaman�: 03 Nisan 2026 Saat 11:44

PROJEM ��N geli�tirdi�im kodda

void ListeyiGuncelle(Lst: TclListView; metin: String);
{
Lst.Free;
if (metin == '')
{
Lst.Visible = False;
}
else
{
Lst.Visible = True;
for (i = 0 to IlSayisi - 1)
{
gelenAd = IlListesi;
if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
{
Lst.Items.Add;
Lst.Items.Item[Lst.Items.Count-1].Text = gelenAd;
}
}
if (Lst.Items.Count == 0)
{
Lst.Visible = False;
}
}
}

buras� i�in ald��m hata Unit Main: Unknown member identifier: "Text".
Source position: 106,48 nas�l ��zebilirim
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">