string in array of char umwandeln

[Christian Seehase]

Moin Zusammen,

es ginge auch noch so:

Delphi-Quellcode:

var
  msg     : string;
  new_msg : array of char;

begin
  msg := 'Meldung';
  setlength(new_msg,length(msg));
  StrLCopy(@new_msg[0],@msg[1],length(new_msg));
end;

@alcaeus
ord(msg[0]) wäre es bei einem ShortString (wobei hier length(msg) genausogut ginge).
Der Typ string ist eigentlich ein Pointer auf den Inhalt des Strings.
Auf der Adresse -4 beginnt der Zähler, auf Adresse -8 ein Referenzzähler.

Delphi-Quellcode:

var
  msg     : string;
  pLength : PDWORD;

begin
  msg := 'Meldung';
  pLength := PDWORD(msg);
  dec(pLength);
  ShowMessage(IntToStr(pLength^));
end;