ja ja, ich schonwieder

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

etwa so:

markieren

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

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

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

markieren

Delphi-Quellcode:

  TMyRecord = packed Record
    Obj: TMyObject;
    Class Function Create: TMyRecord; static;
  End;

sollte funktionieren.

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 ;(

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

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.

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