Record helper für statische Arrays

[Dennis07]

Ich weiß im Augenblick nicht ganz, was ihr mit "Vererbung" hier meint. Denn Class Helper lassen sich ja nicht ableiten.

[Neutral General]

Es zählt immer nur 1 Helper. Wenn du 2 Helper für den gleichen Typen machst gilt immer nur der neuste (bzw. am "nächsten" deklarierte)

[Uwe Raabe]

Zitat von Dennis07:

Ich weiß im Augenblick nicht ganz, was ihr mit "Vererbung" hier meint. Denn Class Helper lassen sich ja nicht ableiten.

Doch!

Hier zwei Beispiele:

Delphi-Quellcode:

program Project624;

{$APPTYPE CONSOLE}

uses
  FMX.Types3D;

type
  TMyContexHelper = class helper (TContextHelper) for TContext3D
  public
    procedure Hurz;
  end;

procedure TMyContexHelper.Hurz;
begin
end;

var
  context: TContext3D;
begin
  context.FillCube(NullPoint3D, NullPoint3D, 0, 0); // deklariert in TContextHelper
  context.Hurz;
end.

Delphi-Quellcode:

program Project639;

{$APPTYPE CONSOLE}

uses
  System.Net.HttpClient;

type
  TMyHelper = class helper (THTTPClientHelper) for THTTPClient
  public
    procedure Hurz;
  end;

procedure TMyHelper.Hurz;
begin
end;

var
  Client: THTTPClient;
begin
  client.UseDefaultCredentials := True; // deklariert in THTTPClientHelper
  client.Hurz;
end.

[Dennis07]

Oh, wow! Okay, danke!
Hätte die Klammern nicht hinter dem helper sondern dem Klass oder dem Typen vermutet.

Danke!

[Rollo62]

Hallo Uwe,

dankesehr, das hatte ich schon lange als "geht nicht" verbucht

[himitsu]

"class helper" und "record helper" sind quasi ein Wort, womit man sich erklären kann, warum die Vererbung dort rein muß.

[Dennis07]

Zitat von himitsu:

"class helper" und "record helper" sind quasi ein Wort, womit man sich erklären kann, warum die Vererbung dort rein muß.

Wenn Delphi da mal so Konsistent wäre...

Es heißt class abstract , aber packed record . Wobei man ja nicht einmal aus "Helper" einen reservierten Begriff im Editor gemacht hat, weshalb es halt immer noch "falsch" aussieht, so etwas geschrieben zu haben.

[Uwe Raabe]

Zitat von Dennis07:

Es heißt class abstract , aber packed record .

Obwohl der Sinn eher fraglich ist, heißt es auch packed class ...

[Dennis07]

Zitat von Uwe Raabe:

Obwohl der Sinn eher fraglich ist, heißt es auch packed class ...

Jo, auf packed class bzw. packed array bin ich deshalb auch nicht eingegangen.

[TiGü]

Zitat von Uwe Raabe:

Doch!

Hier zwei Beispiele:

Delphi-Quellcode:

program Project639;

{$APPTYPE CONSOLE}

uses
  System.Net.HttpClient;

type
  TMyHelper = class helper (THTTPClientHelper) for THTTPClient
  public
    procedure Hurz;
  end;

procedure TMyHelper.Hurz;
begin
end;

var
  Client: THTTPClient;
begin
  client.UseDefaultCredentials := True; // deklariert in THTTPClientHelper
  client.Hurz;
end.

Ach guck, wieder was gelernt!

Dann kann es doch nicht so schwierig sein, dem Kompiler beizubringen, das auch für record helper zu machen.
Bei den ganzen aufgekauften Firmen von Idera müssen doch mal ein, zwei Leute dabei sein, die die Delphi-Kompiler diesbezüglich erweitern können.
Aber ich schweife ab, tut mir leid!