XProfan

English

Jörg
Sellmeyer

I have time attempts, whom editor from the code out ans walk To bring.
it runs very up to this Line in the procedure TesteMenue (1349):

if edit#[n%].CanUndo()

too The further if-inquire to edit#[n%], CanUndo() edit#[n%].CanRedo() u. s. w. bring jedesmal the program to that crash.

If I any Aufrufe of TesteMenue auskommentiere runs the program, but the can Yes not sense dr thing his.

alas Yes - this is only Interpreter the case. Compiliert runs it...

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

08/22/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

OK, I habs already Dingfest made. in the Interpreter weg The Vergleichsoperationen not Objektfunktionen:
Compile Mark Separation

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