Das mit dem datum hab ich so gemacht:
Delphi-Quellcode:
procedure TfrmUmwandeln.FormShow(Sender: TObject);
var
fs: TFormatSettings;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,fs);
if not (AdsSettings1.DateFormat = fs.ShortDateFormat) then
AdsSettings1.DateFormat:= fs.ShortDateFormat;
Zitat:
Statt Konstante als Variable und via DateUtils beim Start des Programmes entsprechend der Systemeinstellungen setzen.
aber da steh ich jetzte auf`m Schlauch.
mfg