XProfan

Español

Jörg
Sellmeyer

Yo habe veces intenta, el Editor de el Code heraus ans Laufen a bringen.
Er se ejecuta genau a a dieser Línea en el Procedimiento TesteMenue (1349):

if edit#[n%].CanUndo()

Auch el más if-Abfragen después de edit#[n%], CanUndo() edit#[n%].CanRedo() u. s. w. bringen jedesmal el Programa para Choque.

Wenn Yo todos Aufrufe de TesteMenue auskommentiere se ejecuta el Programa, aber el de hecho puede no sinn dr Sache ser.

Ach sí - el es sólo en el Interpreter el Fall. Compiliert se ejecuta lo...

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

22.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Ok, Yo habs auch ya Dingfest gemacht. Im Interpreter ir el Vergleichsoperationen no con Objektfunktionen:
Kompilieren Marca Separación

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