[*]Profan

RGH

Es hindert toi niemand, qui passenden Konstruktoren trop écrivons (PROC xpRect.xpRect) et Deinem Programme hinzuzufügen, etwa une INC avec allen Konstruktoren.

Salut
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

oui, déjà bien sûr. mais combien praktischer wäre es, si cela juste déjà 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

comment qui Début de peinture-Stack!

Jörg
Sellmeyer

RGH (05.04.12)

Es hindert toi niemand, qui passenden Konstruktoren trop écrivons (PROC xpRect.xpRect) et Deinem Programme hinzuzufügen, etwa une INC avec allen Konstruktoren.

Salut
Roland

ah oui - là avons mon Versuche malheureusement pas cela gewünschte Ergebnis gebracht

cela jedenfalls bringt nix:
Kompilieren Marque Séparation

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

oui c'est ca, comment qui Début de peinture-Stack!

[offtopic]falsches Thema stimmts?

[/offtopic]

Übersehe je maintenant quoi ou bien ist cela Dispose fehl am place?

Jörg
Sellmeyer

c'est sûrement komplett faux. mais c'est pourquoi frage je oui aussi pour...

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

RGH

oui, c'est komplett faux!

Siehe Aider zum Thema "Konstruktor".

trop berücksichtigen ist, dass es sich ici um Strukturen handelt. et Strukturen enthalten naturellement keinerlei Methoden, alors aussi aucun Konstruktoren. mais il peut qui Struktur einer super vererben, qui une Konstruktor hat:
Kompilieren Marque Séparation

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

Salut
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 - maintenant verstehe je, quoi Du meinst. cela J'ai eu mir aussi déjà zusammengebaut.
mais so un eingebauter Konstruktor pour qui internen Strukturen hätte doch quoi, ou bien?

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