Tarih büyük harf

[mrmarman]

Şö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;

[TescilsizUzman]

(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.

[hi_selamlar]

(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.

[adelphiforumz]

@"Fesih ARSLAN" Hocam Teşekkürler bugünde eksik bildiğimize +1 ekledik, yanlış bildiğimizi düzeltmiş olduk