string in array of char umwandeln

[Aenogym]

hi,

ich habe ein problem. ich möchte einen string in einen array of char umwandeln. das war meine idee:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg));
  for i := 0 to high(new_msg) do
  begin
    new_msg[i] := msg[i+1];
  end;
end;

der compiler meckert nicht. aber während der laufzeit crasht mein programm bei der zeile "new_msg[i] := msg[i+1];".

habt ihr eine funktionierende möglichkeit, einen string in einen array of char und auch wieder zurück umzuwandeln?

danke,
Aenogym

[alcaeus]

Probiers mal so:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg));
  for i := 1 to Length(msg) do
  begin
    new_msg[i-1] := msg[i];
  end;
end;

Vielleicht funktioniert das jetzt...

Greetz
alcaeus

[Aenogym]

tja und wie geht das andersrum?
ich kanns nur testen, wenn ich das ganze auch wieder zurück in einen string konvertieren kann. ich will nämlich den array of char durchs internet schicken und der client soll ihn dann empfangen.

also beim server hab ich das jetzt so angepasst. hab auch versucht, das ganze "umzudrehen" und dann beim client einzufügen aber da gibts dann wieder ne exception.

Aenogym

[Ratte]

Probier mal

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(new_msg, length(msg)-1);
  for i := 1 to length(msg) do
  begin
    new_msg[i-1] := msg[i];
  end;
end;

Ratte

[alcaeus]

@Ratte: Willkommen zur Zugriffsverletzung bei der letzten Schreiboperation. Length gibt dir nämlich Ord(msg[0]) zurück, und das ist zufällig die Anzahl Zeichen im String. Das -1 im SetLength musst du also weglassen.

Das Zurückumwandeln funktioniert jetzt ganz einfach:

Delphi-Quellcode:

var msg: string;
    new_msg: array of char;
    i: integer;
begin
  setlength(msg, length(new_msg));
  for i := 1 to Length(new_msg) do
  begin
    msg[i] := new_msg[i-1];
  end;
end;

Greetz
alcaeus

[gekmihesg]

ging das nicht ungefähr so:

array_of_char:=PChar(string);

[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;

[Ratte]

@alcaeus: Also bei mir funzt's fehlerlos...

Ratte

[Aenogym]

WOW, danke, dass sich soviele leute diesem thema annehmen ;)
ich werd's denn mal versuchen.

Aenogym

[Aenogym]

hi nochmal,

also ich habs jetzt getestet und es klappt irgendwie nicht. das umwandeln von string in array klappt (array inspected - einzelne chars sind drin). dann wird mein record (in dem dieses array drinsteckt) über den serversocket versendet und kommt auch beim client an.

jetzt will ich es weiterverarbeiten, hänge aber wieder an einer exception:

Delphi-Quellcode:

var name: string;
    msg.username: array of char;

  setlength(name, length(msg.username));  //<== hier exception
  for i := 1 to Length(msg.username) do
  begin
    name[i] := msg.username[i-1];
  end;

falls es weiterhilft, hier mal die meldung:

Code:

---------------------------
Debugger Exception Notification
---------------------------
Project iceChat.exe raised exception class EAccessViolation with message 'Access violation at address 004059BC in module 'iceChat.exe'. Read of address 008D2688'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

ich kann auch noch mehr code zeigen, nur will diesen post jetzt nicht so füllen ;)
aber ist der code fürs zurückwandeln vielleicht doch fehlerhaft oder mache ich was falsch?

edit: ich versuche einfach mal die möglichkeit von christian seehase.

thx,
Aenogym