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