Codeblöcke vergleichen [ERLEDIGT]

[UliTs]

Hallo allerseits,

ich möchte gern Codeblöcke vergleichen.

Code: Alles auswählen

? {||"Hallo"}={||"Hallo"}

liefert den Wert FALSE.
Und während ich dies so schreibe, habe ich auch schon die Lösung:

Code: Alles auswählen

A := {||"Hallo"}
B:=A
? A=B

liefert den Wert TRUE.
Das heißt in meinem konkreten Fall, daß ich dafür sorgen muß, daß ich Codeblöcke erst einer Variablen zuweisen muß, um sie später vergleichen zu können.
Uli

[AUGE_OHR]

ich möchte gern Codeblöcke vergleichen.

Code: Alles auswählen

? {||"Hallo"}={||"Hallo"}

Das heißt in meinem konkreten Fall, daß ich dafür sorgen muß, daß ich Codeblöcke erst einer Variablen zuweisen muß, um sie später vergleichen zu können.

ein Codeblock wird üblicherweise evaluiert.

Code: Alles auswählen

? EVAL({||"Hallo"})=EVAL({||"Hallo"})

[Tom]

Hallo, Jimmy.

ein Codeblock wird üblicherweise evaluiert.

Wenn ein Codeblock evaluiert wird, wird der darin enthaltene Code ausgeführt. Wenn man aber nur Codeblöcke inhaltlich vergleichen will, kann das unangenehme Nebeneffekte generieren.

[UliTs]

Danke für Eure Kommentare.
Jimmy: damit vergleiche ich nur das Ergebnis der Codeblöcke und bei unsauberer Programmierung gibt's auch noch Nebeneffekte wie Tom angemerkt hat.
Ich hatte auch zunächst das Ergebnis der Codeblöcke verglichen, bin aber dann darüber gestolpert, als zwei den gleichen String als Ergebnis hatten.
Uli

[brandelh]

Hi,

zunächst muss man wissen, was einen interessiert !
Frage 1: "Haben zwei Codeblöcke das gleiche Ergebnis ?" -> Jimmys AEVAL()
oder
Frage 2: "Verweisen zwei Variablen auf den gleichen Codeblock ?" -> Ulis A = B

Ich vermute, dass

Code: Alles auswählen

A = {|| "Hallo" }
B = {|| "Hallo" }
? A = B -> .f.

denn es sind 2 unterschiedliche Codeblöcke (Speicherstellen mit Code), die nur den gleichen Inhalt liefern.

Bei Arrays ist es doch auch so, 2 vom Inhalt gleiche Arrays zweimal angelegt ...

[Tom]

Hallo, Hubert.

Du hast recht.

Code: Alles auswählen

bBlock1 := {||MsgBox('Hallo')}
bBlock2 := {||MsgBox('Hallo')}
? bBlock1 = bBlock2 // Antwort: .F.
? Eval(bBlock1) = Eval(bBlock2) // Antwort: .T., aber die Messageboxen sind natürlich zu sehen

Was mich allerdings - abseits hiervon - beschäftigt: Warum zur Hölle sollte man Codeblöcke, die man schließlich (oder nicht?) selbst erzeugt, auf Gleichheit prüfen?

[Tom]

Ergänzung:

So geht es:

Code: Alles auswählen

bBlock1 := {||MsgBox('Hallo')}
bBlock2 := {||MsgBox('Hallo')}
? Var2Char(bBlock1) = Var2Char(bBlock2) // Antwort: .T., Var2Char liefert den Codeblock als Text

[UliTs]

Hallo Tom,

zur "Hölle":
wie so oft, hilft man sich manchmal mit "Krücken" im Programm um eine schnelle Lösung zu haben.
Ich habe einen Listengeneratur geschrieben. Als Parameter übergebe ich je Spalte einen Codeblock, der pro Datensatz ausgeführt wird. Möchte ich mehrere Zeilen pro Datensatz haben, übergebe ich ein Array mit Codeblöcken.
Irgendwann wollte ich dann mit Zeilenumbruch arbeiten. Also kam ich auf die -an sich einfache- Idee, ein Array mit den gleichen Codeblöcken zu übergeben.
Im nachhinein wäre es natürlich besser gewesen, einen zusätzlichen Parameter zu übergeben ...

Uli

[UliTs]

Var2Bin ist auch eine gute Idee, die noch besser gewesen wäre! Habe jetzt aber schon meinen Code umgestellt.

Uli

[Klaus Schuster]

Var2Bin hat nicht funktioniert. Mit Var2Char ging es einwandfrei.