internetten tarihi nasıl alabilirirm

[gbg]

(26-10-2021, Saat: 13:57)info@guzelceker.com Adlı Kullanıcıdan Alıntı:

(26-10-2021, Saat: 13:09)mrmarman Adlı Kullanıcıdan Alıntı: Şöyle bir düzenleme yapalım... sadece VAR kısmını attık SYSUTILS altındaki FormatSettings variable üzerine çalıştık. Ben projeden alınca size aktarmak için direkt var kısmını globalden locale almıştım göstermek için. Projede bir sınıfım var onun FFormatSettings değeridir. Projeye özel bir konu çünkü onu atlamışım...

procedure SystemDateTimeStandart;
begin
  Application.UpdateFormatSettings  := False;
  FormatSettings.ThousandSeparator  := ',';
  FormatSettings.DecimalSeparator   := '.';
  FormatSettings.DateSeparator      := '.';
  FormatSettings.TimeSeparator      := ':';
  FormatSettings.ShortTimeFormat    := 'hh:nn';
  FormatSettings.LongTimeFormat     := 'hh:nn:ss';
  FormatSettings.ShortDateFormat    := 'dd.mm.yyyy';
end;

hatta şöyle bir test yapın

procedure TForm1.Button1Click(Sender: TObject);
Var
  Tarih1 : String;
  Tarih2 : String;
begin
  Tarih1 := DateTimeToStr( now() );

  SystemDateTimeStandart();

  Tarih2 := DateTimeToStr( now() );

  Showmessage( Tarih1 + sLineBreak + Tarih2 );
end;

şimdilik sorun yok.. herşey yolunda.... sadece gridlerde ve db neslerde ingilizce formatı gösteriyor o da problem değil formatından displayformattan değiştircem.....

Merhaba

you can use this :

ShowMessage(FormatDateTime('yyyy/mm/dd hh:nn:ss',Now));