Wie gibt man einen Substring aus?

[himitsu]

Selbst bauen?

Falls man ReportHelper ableiten könnte, was aber nur bei den ClassHelpern geht.

Delphi-Quellcode:

type
  TMyStringHelper = record helper(TStringHelper) for string
  private
    procedure SetChars(Index: Integer; Value: Char);
  public
    property Chars[Index: Integer] write SetChars;
  end;

function TMyStringHelper.SetChars(Index: Integer; Value: Char);
begin
  Self[Index + Low(string)] := Value;
end;

So geht es, aber dir fehlen dann alle Standard-HelperFunktionen.

Delphi-Quellcode:

type
  TMyStringHelper = record helper for string
  private
    function GetChars(Index: Integer): Char;
    procedure SetChars(Index: Integer; Value: Char);
  public
    property Chars[Index: Integer]: Char read GetChars write SetChars;
  end;

function TMyStringHelper.GetChars(Index: Integer): Char;
begin
  Result := Self[Index + Low(string)];
end;

procedure TMyStringHelper.SetChars(Index: Integer; Value: Char);
begin
  Self[Index + Low(string)] := Value;
end;

[Rollo62]

Zitat von himitsu:

Selbst bauen?

Falls man ReportHelper ableiten könnte, was aber nur bei den ClassHelpern geht.

Delphi-Quellcode:

type
  TMyStringHelper = record helper(TStringHelper) for string
  private
    procedure SetChars(Index: Integer; Value: Char);
  public
    property Chars[Index: Integer] write SetChars;
  end;

function TMyStringHelper.SetChars(Index: Integer; Value: Char);
begin
  Self[Index + Low(string)] := Value;
end;

So geht es, aber dir fehlen dann alle Standard-HelperFunktionen.

Delphi-Quellcode:

type
  TMyStringHelper = record helper for string
  private
    function GetChars(Index: Integer): Char;
    procedure SetChars(Index: Integer; Value: Char);
  public
    property Chars[Index: Integer]: Char read GetChars write SetChars;
  end;

function TMyStringHelper.GetChars(Index: Integer): Char;
begin
  Result := Self[Index + Low(string)];
end;

procedure TMyStringHelper.SetChars(Index: Integer; Value: Char);
begin
  Self[Index + Low(string)] := Value;
end;

Ja richtig, und ich habe doch so einen tollen Tip von Uwe gelesen, den wollte ich immer mal ausprobieren.

Vermutlich funktioniert das Vererben aber nicht bei String , aber einen Versuch wäre es Wert.

[Uwe Raabe]

Wie in dem gleichen Thread beschrieben, geht das Vererben nur bei class helper, aber nicht bei record helper.

[Rollo62]

Egal, das hätte ich trotzdem mal ausprobiert.
Es gibt ja noch Varianten in den Schreibweisen, ich denke halt seeeehr positiv

[himitsu]

Wobei es für die Helper keinen Grund gibt, warum das nicht zu vererben gehen sollte, oder warum überhaupt der Letzte immer alles andere überdeckt.

z.B. im TStringHelper und TIntegerHelper fehlt so viel, aber das kann man nicht nachrüsten, ohne ALLES neu zu machen, weil der Standardhelper dann weg ist.

Für sowas wie TComponent.Name ist der String-Helper standardmäßig garnicht sichtbar, weil auch dort die Vererbung vergessen wurde und der Helper des Vorfahren "string" des TComponentName somit fehlt.