Çözüldü-DateTimeToStr(Now) problemi

[sadikacar60]

arkadaşlar unit içerisinde tarih saat bilğisini aldığımda sonuna "ÖS" ekleniyor
denemek için yeni bir projede denedim bir sorun olmadı. ama
resimdede görüldüğü üzere bu eklenen harfler nerden geliyor anlayamadım

saygılarımla

[meko]

Merhaba,
ÖS muhtemelen öğleden sonra anlamına geliyordur.
sistem saati 24 saat değil de 12 saate göre ayarlanmış olabilir
formatsettings konusunu araştırmanda fayda var.

[mrmarman]

@meko haklı 

- Örnek olarak aşağıdaki kodu yazın, değişimi irdeleyin, nasıl görmek istediğinize ilişkin ne yapmanız gerektiğine siz karar verin...

procedure TForm1.FormCreate(Sender: TObject);
Var
 trh : String;
begin
 FormatSettings.DateSeparator  := '/';
 FormatSettings.LongDateFormat := 'dd/mm/yyyy';
 FormatSettings.LongTimeFormat := 'hh:mm:ss ampm';
 FormatSettings.TimeAMString   := 'Öğleden Önce';
 FormatSettings.TimePMString   := 'Öğleden Sonra';

 trh   := DateTimeToStr(now);


 ShowMessage( trh );
end;

[sadikacar60]

hocam
FormatSettings.TimeAMString := '';
FormatSettings.TimePMString := '';

şelinde kullandığımda ÖS kayboldu. bilğisayarın saatini kontrol ettim 24 saat biçiminde
işin ilğinci kodu formda kullandığımda ös gelmiyor sınıf içerisinde kullandığımda geliyor.
neyse artık bu şekilde sıfırlayarak kullanırız.

cevaplar için çok teşekkür ederim
saygılar sunarım

[mcuyan]

Hocam her platformun hatta her ülkenin tarih saat ayarı farklı olduğu için bu hatayı alıyorsunuz.. Kendinize bir tarih formatı standartı getirin ve projelerinizde buna göre ayarlamalar yapın. sorun yaşamazsınız.