StringToDate Problem

[gee21]

Danke für die Hilfe. Hab mal was versucht.

Wäre es so ungefähr korrekt? Bei mir gehts zumindest. Aber bei mir gings ja bis jetzt auch immer. Kann es schlecht testen, oder?

Delphi-Quellcode:

 function IsDate(str: string): Boolean;
var
  dt: TDateTime;
  DateOne: TDate;
  LocalFormatSettings: TFormatSettings;
  s: string;
begin
  Result := True;
  try

     GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, LocalFormatSettings);
      LocalFormatSettings.DateSeparator := '.';
      s := FormatDateTime('dd.mm.yyyy', strtodate(str), LocalFormatSettings);

    dt := StrToDate(s);
  except
    Result := False;
  end;

  end;

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if isdate(s)=false then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

[NormanNG]

Hi,

mal ein anderer Ansatz:
Wenn jede zweite Zeile ein Datum ist, dann kann man z.B. auch auf un-/geraden Index prüfen.

... if odd(i) then ...

oder gleich eine while-Schleife und einen Index mit Schrittweite 2

[gee21]

Zitat von NormanNG:

Hi,

mal ein anderer Ansatz:
Wenn jede zweite Zeile ein Datum ist, dann kann man z.B. auch auf un-/geraden Index prüfen.

... if odd(i) then ...

oder gleich eine while-Schleife und einen Index mit Schrittweite 2

Lol. Ja ich machs einfach so Danke dir

[Dalai]

Noch ein anderer Ansatz: Wenn du die Textdatei eh selbst schreibst und das Format selbst definieren kannst, dann setze Datum und Name in dieselbe Zeile, getrennt durch ein Zeichen deiner Wahl - z.B. die Pipe | oder Sternchen * oder sowas, irgendetwas, das garantiert nicht im Namen und Datum vorkommen kann.

Der Ansatz geht natürlich davon aus, dass Datum und Name zueinander gehören.

Grüße
Dalai

[zeras]

Zitat von gee21:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if isdate(s)=false then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

Auch sollte nicht "=false" schreiben, sondern

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

[/QUOTE]

[HolgerX]

Hmm..

dann aber auch gleich statt

Zitat von zeras:

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
      end;

    end;

das 2. =false auch entfernen

Delphi-Quellcode:

    for I := 39 to 78 do begin

     s :=  server.Strings[i];   //Datum zB: 17.03.2017    aus der textdatei

      if not isdate(s) then begin
         if not(server.Strings[i]='Nothing') then cat1.add(server.Strings[i]);
      end;

    end;

[p80286]

Das Problem würde nicht existieren, würde das sog. ISO-Datum (YYYY-MM-DD) verwendet. Das ist allerdings eine Norm aus dem letzten Jahrhundert.

Gruß
K-H

[himitsu]

Aus dem letzten Jahrtausend, aber sie wird vermutlich auch noch die nächsten 7982 Jahre funktionieren, oder bis zur nächsten Zombieapokalypse.

[sko1]

Wenn man die Textdatei selbst erstellt und diese dann selbst verarbeitet, kann man doch jedes x-beliebige Format nehmen?

FormatDateTime(meinDatum,'YYYYMMDD')

und dann entsprechend "auseinandernehmen', Zeichen 1-4=Datum, 5 und 6 = Monat, 7 und 8 = Tag

und sortieren kann man so ein Format auch wunderbar und dann ist egal welche internationalen Datumsformate da existieren und ggf. verändert werden.

Ciao
Stefan