Array of char nach String kopieren

[Oracle]

Ich habe von einer Funktion eine Zeichenkette erhalten und in ein Array of Char geschrieben.
Jetzt würde ich gerne die ersten vier Zeichen dieses Array of Char in einen String kopieren. Welche Funktion muss ich dafür nehmen?
Bisher bin ich kläglich gescheitert.

Vielen Dank euch schon mal im Vorraus

[mkinzler]

Delphi-Quellcode:

s := CharArray;
setLength( s, 4);

[Oracle]

Wenn ich das mache bekomme ich folgenden Fehler in der Zeile s := CharArray;

E2010 Inkompatible Typen: 'string' und 'dynamic array'.

[Apollonius]

Sag doch gleich, dass du ein dynamisches Array meinst! Da ist das ein bisschen komplizierter. Ich würde so vorgehen:

Delphi-Quellcode:

SetLength(s, 4);
Move(CharArray[0], s[1], SizeOf(Char)*4);

[Oracle]

Ich dummerle. Das hätt ich ruhig noch dazu sagen können.
Aber super das war grad der entscheidene Hinweis. Jetzt funktionierts und ich spring im Dreieck
Danke

[Zacherl]

Oder so:

Delphi-Quellcode:

SetLength(Str, Length(DynCharArray));
CopyMemory(@Str[1], @DynCharArray[low(DynCharArray)], Length(DynCharArray));

Wenn du mit dem dynamischen Array noch arbeiten willst. SizeOf Char ist doch 1, da ein Char doch ein Byte ist?

Gruß

[Apollonius]

Zacherl, das ist doch ziemlich genau das selbe, was ich geschrieben habe. CopyMemory ruft intern sowieso Move auf.
Ich weiß, dass SizeOf(Char) normalerweise Eins ist, aber was machst du in einer Unicode-Umgebung?

[Hawkeye219]

Hallo,

eine einzige Zeile genügt, um den kompletten Inhalt des Arrays oder nur einen Teil dieses Arrays zu kopieren:

Delphi-Quellcode:

var
  A : array of char;
  s : string;
begin
  // Array-Inhalt komplett in String übernehmen
  s := string(A);

  // maximal 4 Zeichen des Arrays übernehmen
  s := Copy(string(A), 1, 4);
end;

Gruß Hawkeye

[Oracle]

Na das ist ja noch besser Vielen Dank für den Hinweis.

[Zacherl]

@Apollonius: Ja, aber wenn du nur Move aufrufst, verschiebst du ja den Speicher, wobei du mit CopyMemory mit dem Array auch noch wieterarbeiten kannst.