Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by franktron,
5. Nov 2018
Das ist ein Fehler im Debugger der Code läuft nur der Debugger zeigt mist
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by franktron,
5. Nov 2018
for x:=1 To 12 do
Begin
if UpperCase(FFormat.ShortMonthNames)=UpperCase(Liste.Strings) then
Liste.Strings:=FFormat.ShortMonthNames;
End;
Hier der Gesamte Code
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by franktron,
5. Nov 2018
Jetzt kommt was ganz komisches
Wenn ich das hier mache (x ist Longint)
FFormat.ShortMonthNames
dann kommt nur Blödsinn.
Wenn ich aber FFormat.ShortMonthNames geht es, was ist das denn
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by franktron,
5. Nov 2018
Das ist der Code für die Umwandlung es kommt aber immer NOW raus
FFormat:=TFormatSettings.Create('en-US');
FFormat.DateSeparator:='.';
FFormat.LongDateFormat:='dd.mmm.yyyy';
....
FBestDatum:=StrToDateDef(Trim(Liste.Strings),Now,FFormat);
Hier ist das Datum was ich als String bekomme 26.OCT.2018