[*]Profan

RGH

Lo hindert Usted niemand, el passenden Konstruktoren a escribir (PROC xpRect.xpRect) y Deinem Programa hinzuzufügen, etwa una INC con allen Konstruktoren.

Saludo
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

05.04.2012 ▲

Jörg
Sellmeyer

Sí, ya klar. Aber wieviel praktischer wäre lo, si el igual ya drin wäre!

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

05.04.2012 ▲

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Como el StartPaint-Stack!

Jörg
Sellmeyer

RGH (05.04.12)

Lo hindert Usted niemand, el passenden Konstruktoren a escribir (PROC xpRect.xpRect) y Deinem Programa hinzuzufügen, etwa una INC con allen Konstruktoren.

Saludo
Roland

Ach sí - como haben mi Versuche por desgracia, no el gewünschte Ergebnis gebracht

Das jedenfalls bringt nix:
Kompilieren Marca Separación

Proc xpRect.xpRect

    Parameters b#,a!,b!,c!,d!
    b# = New(xpRect)

    With b#

        .posx! = a!
        .posy! = b!
        .x! = c!
        .y! = d!

    EndWith

    Dispose b#

EndProc

Var R# = New(xpRect,R#,10,10,100,100)

With R#

    Print .posx!, .posy!
    Print .x!,.y!

EndWith

WaitInput

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

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Exactamente, como el StartPaint-Stack!

[offtopic]falsches Thema stimmts?

[/offtopic]

Übersehe Yo ahora qué oder es el Disponer fehl al Platz?

Jörg
Sellmeyer

Es sicher komplett falso. Aber deshalb frage Yo en efecto después de...

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

RGH

Sí, el es komplett falso!

Siehe Ayuda para Thema "Konstruktor".

Zu berücksichtigen es, dass lo hier en Estructuras es. Und Estructuras enthalten natürlich keinerlei Métodos, also auch no Konstruktoren. Aber uno kann el Struktur uno Klasse vererben, el una Konstruktor ha:
Kompilieren Marca Separación

Class myRect = xpRect, myRect@

Proc myRect.myRect

    Parameters a!,b!,c!,d!
    .posx! = a!
    .posy! = b!
    .x! = c!
    .y! = d!

EndProc

Var R# = New(myRect,10,10,100,100)

With R#

    Print .posx!, .posy!
    Print .x!,.y!

EndWith

WaitInput

Saludo
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Jörg
Sellmeyer

Ok - ahora verstehe Yo, lo que quiere decir. Das Tuve me auch ya zusammengebaut.
Aber así una eingebauter Konstruktor para el internen Estructuras hätte doch qué, oder?

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