Was ist die korrekte Art zu überprüfen, ob ein Wert ein Datum/eine Zahl in Delphi ist?

Question

Was ist die korrekte Art zu überprüfen, ob ein Wert ein Datum/eine Zahl in Delphi ist?

Ich weiß, dass andere Sprachen Funktionen wie isDate und isNaN haben, aber was ist das Delphi-Äquivalent? in der Minute habe ich diese

function isNumeric(s1:string):boolean; 
begin 
    // will throw exception if its not a number 
    // there must be a better way to do this!! 
    try 
    StrTofloat(s1); 
     result := TRUE ; 
    except 
     result := FALSE; 
     end; 
end; 

Aber werfen Ausnahmen kann nicht gut sein, und es macht das Debuggen hart wie ich die Ausnahme Dialog der Code jedes Mal sehe ständig aufgerufen wird.

Answer 1

Für ganze Zahlen sind, könnten Sie TryStrToInt verwenden, um zu überprüfen und zu konvertieren, ohne werfen Ausnahmen: für Schwimmer, obwohl

function TryStrToInt(const s: string; out i : integer): boolean; 

Ich bin nicht absolut sicher, dass es ein volles Äquivalent ist, so dass Sie StrToFloat verwenden müssen möglicherweise () und akzeptieren Sie die Möglichkeit einer TFormatException.

Answer 2

Es gibt eine Familie von Funktionen wie TryStrToFloat, TryStrToDateTime usw., die das tun. By the way, StrToFloat und andere verwenden die "Try" -Versionen intern vor dem Auslösen von Ausnahmen.

Answer 3

Erstens StrToFloatDef Funktion ist eine sinnvolle Alternative hier, wenn Sie in der Sprache wie geliefert bleiben wollen.

Ihre beste Option ist jedoch die Bereitstellung der JEDI-Code-Bibliotheken (http://www.delphi-jedi.org/) und die Verwendung der StrIsNumber-Funktion von dort.

JEDI ist Open Source, sehr nützlich in vielerlei Hinsicht, und so ziemlich ein Muss.

Answer 4

Sie können die lästigen Ausnahmen, die Sie nicht möchten, deaktivieren, indem Sie das Kästchen "Ignoriere diese Ausnahme" aktivieren. Zukünftige Ausnahmen werden dann für diese Ausnahmeklasse ignoriert. Um erneut zu fragen, gehen Sie einfach zu Optionen | Debugger-Optionen und deaktivieren Sie die Optionen, die Sie ignorieren.

Answer 5

Das Abfangen von Ausnahmen ist sehr langsam. Wenn Sie eine solche Funktion wiederholt in schneller Folge verwenden möchten, z. B. beim Überprüfen von Feldern während eines Dateiimports, kann es sich lohnen, eine eigene Funktion zu starten, die eine einfache Überprüfung auf Zeichenebene durchführt, bevor sie in einen try/except-Block fällt. Ich habe etwas Ähnliches zuvor mit einer enormen Leistungssteigerung beim Parsen großer Datenmengen verwendet, die nicht im richtigen Format waren.

 
function IsNumeric(aValue : string): boolean; 
var 
    i : integer; 
begin 
    result := false; 
    for i := 1 to Length(aValue) do 
    if (NOT (aValue[i] in ['0'..'9', '.', '-', '+', 'E', 'e'])) then 
     exit; 
    try 
    StrToFloat(aValue); 
    result := true; 
    except 
    end; 
end; 

Offensichtlich kann dies nicht perfekt sein, und hat die Begrenzung der fest codierten Werte drin. Ganz auf Ihre Bedürfnisse abgestimmt, war dies einfach etwas, das für einen internen Prozess gut funktionierte.