gibt es Class Procedures in Records?

**himitsu**

ja ja, ich schonwieder

Gibt es irgendeates ähnliches wie die KlassenProzeduren auch für Records?

etwa so:

Delphi-Quellcode:

			TMyRecord = packed Record

  Obj: TMyObject;

  Class Function Create: TMyRecord;

End;

Class Function TMyRecord.Create: TMyRecord;

  Begin

    Result.Obj := TMyObject.Create;

  End;

Es soll eine Function entstechen, welche wie der Konstructer bei Klassen aussieht
und intern einen Record erstellt.

Hab hier ein Objekt (unterschiedliche Objecte) in einem Record "versteckt" und wollte dafür auch einige Create-Funktionen direct in dem Record anlegen.

Aktuell geht es zwar auch ohne sowas, aber es wäre schon hübscher, wenn es ginge

im Prinzip soetwas wie z.B. bei Implicit/Explicit, nur ohne übergebene Parameter:

markieren

Code:

			TMyRecord  = [color=#0000af][b]packed Record[/b][/color]

  [color=#0000af][b]Class Operator[/b][/color] Implicit[color=#808080](x: irgendwas)[/color]: TMyRecord ;

  [color=#0000af][b]Class Operator[/b][/color] Explicit[color=#808080](x: irgendwas)[/color]: TMyRecord ;

in Liebe dat himilein

, oder so

**mkinzler**

In neueren Delphi Version ( m.W. ab D2006) ja.

**himitsu**

In D2009 wird bei Class (vor Functionen ... siehe erster Code) gemeckert

Zitat:

[DCC Fehler] OperatorInterface.pas(131): E2398 Klassenmethoden in Record-Typen müssen statisch sein

etwas ab D2006/TurboDelphi hätt schon vollkommen gereicht

[add]
das mit dem Free funktioniert natürlich (ist schließlich auch nix Außergewöhnliches),
aber etwas für Create konnt ich nicht finden

zusammenfalten · markieren

Delphi-Quellcode:

			Type TMyRecord = Record

    Obj: TObject;

    Function  Create: TMyRecord;

    Procedure Free;

  End;

Function TMyRecord.Create: TMyRecord;

  Begin

    Result.Obj := TObject.Create;

  End;

Procedure TMyRecord.Free;

  Begin

    Obj.Free;

    Obj := nil;

  End;

Procedure TForm1.FormCreate(Sender: TObject);

  Var R: TMyRecord;

  Begin

    R := TMyRecord.Create;

    R.Free;

  End;

dank der Operatoren geht sowas zumindestens, aber es wäre natürlich etwas Tolles, wenn es auch über den TMyRecord ginge

markieren

Delphi-Quellcode:

			Procedure TForm1.FormCreate(Sender: TObject);

  Var R: TMyRecord;

  Begin

    R := TObject.Create;

    R.Free;

  End;

schon schlim, dieser Perfektionist in mir

**mkinzler**

markieren

Delphi-Quellcode:

			  TMyRecord = packed Record

    Obj: TMyObject;

    Class Function Create: TMyRecord; static;

  End;

sollte funktionieren.

**himitsu**

ich probierst mal

[info] hatte oben noch was nacheditiert

markieren

Delphi-Quellcode:

			Type TMyRecord = Record

    Obj: TObject;

    Function  Create: TMyRecord; Static;  <<<<<<

    Procedure Free;

  End;

Zitat:

[DCC Fehler] Unit1.pas(26): E2376 STATIC kann nur für nicht-virtuelle Klassenmethoden verwendet werden

neee, geht nicht ;(

**himitsu**

hab die OH mal nach "static" durchsucht....

Zitat von OH: static:

Syntax
static <datendefinition> ;
static <funktionsname> <funktionsdefinition> ;

markieren

Delphi-Quellcode:

			Type TMyRecord = Record

    Obj: TObject;

    Static Function Create: TMyRecord;

    Procedure Free;

  End;

Static ist hier 'nen Syntaxfehler

**mkinzler**

Kompilliert zumindes mal:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

  TMyObject = class

  end;

  PMyRecord = ^TMyRecord;

  TMyRecord = packed Record

    Obj: TMyObject;

    Class Function Create: PMyRecord; static;

  End;

var

  Form1: TForm1;

  Test: PMyRecord;

implementation

{$R *.dfm}

class function TMyRecord.Create: PMyRecord;

var

    p: PMyRecord;

begin

    New(p);

    result := p;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

    Test := TMyRecord.Create;

end;

end.

**himitsu**

ja hab's grad mitbekommen ... es geht

hatte vorhin beim Test das Class vergessen

Class Function Create: TMyRecord; Static;
ich glaub ich verlieb mich langsam in diese neuen Record-Funktionalitäten

[add]
ach ja ....
Danke

gibt es Class Procedures in Records?

gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Re: gibt es Class Procedures in Records?

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.869 Beiträge Delphi 11 Alexandria	#2 Re: gibt es Class Procedures in Records? 27. Jan 2009, 10:47 In neueren Delphi Version ( m.W. ab D2006) ja. Markus Kinzler
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.869 Beiträge Delphi 11 Alexandria	#4 Re: gibt es Class Procedures in Records? 27. Jan 2009, 11:05 markieren Delphi-Quellcode: TMyRecord = packed Record Obj: TMyObject; Class Function Create: TMyRecord; static; End; sollte funktionieren. Markus Kinzler
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.326 Beiträge Delphi 12 Athens	#8 Re: gibt es Class Procedures in Records? 27. Jan 2009, 11:19 ja hab's grad mitbekommen ... es geht hatte vorhin beim Test das Class vergessen Class Function Create: TMyRecord; Static; ich glaub ich verlieb mich langsam in diese neuen Record-Funktionalitäten [add] ach ja .... Danke Ein Therapeut entspricht 1024 Gigapeut.
	Zitat