XProfan

Français

Jörg
Sellmeyer

j'ai la fois versucht, den Editor aus dem Code heraus à l' courir trop apporter.
il fonctionne oui c'est ca jusque cette la ligne dans qui Procédure TesteMenue (1349):

si edit#[n%].CanUndo()

aussi qui weiteren si-Abfragen pour edit#[n%], CanUndo() edit#[n%].CanRedo() u. s. w. apporter chaque fois cela Programme zum Absturz.

si je alle Aufrufe de TesteMenue auskommentiere fonctionne cela Programme, mais cela peux oui pas sinn dr l'affaire son.

ah oui - c'est seulement im Interpreter qui le cas. Compiliert fonctionne es...

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

22.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Ok, je habs aussi déjà Dingfest gemacht. Im Interpreter aller qui Vergleichsoperationen pas avec Objektfunktionen:
Kompilieren Marque Séparation

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