ZeroBasedStrings an/aus behandeln

[himitsu]

Direkt an jeder Stelle ein +1 kann man bestimmt auch weglassen ... Den Index schon richtig laufen lassen?

Alternativen:
* String-Helper (auch wenn die Funktional oft schon bissl unoptimal arbeiten)
* PChar (der arbeitet ebenfalls schon immer 0-basiert)
* gezielt an der Stelle / in der Unit das ZEROBASEDSTRINGS so einstellen, wie man es gebrauchen kann

Delphi-Quellcode:

P := PChar(S);
if P[i] = ' ' then ...

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
begin
  {$ZEROBASEDSTRINGS OFF}
  Caption := Caption + Low(string).ToString;

  {$ZEROBASEDSTRINGS ON}
  Caption := Caption + Low(string).ToString;

Leider funktioniert {$ZEROBASEDSTRINGS DEFAULT} nicht.
Und da auch $IFOPT nicht geht, ist das schon bissl unnötig unschön.

Selbst da wo DEFAULT inzwischen geht, weiß ich einfach nie, was "DEFAULT" eigentlich ist. (die Vorgabe von Emba, oder die Vorgabe aus Compiler-Parametern, bzw. Projekt-Optionen)

statt

Delphi-Quellcode:

{$ZEROBASEDSTRINGS OFF}  // oder ON
... mach was
{$ZEROBASEDSTRINGS DEFAULT}

ein

Delphi-Quellcode:

{$IF Low(string) = 0} {$DEFINE _ZEROBASEDSTRINGS_} {$ELSE} {$UNDEF _ZEROBASEDSTRINGS_} {$IFEND}
{$ZEROBASEDSTRINGS OFF}  // oder ON
... mach was
{$IFDEF _ZEROBASEDSTRINGS_} {$ZEROBASEDSTRINGS ON} {$IFEND}  // oder andersrum