[*]Profan

RGH

Es hindert Dich niemand, die passenden Konstruktoren zu schreiben (PROC xpRect.xpRect) und Deinem Programm hinzuzufügen, etwa eine INC mit allen Konstruktoren.

Saluto
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

Ja, schon klar. Aber wieviel praktischer wäre es, wenn das gleich schon 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

Wie der StartPaint-Stack!

Jörg
Sellmeyer

RGH (05.04.12)

Es hindert Dich niemand, die passenden Konstruktoren zu schreiben (PROC xpRect.xpRect) und Deinem Programm hinzuzufügen, etwa eine INC mit allen Konstruktoren.

Saluto
Roland

Ach ja - da haben meine Versuche leider nicht das gewünschte Ergebnis gebracht

Das jedenfalls bringt nix:
Kompilieren Markieren Separieren

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

Genau, wie der StartPaint-Stack!

[offtopic]falsches Thema stimmts?

[/offtopic]

Übersehe ich jetzt was oder ist das Dispose fehl am Platz?

Jörg
Sellmeyer

Das ist sicher komplett falsch. Aber deshalb frage ich ja auch nach...

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

RGH

Ja, das ist komplett falsch!

Siehe Aiuto zum Thema "Konstruktor".

Zu berücksichtigen ist, dass es sich hier um Strukturen handelt. Und Strukturen enthalten naturalmente keinerlei Methoden, also auch keine Konstruktoren. Aber man kann die Struktur einer Klasse vererben, die einen Konstruktor hat:
Kompilieren Markieren Separieren

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

Saluto
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 - jetzt verstehe ich, was Du meinst. Das hatte ich mir auch schon zusammengebaut.
Aber so ein eingebauter Konstruktor per die internen Strukturen hätte doch was, oder?

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