Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Tarih büyük harf
#11
Şöyle deneyin

Procedure TarihlerVeGunlerBuyuk;
var
  i : Integer;
begin
  for i := Low( FormatSettings.LongMonthNames ) to High ( FormatSettings.LongMonthNames )
    do FormatSettings.LongMonthNames[i]  := FormatSettings.LongMonthNames[i].ToUpper;

  for i := Low( FormatSettings.ShortMonthNames ) to High ( FormatSettings.ShortMonthNames )
    do FormatSettings.ShortMonthNames[i]  := FormatSettings.ShortMonthNames[i].ToUpper;

  for i := Low( FormatSettings.LongDayNames ) to High ( FormatSettings.LongDayNames )
    do FormatSettings.LongDayNames[i]  := FormatSettings.LongDayNames[i].ToUpper;

  for i := Low( FormatSettings.ShortDayNames ) to High ( FormatSettings.ShortDayNames )
    do FormatSettings.ShortDayNames[i]  := FormatSettings.ShortDayNames[i].ToUpper;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  // Örnek Aylar
  for i := Low( FormatSettings.LongMonthNames ) to High ( FormatSettings.LongMonthNames )
    do Memo1.Lines.Add( FormatSettings.LongMonthNames[i] );
  // Örnek Günler
  for i := Low( FormatSettings.LongDayNames ) to High ( FormatSettings.LongDayNames )
    do Memo1.Lines.Add( FormatSettings.LongDayNames[i] );

  TarihlerVeGunlerBuyuk();

  // Örnek Aylar
  for i := Low( FormatSettings.LongMonthNames ) to High ( FormatSettings.LongMonthNames )
    do Memo2.Lines.Add( FormatSettings.LongMonthNames[i] );
  // Örnek Günler
  for i := Low( FormatSettings.LongDayNames ) to High ( FormatSettings.LongDayNames )
    do Memo2.Lines.Add( FormatSettings.LongDayNames[i] );
end;



wuwhgnfrocmvy17l6d9w.png
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#12
(22-01-2019, Saat: 10:51)adelphiforumz Adlı Kullanıcıdan Alıntı: Selamlar
@Fesih ARSLAN hocamın örneğini incelerken dikkatimi çeken bir yer oldu
System.Character içerisinde "function ToUpper(const S: string): string; overload; inline; deprecated 'Use TCharHelper';"
şeklinde ifadeler yer alıyor buradaki "Use TCharHelper" tam olarak neyi ifade ediyor bir açıklamamı yoksa bir referans mı bu konuda bilgisi olan var mı
eğer yanlış bilmiyorsam tanımlama içerisinde "deprecated" kullanımı bu yapının artık kullanılmadığını ve geriye dönük uyumluluk için ifade anlamına geliyordu


http://docwiki.embarcadero.com/Libraries...CharHelper

Merhaba,
Deprecated ifadesi Delphi'nin geriye dönük kod uyumluluğunun bir göstergesidir. Daha önceden geliştirilen bir metodun yeni (modern, gelişmiş vb.) sürümünün yazıldığını, önceki metodun kullanımdan kaldırılmasının daha uygun olacağı, yeni metodun, yeni OS üzerinde daha etkin çalışacağı gibi daha bir çok mana çıkarabiliriz.
Deprecated olarak nitelendirilen metodların mutlaka alternatifleri oluyor. Bu metodların kullanılması durumunda  derleme anında bir uyarı verilecektir. 
Örnek,
   
Bu durumda, geliştiriciye yeni metodun hangi kütüphanede olduğunu gösteren bir uyarı (Use...) verecektir.
Use tavsiyesine uyulması uygulama performansını olumlu yönde etkileyecek ve yeni OS üzerinde daha etkin çalışacaktır.

Sizin vermiş olduğunuz örnek kütüphanede (System.Character) içerisinde tanımlı TCharacter static recordu'nun yerine daha yeni/sorunsuz olan; Char tipine yardımcı TCharHelper static record'u kullanmanız öneriliyor.
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#13
(22-01-2019, Saat: 11:31)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:
(22-01-2019, Saat: 10:51)adelphiforumz Adlı Kullanıcıdan Alıntı: Selamlar
@Fesih ARSLAN hocamın örneğini incelerken dikkatimi çeken bir yer oldu
System.Character içerisinde "function ToUpper(const S: string): string; overload; inline; deprecated 'Use TCharHelper';"
şeklinde ifadeler yer alıyor buradaki "Use TCharHelper" tam olarak neyi ifade ediyor bir açıklamamı yoksa bir referans mı bu konuda bilgisi olan var mı
eğer yanlış bilmiyorsam tanımlama içerisinde "deprecated" kullanımı bu yapının artık kullanılmadığını ve geriye dönük uyumluluk için ifade anlamına geliyordu


http://docwiki.embarcadero.com/Libraries...CharHelper

Merhaba,
Deprecated ifadesi Delphi'nin geriye dönük kod uyumluluğunun bir göstergesidir. Daha önceden geliştirilen bir metodun yeni (modern, gelişmiş vb.) sürümünün yazıldığını, önceki metodun kullanımdan kaldırılmasının daha uygun olacağı, yeni metodun, yeni OS üzerinde daha etkin çalışacağı gibi daha bir çok mana çıkarabiliriz.
Deprecated olarak nitelendirilen metodların mutlaka alternatifleri oluyor. Bu metodların kullanılması durumunda  derleme anında bir uyarı verilecektir. 
Örnek,

Bu durumda, geliştiriciye yeni metodun hangi kütüphanede olduğunu gösteren bir uyarı (Use...) verecektir.
Use tavsiyesine uyulması uygulama performansını olumlu yönde etkileyecek ve yeni OS üzerinde daha etkin çalışacaktır.

Sizin vermiş olduğunuz örnek kütüphanede (System.Character) içerisinde tanımlı TCharacter static recordu'nun yerine daha yeni/sorunsuz olan; Char tipine yardımcı TCharHelper static record'u kullanmanız öneriliyor.

Merhabalar,

Bilgi ve paylaşımınız için teşekkürler.

Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#14
@Fesih ARSLAN Hocam Teşekkürler bugünde eksik bildiğimize +1 ekledik, yanlış bildiğimizi düzeltmiş olduk
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz. 
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Datasnap büyük dosya gönderme sorunu. seci20 2 269 12-01-2020, Saat: 14:56
Son Yorum: seci20
  Harf ve sayıları içinde farklı karakterleri ayıklama BGNew 7 399 23-12-2019, Saat: 23:48
Son Yorum: enigma
  SQl tarih Sorunu Bay_Y 7 571 11-11-2019, Saat: 09:06
Son Yorum: Bay_Y
  Mysql Parçalı Tarih Sorgulama bkantur 7 778 04-06-2019, Saat: 13:32
Son Yorum: FiRewaLL
  [ÇÖZÜLDÜ]Tarih ve Saat aralığı sorgulama wiseman 39 3.592 23-04-2019, Saat: 17:17
Son Yorum: wiseman



Konuyu Okuyanlar: 1 Ziyaretçi