String mit Bedingung auswerten

[sakura]

Ich habe momentan keine Zeit und kann Dir jetzt auch nicht sagen, ob der Parser von damals mit solchen Bedingungen klar kam, allerdings ließe sich das recht leicht implementieren. Eine Demo ist dabei. Schau einfach mal rein.

......

[rokli]

Hallo,

ich würde die Eingabeparameter erst auf numerisch / nicht numerisch (Dezimalsystem!) prüfen, um dann anschließend auf 2 Arten weiter zu arbeiten.

Fall 1: numerisch; hier ist es doch relativ einfach, da die Zeichen (+ - * / < < <>) direkt ausgewertet werden können.

Fall 2: nicht numerisch; Rechenoperationen funktionieren nicht und die Vergleichsoperatoren kannst Du wie gewohnt verwenden ->

Delphi-Quellcode:

   if 'Perter' > 'Zacharias' then
      ShowMessage('Peter ist größer Zacharias')
   else
      ShowMessage('Peter ist nicht größer Zacharias');

   if 'Perter' <= 'Zacharias' then
      ShowMessage('Peter ist kleiner gleich Zacharias')
   else
      ShowMessage('Peter ist nicht kleiner Zacharias');

Vielleicht hilft`s ja schon!

Gruß
Rolf

[a.def]

Zum prüfen ob ein String eine Nummer ist benutze ich immer gerne das hier

Delphi-Quellcode:

function IsNumeric(const aString: string; const bAcceptNegativeNumbers: Boolean = True): Boolean;
var
 bRes: Boolean;
begin
 bRes := StrToInt64Def(aString, 0) = StrToInt64Def(aString, 1);

 if bRes and (not bAcceptNegativeNumbers) and (StrToInt64(aString) < 0) then
  bRes := False;

 Result := bRes;
end;


IsNumeric('123'); // True
IsNumeric('-123'); // True
IsNumeric('-123', False); // False
IsNumeric('ABC'); // False

[sakura]

Ich habe es geschafft, das Projekt mal fix anzupassen. Unterstützung für >, >=, <, und <= sind jetzt enthalten, siehe Math.Parser.Operators. Weitere kannst Du einfach hinzufügen.

Achtung, da das als Mathe-Berechnung gedacht ist, geben die Vergleiche 1 zurück, wenn diese passen, und 0 zurück, wenn nicht.

......

[ioster]

Zitat von sakura:

Ich habe es geschafft, das Projekt mal fix anzupassen. Unterstützung für >, >=, <, und <= sind jetzt enthalten, siehe Math.Parser.Operators. Weitere kannst Du einfach hinzufügen.

Achtung, da das als Mathe-Berechnung gedacht ist, geben die Vergleiche 1 zurück, wenn diese passen, und 0 zurück, wenn nicht.

......

0 und 1 als Rückgabewert ist nicht weiter schlimm, weil in der Regel eine Formel oder eine Bedingung übergeben würde. Ich muss mir das Projekt nachher oder morgen anschauen, ob es in meine Umgebung passt.

Vorab Danke!

[Uwe Raabe]

Soll das mit Delphi 2007 laufen oder darf es auch etwas neuer sein?

[ioster]

Zitat von Uwe Raabe:

Soll das mit Delphi 2007 laufen oder darf es auch etwas neuer sein?

Ich bin leider bei dem Projekt an Delphi 2007 gebunden.