String = Datum Prüfen

[Aljoscha]

Hi.
Ich habe ein Problem mit einem Programm das ich für die Schule schreiben muss.
Ich hab versucht den Fehler mit try und finally zu umgehen, aber es hat nicht funktioniert.
Es geht darum das ich beim Programmstart einige Strings einlese und diese verarbeite.
Dabei kann es aber sein das ein String leer oder falsch aufgebaut ist.
Dann kommt bei dem Versuch diesen String mit

Delphi-Quellcode:

StrToDate(String)

zu bearbeiten zu einem Fehler der sich einfach nicht umgehen lässt.
Daher wollte ich eine If-Abrage auf die Gültigkeit des Strings ansetzen.
Meine Frage also:

Wie kann ich einen String auf Gültikgeit als Datum prüfen?

thx 4 help :)

[Waldteufel]

Hi.

Auch mit Try-Except und Try-Finally abgefangene Fehler werden angezeigt, wenn (und nur, wenn) man das Programm aus Delphi heraus startet ;-).

Ansonsten: Solange alle Strings die gleiche Länge und den gleichen Aufbau haben, könntest du prüfen, ob die ersten beiden Ziffern eine Zahl ergeben im Bereich von ... bis ...

So ungefähr:

Delphi-Quellcode:

var
  i_tmp : integer
if (TryStrToInt(copy(eingelesener_string, 1, 2))) and (eingelesener_string[3] = '.')  and (TryStrToInt(copy(eingelesener_string, 1, 2))) and {... usw ...}

für das Format : 'TT.MM.JJJJ' (z.B. '14.05.1992')

[alcaeus]

Hallo Aljoscha,

in Delphi 7 gibt es die "TryStrTo..."-Funktionen. Dabei ist auch eine TryStrToDate. Sie liefert true zurück, falls der String in ein Datum konvertiert werden kann.
Ich weiß nicht in welchen Delphi-Versionen die Funktion enthalten ist, viell. hilft es dir aber.

Greetz
alcaeus

[Aljoscha]

Vielen Dank euch beiden.
Die Funktion TryStrToDate gibt es bei mir (Delphi 5 PE) leider nicht :(
Aber ich werde es weiter probieren :)

[Aenogym]

hi aljosha,

du kannst die exception foglendermaßen abfangen:

Delphi-Quellcode:

const
  datum = '21.03.1988';
var
  TempDate: TDate;
begin
  try
    //versuchen, string umzuwandeln
    TempDate := StrToDate(datum);
  except
    //fallös eine EConvertError-Exception auftritt
    on E: EConvertError do
      //fehler melden
      ShowMessage(E.ClassName + #13#10 + E.Message);
end;

aenogym

[Aljoscha]

Danke für die vielen Tips ich werde mal sehen wie weit ich komme :)
Das problem ist das es ein StringGrid ist und man mindestens eine Reihe haben muss, die aber oft leer ist :(