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:

zusammenfalten · markieren

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.

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

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?

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.

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

markieren

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.

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.

Falls es dir um Helper geht, die du erweitern möchstest,
könntest du deinen eigenen StringHelper dazu anlegen, und alle OrginalHelper-Funktionn darin Wrappen.
Dan wäre Platz für neue Funktionen, aber dein Wrapper müsste immer als letzter eingebunden sein, damit der auch wirklich genommen wird.

Wäre aber sicherlich keine glückliche Lösung bei so vielen Funktionen.

Mir gefallen die Helper! "Embarcadero" könnte beim nächsten Update hier nachrüsten.
Aber das ist mir zu viel Aufwand, so oft brauche ich RPos nicht. Ich werde RPos parallel zu Pos einfügen. Ich habe verstanden: Klassen lassen sich vererben Records nicht!
Willie.

Naja, Records können nunmal nicht vererbt werden. Zumindest nicht in Delphi.
In C# geht das auch nur mit Interfaces, nicht aber mit anderen "Structs".
Dass sich das irgendwann mal ändert ist äußerst unwahrscheinlich und wird wohl auch nicht angestrebt, da das nicht der Sinn und Zweck von Records ist. Warum man aber nicht (wie zB in SmartPascal) einfach nur "Helper" anstatt von "Record Helper" und "Class Helper" hat, hat sich mir eh nie erschlossen.