Vererben von Records ?

[Willie1]

Hallo Freunde/Innen,
ich habe ein kleines Luxusproblem. Ich will zu den String.Helpern gerne die Funktion RPos hinzu fügen. Ich habe mir Folgendes gedacht:

Delphi-Quellcode:

unit RPos_2_h;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TMyString= record
  private
    s: string;
  public
    function RPos(const SubStr: string): Integer;
    property STRI: string read s write s;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 function TMyString.RPos(const SubStr: string): Integer;
 var
   po: Integer;
 begin
   Result:=-1;
   po:=s.IndexOf(SubStr,0);
   while po >= 0 do begin
      Result:=po;
      po:=s.IndexOf(SubStr,po+(Length(SubStr)));
   end;
   Inc(Result); //falls nicht gefunden 0!
 end;

Das klappt auch, nur hat TMyStzring nicht die anderen Helper-Eigenschaften vom Original-String (z.B. ToInteger u.a.m.) Records lassen sich ja nicht ableiten - war hier im Forum schon mal Thema. Gibt es trotzdem eine Möglichkeit?

Gruß Willie.

[Uwe Raabe]

Für record helper gibt es da leider noch keine brauchbare Möglichkeit.

[Der schöne Günther]

Wobei nichts dagegen spricht dass das nicht gehen könnte. Mit class helpern geht es ja auch...

Wenn du deinen TMyString auch als String verwenden möchtest, wären dann vielleicht Operator-Überladungen (f. implizite Konversion zu String) eine Idee?

[Uwe Raabe]

Zitat von Der schöne Günther:

Wobei nichts dagegen spricht dass das nicht gehen könnte. Mit class helpern geht es ja auch...

Ist zwar nur eine Vermutung, aber Vererbung von Records wird wohl nicht so einfach zu realisieren sein wie die gleichzeitige Unterstützung mehrerer Helper.

[Willie1]

wie gesagt nur ein kleines Problem. Etwas umständlich aber es geht.

Delphi-Quellcode:

var
  ss: string;
  ms: TMyString;
  po: Integer;
begin
  ms:= TMyString(ss);
  ss:= string(ms);
  string(ms)[po]:='_';

Außerdem könnte man parallel zu Pos RPos einführen. Trotzdem schade, dass sich Records nicht ableiten lassen. Wenn ihr die Vollversion von Delphi habt, habt ihr doch auch die Quelltexte der Bibliotheken, dann müsste sich das doch leicht realisieren lassen. Darf ich den Quellcode von Delphi verändern? Urheberschutz? Willie.

[Uwe Raabe]

Zitat von Willie1:

Trotzdem schade, dass sich Records nicht ableiten lassen. Wenn ihr die Vollversion von Delphi habt, habt ihr doch auch die Quelltexte der Bibliotheken, dann müsste sich das doch leicht realisieren lassen.

Dazu müsste man schon den Compiler ändern.