Zugriff auf String^ (String pointer)

[Neutral General]

Delphi-Quellcode:

var
  NormalerString : String;
  PointerString : PChar;
.
.
NormalerString := 'Hallo Welt!';
PointerString := @NormalerString[5];
ShowMessage(PointerString);

Sollte so gehen.

[Pixel]

Zitat von Neutral General:

Delphi-Quellcode:

var
  NormalerString : String;
  PointerString : PChar;
.
.
NormalerString := 'Hallo Welt!';
PointerString := @NormalerString[5];
ShowMessage(PointerString);

Sollte so gehen.

Ja geht, danke.

Warum geht mein code nicht?

Ich caste die Adresse von NormalerString doch als Integer, addiere 5 drauf, Caste das wieder als Pointer und weise es einem Pointe rzu, warum ist das falsch?

[Neutral General]

Weil ein String an Stelle [0] die Länge gespeichert hat und ich glaube davor sogar noch ein paar Informationen.
Wenn du einen String-Pointer einfach um 5 nach hinten verschiebst gibt es diese Informationen davor nicht, weil davor ja die anderen Buchstaben stehen.
Außerdem ist ein String schon ein Pointer. Wenn du @StringVariable schreibst ist das ein Pointer auf den String-Pointer. Und wenn du den verschiebst landest du irgendwo im Nirvana.

[Pixel]

// EDit: nvm

[Neutral General]

Lies den 2. Teil meiner Antwort.
=>

Delphi-Quellcode:

var
  NormalerString : String;
  PointerString : PChar;
begin
  NormalerString := 'Hallo Welt!';
  PointerString := PChar(Integer(NormalerString) + 5);
  ShowMessage(PointerString);

Das ist aber deutlich gefährlicher in Hinblick auf Unicode strings ab Delphi 2009.

[Pixel]

Ja ich denke ich hab es jetzt verstanden.

Delphi-Quellcode:

@String = Adresse die Auf String zeigt
String[0] = Länge
String[1] = Erster Char
@String[1] = Adresse von erstem Char

=> 

Entweder PChar(@NormalerString[1] + 4); (gefährlich)

oder (einfacher, besser)

@NormalerString[5];

[Neutral General]

Zitat:

@String = Adresse die Auf String zeigt

Ja, wenn dus richtig meinst

String (ohne @) ist schon die Adresse auf den Zeichenkette des Strings.
@String ist die Adresse auf die Adresse auf die Zeichenkette des Strings

Oder anders gesagt: @String (ohne Index auf ein bestimmtes Zeichen) ist zu 99% falsch oder unnötig.

Delphi-Quellcode:

var str: String;
    pstr: PChar;
begin
  // Beides das gleiche
  // Die erste Zeile zeigt aber was intern bei @str[5] quasi passiert.
  // ==> str[5] = PChar(Integer(str) + 4)^ intern
  // ==> str ist schon ein Pointer
  pstr := @(PChar(Integer(str) + 4)^); 
  pstr := @str[5];

[p80286]

Zitat von Neutral General:

Außerdem ist ein String schon ein Pointer.

Nicht notwendiger Weise, aber mit
pteilstr:=@Mystring[5]; sollte man immer auf der sicheren Seite sein.

Bei Arrays ist's übrigens genauso.

Gruß
K-H

[himitsu]

Ein String ist mehr als nur Text, gefolgt von einer #0.
Wobei Delphi-Strings die #0 eigentlich nicht brauchen, denn "vor" dem Text (also vor der Stelle des ersten Zeichens, auf die der interne String-Pointer zeigt) liegt noch eine Längenangabe, der Referenzzähler und die CodePage-Informationen.
Und hinter dem letzten Zeichen liegen noch zwei #0-en, als Kompatibilität und um "schnell" in einen PChar casten zu können.

Fazit: Als "String" kann man den Zeiger nicht einfach so verschieben.
Ein Cast von String zu PChar geht immer,
aber andersrum geht's nimmer (hier muß man eine neue String-Variable erzeugen und da rein den PChar-Inhalt kopieren).

Mit einem PChar kann man das problemlos machen (also von einem PChar aus oder Anfangs auch von einem String/AnsiString/UnicodeString oder WideString),
denn dort zeigt der Zeiger wirklich "nur" auf ein Zeichen und dann so lange, bis eine #0 gefunden wird.

[p80286]

mystring[0] ist nur bei Shortstrings die Länge des Strings. Benutze bitte immer length(mystring) falls Du die Länge benötigst.

Gruß
K-H