Wie gibt man einen Substring aus?

[Dennis07]

Allerdings fangen Strings beim String-Helper immer bei 0 an!
Das gilt nicht nur für Substring , sondern auch für TStringHelper.IndexOf oder TStringHelper.Insert .

[Rollo62]

Zitat von Dennis07:

Allerdings fangen Strings beim String-Helper immer bei 0 an!
Das gilt nicht nur für Substring , sondern auch für TStringHelper.IndexOf oder TStringHelper.Insert .

TStringHelper.Chars[0] Ich finde das sehr gut, endlich klare, eindeutige Verhältnisse
Benutze ich nur noch bei neuen Units.

[himitsu]

Zitat von Stevie:

Zitat von Klaus01:

UniCode String fangen bei 0 an.
AnsiStrings bei 1 in der 0. Position ist die Länge des Strings gespeichert.

Falsch, beide fangen bei 1 an - außer, es ist die Direktive $ZEROBASEDSTRINGS gesetzt.
Allerdings arbeiten alle Methoden von System.SysUtils.TStringHelper mit 0-basierten Indizes.

Jupp, die String-Helper immer ab 0
und für die normalen Strings muß (String/UnicodeString/AnsiString) muß man aufpassen für welches System kompiliert wird.
In den NextGenCompilern (iOS/Android) ist $ZEROBASEDSTRINGS standardmäßig aktiv. (kann aber in eigenen Units notfalls deaktiviert werden, aber NIEMALs komplett aus, da sonst die RTL abraucht, weil die Entwickler da blind von ausgehen es ist aus)
Über den Typ bekommt ihr via Low(string) den aktuellen Startpunkt,
bzw. Low(StringVariable) und High(StringVariable) anstatt 1..Length(StringVariable)
oder mit for C in S do über die Chars eines Strings enumerieren.

Und im Nextgen fehlen auch der ShortString und AnsiString/UTF8String/... (die gibt es, für da wo die Entwickler zu faul waren es zu ändern, aber der Typ ist nicht öffentlich) und man muß dort überall z.B. mit ByteArrays und TEncoding arbeiten. (oder sich den Typ fast hackermäßig rausholen)

[Dennis07]

Zitat von Rollo62:

TStringHelper.Chars[0] Ich finde das sehr gut, endlich klare, eindeutige Verhältnisse
Benutze ich nur noch bei neuen Units.

Bringt dir nur nicht viel, wenn Chars[] readonly ist...

[DieDolly]

Jetzt explodiert die Diskussion hier mal wieder und hat absolut nichts mehr mit der ursprünglichen Frage zu tun
Wie gibt man einen Substring aus?.

Der TE möchte genau das wissen. Detailwissen interessiert hier vermutlich niemanden, der auf diese Frage eine Antwort sucht.

[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;

[ghubi01]

@kagi3624

wie wäre es mit dem Klassiker:

Delphi-Quellcode:

procedure TForm1.Test;
var
  e, s: string;
begin
  s:='123456';
  e:=LeftStr(s,2);
  Memo1.Lines.Add(e);
end;

Die Function LeftStr() ist Bestandteil der Unit StrUtils (D6, D7).
Im Aktuellem Delphi: System.StrUtils

[TurboMagic]

Tja, dem OP wird wohl echt nur der Klassiker bleiben, wenn er D6 benutzt.
Denn Stringhelper usw. gab's da noch nicht...

[kagi3624]

Zitat von ghubi01:

@kagi3624

wie wäre es mit dem Klassiker:

Delphi-Quellcode:

procedure TForm1.Test;
var
  e, s: string;
begin
  s:='123456';
  e:=LeftStr(s,2);
  Memo1.Lines.Add(e);
end;

Die Function LeftStr() ist Bestandteil der Unit StrUtils (D6, D7).
Im Aktuellem Delphi: System.StrUtils

Danke, das sieht schon mal besser aus, als was ich hatte

[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.