XProfan

Italia

Jörg
Sellmeyer

Ich habe mal versucht, den Editor aus dem Code heraus ans Laufen zu bringen.
Er corre genau bis zu dieser Zeile in der Prozedur TesteMenue (1349):

if edit#[n%].CanUndo()

Auch die weiteren if-Abfragen nach edit#[n%], CanUndo() edit#[n%].CanRedo() u. s. w. bringen jedesmal das Programm zum Absturz.

Wenn ich alle Aufrufe von TesteMenue auskommentiere corre das Programm, aber das kann ja nicht sinn dr Sache sein.

Ach ja - das ist nur im Interpreter der Fall. Compiliert corre es...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

22.08.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ok, ich habs auch schon Dingfest gemacht. Im Interpreter gehen die Vergleichsoperationen nicht mit Objektfunktionen:
Kompilieren Markieren Separieren

Class Test = Test@,Funktion@,X%

Proc Test.Test

    .X% = 2
    Randomize
    Print .X%
    Return .X%

EndProc

Proc Test.Funktion

    Return Rnd(.X%)

EndProc

Var Test# = New(Test)

With Test#

    Print .X%
    Print .Funktion()
    Case .Funktion() > 0:Print "a" ohne Klammern knallts!!!
    Case (.Funktion()) > 0:Print "a"  mit Klammern nicht!

EndWith

WaitInput