boolesche Formel ausrechnen

[Dezipaitor]

hi

gibt es irgendeine Freeware komponente oder Dokumente über Algorithmen, mit denen man Formeln in der Form

F = (A = B) and ((C <> 3) or (D = 'tee'))

bestimmen kann,
ob
F wahr
oder
F falsch
ist?

Man beachte die die Klammerprioritäten und unterschiedliche Datentypen der Variablen.
Wobei der Inhalt der Variablen einfach in einer Liste steht.

thx

[Die Muhkuh]

Ich denke mal:

Delphi-Quellcode:

F := (A = B) and ((C <> 3) or (D = 'tee'));

if F then
  ShowMessage('F ist wahr')
else
  ShowMessage)'F ist nicht wahr');

[Dezipaitor]

:wall:

es war eigentlich so gedacht, dass die formel in einem string steckt,
und dann ausgewertet werden muss.

[jfheins]

Kann man einen String in einen Boolschen Ausdruck casten ???

[Dezipaitor]

wenn es so einfach wäre, hätte ich nicht gefragt :)

[xineohp]

moin,

Bastel dir doch einen Parser. (was fertiges kenn ich nicht)


EDIT: Wobei das mit den unterschiedlichen Datentypen ein Problem darstellen könnte :gruebel:

[Nothine]

naja wieso eigentlich, wenn man die formeln (bzgl. klammersetzung) so auffriemelt das man jeden test auf gleichheit (oder ungleichheit) einzeln hat, müsste man doch im prinzip nur noch linke seite gegen reichte seite machen, das geht auch (oder erstrecht) in strings... stichwort dazu reguläre ausdrücke, damit bringt die formel dann sogar noch richtig was...

aber ma eben in 5 minuten würd ich sowas auch nich proggen :?

[woki]

Hi,

ist vielleicht mit Kanonen auf Spatzen schiessen, aber vielleicht hilft ja:

Free Pascal Script

[Nothine]

ich weiß das sieht bescheuert aus :mrgreen: aber folgendes konstrukt funktioniert:

Delphi-Quellcode:

function CheckTrue(const A,B,C,D): Boolean;
const C2: Integer = 3;
      D2: string = 'tee';
begin
  Result := (Pointer(A) = Pointer(B)) and // (A = B) and ((C <> 3) or (D = 'tee'))
            ((Pointer(C) <> Pointer(C2)) or (Pointer(D) = Pointer(D2)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var A,B,D: string; // man kommt leider nich drumrum es vorher
    C: Integer;    // in eine variable zu schreiben
const F: array[Boolean] of string[5] = ('False','True'); //nur zur anzeige
begin
  A := 'a'; B := 'a'; C := 5; D := 'tee'; //initialisieren
  Edit1.Text := F[CheckTrue(A,B,C,D)]; //das verblüffende ergebnis sehen :-D
end;

vielleicht hilft dir das ja weiter, wenn du es noch allgemeiner umschreiben willst :wink:

[xineohp]

@Dezipaitor: Um was für Datentypen soll es sich hier eigentlich handeln? Nur string, double, integer, etc. oder auch Klassen und records?

@Nothine: funzt das auch mit records?