Genel İşlemler

date

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=813
Tarih: 08 Ocak 2025 Saat 20:48
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: date

Mesajı Yazan: rabiagnbs
Konu: date
Mesaj Tarihi: 06 Ağustos 2024 Saat 10:07

veri tabanında yer alan date bilgisini nasıl string şeklinde çıkartabilirim ve clomosy'de alt satıra geçmek için kullanacağım \n gibi bir şey var mı?

-------------
RabiaGnbs

Cevaplar:

Mesajı Yazan: oguz22
Mesaj Tarihi: 06 Ağustos 2024 Saat 11:09

Clomosy alt satıra atlama komutu #13#10

Mesela :

ShowMessage('İsim' + #13#10 + 'Soyisim');

Veri tabanından çektiğiniz tarih tabanlı veriyi FieldByName().AsString komutunu kullanarak çevirebilirsiniz.

Mesela :

ShowMessage(Query.FieldByName('Tarih').AsString);

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 06 Ağustos 2024 Saat 11:14

maalesef syntax hatası alıyorum alt satıra geçmiyor:

for i = 0 to Qry.RecordCount-1

{

hedefGoruntuleLabel.Text=

' Şehir Bilgi: ' + Qry.FieldByName('goal_city').AsString + #13#10

' Gezilecek Yerler Bilgi : '+ Qry.FieldByName('goal_place').AsString + #13#10

' Alıncak Eşyalar: ' +Qry.FieldByName('goal_item').AsString;

}

-------------
RabiaGnbs

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 06 Ağustos 2024 Saat 11:15

date için de bu işlemleri yaptım ama ekrana yazdırmıyor :

hedefZaman = seyahatHedef.AddNewProDateEdit(VerticalScrollBox, 'hedefZaman');

clComponent.SetupComponent(hedefZaman,'{

"MarginBottom":900,

"Width" :300,

"Height":40,

"TextColor":"#12366b",

"TextSize":18,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes",

"BorderColor":"#ffffff",

"RoundHeight":20,

"RoundWidth":20,

"BorderWidth":1,

"BackGroundColor":"#f8f8f8"

}');

gunH = clGetStringTo(hedefZaman.Date,'.');

yilH = clGetStringAfter(hedefZaman.Date, '.');

ayH = clGetStringTo(yilH, '.');

yilH = clGetStringAfter(yilH, '.');

dogruTarihH = yilH + '-' + ayH + '-' + gunH;

void HedefKayit;

{

try

Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Goals (goal_country, goal_city, goal_date, goal_place, goal_item) VALUES ('+QuotedStr(hedefUlke.Text)+', '+QuotedStr(hedefSehir.Text)+',

'+QuotedStr(hedefZaman.Text)+','+QuotedStr(hedefGezi.Text)+','+QuotedStr(hedefEsya.Text)+')';

Clomosy.DBSQLiteQuery.OpenOrExecute;

ShowMessage('Seyahat Hedefleriniz Başarılı Bir Şekilde Eklenmiştir✅');

except

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

}

void getData;

{

try

Qry = Clomosy.DBSQLiteQueryWith('SELECT goal_city, goal_date, goal_place, goal_item FROM Goals WHERE goal_country = '+ QuotedStr(hedefAra.Text));

Qry.OpenOrExecute;

for i = 0 to Qry.RecordCount-1

{

hedefGoruntuleLabel.Text=

' Şehir Bilgi: ' + Qry.FieldByName('goal_city').AsString + #13#10

' Gezilecek Yerler Bilgi : '+ Qry.FieldByName('goal_place').AsString + #13#10

' Alıncak Eşyalar: ' +Qry.FieldByName('goal_item').AsString;

}

except

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

}

-------------
RabiaGnbs

Mesajı Yazan: oguz22
Mesaj Tarihi: 06 Ağustos 2024 Saat 11:18

+ #13#10 +

şeklinde yapmanız gerekiyor.

hedefGoruntuleLabel.Text=

' Şehir Bilgi: ' + Qry.FieldByName('goal_city').AsString + #13#10

' Gezilecek Yerler Bilgi : '+ Qry.FieldByName('goal_place').AsString + #13#10

' Alıncak Eşyalar: ' +Qry.FieldByName('goal_item').AsString;

bu kodda #13#10 dan sonra + eklenmemiş.

Mesajı Yazan: rabiagnbs
Mesaj Tarihi: 06 Ağustos 2024 Saat 12:30

tamamdır date kısmını da hallettim teşekkür ederim.

-------------
RabiaGnbs

Mesajı Yazan: oguz22
Mesaj Tarihi: 06 Ağustos 2024 Saat 15:31

Rica Ederim kolay gelsin.