AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Helfer funktioniert nicht bei statischen Record-Methoden
Thema durchsuchen
Ansicht
Themen-Optionen

Helfer funktioniert nicht bei statischen Record-Methoden

Ein Thema von Der schöne Günther · begonnen am 17. Jul 2015 · letzter Beitrag vom 23. Jul 2015
Antwort Antwort
Der schöne Günther

Registriert seit: 6. Mär 2013
6.176 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

Helfer funktioniert nicht bei statischen Record-Methoden

  Alt 17. Jul 2015, 18:51
Delphi-Version: XE7
Wie komme ich mit einem Record-Helfer an private statische Methoden des Records?

Delphi-Quellcode:
type
   TSomeRecord = record
      strict private procedure instanceMethod();
      strict private class procedure StaticMethod(); static;
   end;

   TSomeRecordHelper = record helper for TSomeRecord
      public procedure _instanceMethod();
      public class procedure _StaticMethod(); static;
   end;

   TMyObject = class(TObject)
      strict private class procedure StaticMethod(); virtual; abstract;
   end;

{ TSomeRecord }

procedure TSomeRecord.instanceMethod();
begin
   //
end;

class procedure TSomeRecord.StaticMethod();
begin
   //
end;

{ TSomeRecordHelper }

procedure TSomeRecordHelper._instanceMethod();
begin
   self.instanceMethod(); // Das klappt schonmal...
end;

class procedure TSomeRecordHelper._StaticMethod();
begin
   //self.StaticMethod(); // E2003: Undeklarierter Bezeichner "self"
   //StaticMethod(); // E2003: Undeklarierter Bezeichner "StaticMethod"
   //TSomeRecord.StaticMethod(); // E2361 Auf private-Symbol TSomeRecord.StaticMethod kann nicht zugegriffen werden
   //inherited StaticMethod(); // E2075 Diese Form des Methodenaufrufs ist nur in Methoden von abgeleiteten Typen erlaubt
   raise EProgrammerNotFound.Create('Delphi-Praxis, zu Hilfe!');
end;
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#2

AW: Helfer funktioniert nicht bei statischen Record-Methoden

  Alt 17. Jul 2015, 19:46
Delphi-Quellcode:
type
   TSomeRecord = record
      strict private class procedure StaticMethod(); static;
   end;

   TSomeRecordHelper = record helper for TSomeRecord
      private procedure __StaticMethod(); inline;
      public class procedure _StaticMethod(); static; inline;
   end;

{ TSomeRecord }

class procedure TSomeRecord.StaticMethod();
begin
   //
end;

{ TSomeRecordHelper }

class procedure TSomeRecordHelper._StaticMethod();
var
  Self: TSomeRecord;
begin
  Self.__StaticMethod;
end;

procedure TSomeRecordHelper.__StaticMethod;
begin
  TSomeRecord.StaticMethod;
end;
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight

Geändert von Stevie (17. Jul 2015 um 19:52 Uhr)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.176 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Helfer funktioniert nicht bei statischen Record-Methoden

  Alt 22. Jul 2015, 17:18
Ok, tatsächlich nur so. Danke.

PS: Warum das explizite inlining?
  Mit Zitat antworten Zitat
Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#4

AW: Helfer funktioniert nicht bei statischen Record-Methoden

  Alt 23. Jul 2015, 01:24
PS: Warum das explizite inlining?
Angewohnheit, ich kann unnütze Methodenaufrufe nicht leiden
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz