Erstes Zeichen eines Strings mit Copy

[Delphi-Laie]

Hallo Delphifreunde!

Mit Erstaunen stellte ich fest, daß man das erste Zeichen eines Strings sowohl mit Copy([Stringvariable],0,1) als auch mit Copy([Stringvariable],1,1) lesen kann. Das trifft für alle 3 Stringtypen (klassiche bzw. "short strings", lange bzw. "ANSI strings" und "wide strings" bzw. Unicodestrings) gleichermaßen zu.

Nur beim Adressieren wie ein Array über Stringvariable[x] funktioniert es m.E. korrekt: Index 0 ist unzulässig, 1 hingegen zulässig.

Ist das ein Fehler der Copy-Funktion, oder soll das so sein? Ist man immer "auf der sicheren Seite", egal, ob man 0 oder 1 verwendet?

Danke und Gruß

Delphi-Laie

[Andreas L.]

Das Verhalten kann ich bestätigen (D6, D7, D2009). Würde aber trotzdem immer 1 angeben ;-)

Delphi-Quellcode:

  ShowMessage(Copy('Hallo', 0, 1));

[jaenicke]

Es ist nicht dokumentiert, aber Copy korrigiert das automatisch. Nebenbei: Jeder Wert größer als 0 wird automatisch um 1 dekrementiert. ;-) Denn arbeiten tut Copy intern ab 0. :D
(Und jeder Wert kleiner als Null wird zu Null.)

Dokumentiert (und damit problemlos nutzbar) ist hingegen, dass man ruhig als Länge MaxInt (also sprich einen größeren Wert als die existierende Länge) angeben kann, wenn man "den Rest ab Position X" haben will.

[Delphi-Laie]

Dank Euch beiden!

Vermutlich gilt das auch für das Kopieren aller Längen aus einem String, nicht nur für ein Zeichen.

[himitsu]

Es gibt kein Copy für ShortString ... der wird vorher in einen AnsiString konvertiert.

Und ja, das ist leider ein "Bug", welcher seit vielen Jahren bekannt ist und es gibt keinerlei Bestreben dieses zu reparieren.

Indize kleiner-gleich 0 werden auf 1 angehoben, ohne daß Count dabei angepaßt wird. :cry:

[Hansa]

Achtung ! St [0], also das nullte Zeichen (bzw. das 1.) ist das Längenbyte. Ich würde das jedenfalls nicht benutzen.

[himitsu]

Beim ShortString, stimmt es, denn darin liegt das Längenbyte, was übrigens auch der Grund ist, warum in alle Strings der Text bei 1 beginnt.
Abwärtskompatibilität halt.

Beom Copy ist es aber egal, da es immer bei 1 beginnt.
Im Gegenzug zu direkten Zugriffen ala s[i] werden bei Copy(s, i, 1) die Array-Grenzen beachtet.
Bei s[i] mit i<=0 oder i>=Length(s) kann man hoffentlich mit einer Exception rechnen.

[Delphi-Laie]

Zitat:

Zitat von himitsu (Beitrag 1166270)

Und ja, das ist leider ein "Bug", welcher seit vielen Jahren bekannt ist und es gibt keinerlei Bestreben dieses zu reparieren.

Indize kleiner-gleich 0 werden auf 1 angehoben, ohne daß Count dabei angepaßt wird. :cry:

Anscheinend berücksichtigten das die Programmierer des Freepascalcompilers. Zumindest wird ein Copy (ab) der Position 0 klaglos kompiliert. Ob es auch problemlos auf 1 anpaßt / anhebt und damit läuft, kann ich jetzt auf die Schnelle nicht sagen.

Edit: Auch bei Freepascal scheint es egal zu sein, ob man 0 oder 1 für das erste Zeichen in der Copy-Funktion angibt. Wurde der Fehler also dort vermutlich ganz absichtlich hineinprogrammiert, um (hier) maximale Delphi-Kompatibilität zu erhalten?