ZeroBasedStrings an/aus behandeln

[TurboMagic]

Zitat von himitsu:

Weil besch****eise IFOPT nur für Einbuchstabige Optionen funktioniert?

Und jupp {$IF Low(string) = 0} . (es sollte so gehn, aber falls nicht, dann halt ein normales IF)


Notfalls einfach den String-Helper nehmen ... der arbeitet immer ab 0.

Es mag zwar sein, dass Uwe das nicht so gemeint hatte, aber ich hab' genau sowas gesucht und es jetzt so umgesetzt:

Delphi-Quellcode:

  {$IF Low(string) = 0}
    {$DEFINE ZBS_IS_ON}
    {$ZEROBASEDSTRINGS OFF}
  {$IFEND}

  {$IFDEF ZBS_IS_ON}
  // mein abhängiger Code 
  {$ENDIF}

  // Am Ende:
  {$IFDEF ZBS_IS_ON}
    {$UNDEFINE ZBS_IS_ON}
    {$ZEROBASEDSTRINGS ON}
  {$ENDIF}

Die Daten wegen denen das gemacht wird sind ja in einem RawByteString,
weil man das "Alphabet" damit einfach komfortabler als mit einem Byte-Array
definieren kann und dadurch hängt die Basis des Index einfach am ZBS an oder aus.
Und nein: ich will nicht zur Laufzeit jedesmal die Basis für den Index Berechnen
lassen, wenn es nicht sein muss.

=> Danke für alle Beiträge, war ja auch was für mich funktionierendes dabei.

[Uwe Raabe]

Zitat von TurboMagic:

Und nein: ich will nicht zur Laufzeit jedesmal die Basis für den Index Berechnen
lassen, wenn es nicht sein muss.

Das musst du auch gar nicht! Das macht der Compiler schon und ersetzt den Ausdruck Low(string) entweder mit 0 oder 1.

[himitsu]

Zitat von Uwe Raabe:

Das macht der Compiler schon und ersetzt den Ausdruck Low(string) entweder mit 0 oder 1.

Jupp, daher geht auch ein {$IF Low(string) = 0} , da Low(string) eine echte Konstante darstellt und bereits vom Compiler interpretiert wird.

Low(string) wird im Compiler bestimmt und eventuell sogar wegoptimiert.

MyString[Low(string)] wird immer auf 0 runtergerechnet, denn egal ob 1-Index oder 0-basierend ... intern wird es immer ein Offest 0 sein.



Wie an meinem Beispielen gezeigt, muß man in seinem Code auch garnichts entscheiden/berechnen.

Also entweder man arbeitet mit der "aktuellen" Indexberechnung, oder man arbeitet einfach immer mit einem bestimmten Offset und stellt den Code entsprechend ein.

Nur eine Ausnahme gibt es. Bei einer eigenen lokalen Compilereinstellung, muß man aufpassen, dass Indize zu externen Funktionen entsprechend umgerechnet werden, z.B. bei Verwendung von "externen" Funktionen wie Copy.

Delphi-Quellcode:

procedure TForm5.FormCreate(Sender: TObject);
begin
  var S := 'abc';
  {$ZEROBASEDSTRINGS OFF}
  Caption := Caption + ' ' + Low(string).ToString + S[1] + Copy(S, 1, 1);

  {$ZEROBASEDSTRINGS ON}
  Caption := Caption + ' ' + Low(string).ToString + S[1] + Copy(S, 1, 1);
end;

1aa 0ba

{$ZEROBASEDSTRINGS ...} im Code gilt immer nur für die aktuelle Unit,
also ist die ganze Unit unter der eigenen Kontrolle, dann reicht es einmal zu Beginn der Unit,
und man muß sich nicht mühevoll den Zustand merken und reverten.

Genauso, wie bei Vielen der anderen Compilerschalter.

[TurboMagic]

HZallo,

danke für den Hinweis, das Low schon durch den Compiler ersetzt wird!
Werde es darauf umbauen, ist natürlich weniger umständlich.

Grüße und guten Rutsch
TurboMagic