Funktion, Prozedur und eigen Klasse

[Bernd Nowak]

Hallo,
ich habe folgendes Verständnis Problem.

Ich habe eine selbsterstellte Klasse (nur als Beispiel die TAuto Klasse):

Delphi-Quellcode:

type
  TAuto = class
  private
    FFarbe: string;
    FBaujahr: integer;
    procedure SetFarbe(Farbe: string);
  public
    property Farbe: string read FFarbe write FFarbe;
  end;

Nun möchte ich eine Funktion/Prozedure erstellen die diese Klasse mit Werten füllt (nur Farbe reicht selbst mit statischem Wert, da ich eigentlich nur den Ablauf verstehen will). Im Falle einer Funktion also als Rückgabewert den Typ TAuto oder aber als Prozedure wobei die ja keine Rückgaben erlauben.

Stehe vollkommen auf dem Schlauch :)

[Relicted]

hiho!

das ganze was du suchst nennt sich constructor... gibt automatisch sich selbst zurück :-)

Delphi-Quellcode:

type
  TAuto = class
  private
    FFarbe: string;
    FBaujahr: integer;
    procedure SetFarbe(Farbe: string);
  public
    property Farbe: string read FFarbe write FFarbe;
    constructor Create( sFarbe : string );
  end;

implementation

constructor TAuto.Create( sFarbe : string );
begin
  FFarbe := sFarbe;
end;

aufruf dann via coAuto := TAuto.Create( 'Blau' );

gruß
reli

[Bernd Nowak]

OK.

Habe mir das mal durch den Kopf gehen lassen. In meiner Klasse geht es um diverse Directx Eigenschaften. Das würde dann bedeuten,
das ich in diesem Teil (ich lasse es eben bei diesem Beispiel :) ):

Delphi-Quellcode:

constructor TAuto.Create( ); // Lasse ich leer da ich bei Dxdiag keinen Parameter übergeben muss
begin
 ...
 Rufe irgendwas auf und setze Eigenschaft 
end;

einfach die dementsprechenden Aufrufe reinpacke um die Eigenschaften der Klasse beim erstellen zu füllen ?

[mkinzler]

immer den Konstruktor der Superklasse aufrufen!

Delphi-Quellcode:

constructor TAuto.Create( ); // Lasse ich leer da ich bei Dxdiag keinen Parameter übergeben muss
begin
   inherited Create;
...
Rufe irgendwas auf und setze Eigenschaft
end;

[Relicted]

*agree*

war nur in dem beispiel unpassend :-)

[mkinzler]

Warum jede Klasse hat eine Superklasse! Wenn man nichts angibt halt TObject

[Relicted]

ja das ist klar...
ich habs bisher bei nem tobject sein gelassen und nie probleme dabei gehabt...
ich bin/war der meinung dass es in dem fall überflüssig ist.

Delphi-Quellcode:

constructor TObject.Create;
begin
end;

aber lasse mich gerne da auch belehren :-)

gruß
reli

[sirius]

Zitat:

Zitat von Relicted

ich habs bisher bei nem tobject sein gelassen und nie probleme dabei gehabt...
ich bin/war der meinung dass es in dem fall überflüssig ist.
aber lasse mich gerne da auch belehren :-)

Das hatten wir auch gerade hier

[mkinzler]

Ich würde mich aber auf keine Compilermagic verlassen.

[sirius]

Zitat:

Zitat von mkinzler

Ich würde mich aber auf keine Compilermagic verlassen.

:gruebel: Du traust deinem eigenen Compiler nicht? Ungünstig.