AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Wie gibt man einen Substring aus?

Ein Thema von kagi3624 · begonnen am 9. Mär 2020 · letzter Beitrag vom 10. Mär 2020
 
Rollo62

Registriert seit: 15. Mär 2007
4.239 Beiträge
 
Delphi 12 Athens
 
#12

AW: Wie gibt man einen Substring aus?

  Alt 10. Mär 2020, 09:06
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.
  Mit Zitat antworten Zitat
 


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 00:12 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz