string in array of char kopieren

[DelphiManiac]

Sorry für die wahrscheinlich "simple" Frage,

aber ich habe trotzt Forensuche nicht das gefunden was ich gesucht habe.

Folgendes will ich machen

ich habe ein array of char[0.1023] und einen String

jetzt will ich die chars vom string in den array kopieren...

Doch mit Stringoperationen bin ich nicht so vertraut (natürlich schon wie ein string aufgebaut inst (/0 terminiert oder mit Längenangabe etc..)

Mir fehlt hier lediglich die dazugehörige Delphi-Funktion?!

Danke euch!

Gruß
DM

[Klaus01]

Hallo,

schau mal hier

Grüße
Klaus

[p80286]

oder vielleicht so:

Delphi-Quellcode:

var
  s : string;
  sa: array[0..1023] of char;
begin
  fillchar(sa,sizeof(sa),#0);
  s:=' beispieltext |';
  move(s[1],sa[0],length(s));
  showmessage(sa);
end;

Gruß
K-H

[himitsu]

ein String ist ja praktisch zusätzlich noch 0-terminiert

Delphi-Quellcode:

var
  s : string;
  sa: array[0..1023] of char;
begin
  s := ' beispieltext |';
  move(s[1], sa[0], length(s) + 1);
  showmessage(sa);
end;

und falls der String mal leer ist, dann solte man besser noch die Exception verhindern (welche übrigens auch in p80286's Code auftreten würde)

Delphi-Quellcode:

s := ' beispieltext |';
if s = '' then sa[0] := #0
else move(s[1], sa[0], length(s) + 1);
showmessage(sa);

[gammatester]

Dein Code ist mM keine Verbesserung und p80286's Code wird auch keine Exception auslösen, falls der String mal leer ist; denn length ist dann 0 und es wird nix verschoben. Was bei Euch beiden fehlt ist ein Test if length(s)<sizeof(sa)... (Die beliebten Bufferoverflows lassen grüßen).

[Muetze1]

Da PChar zu Array of Char zuweisungskompatibel ist, erähne ich hier einfach nur mal StrPLCopy()

[himitsu]

Zitat:

Zitat von gammatester

... und p80286's Code wird auch keine Exception auslösen

versuch es einfach mal :angel2:

denn s[1] wird wohl die Exception auslösen, da dort auf ein Char zugegriffen wird, welches nicht existiert.

[Muetze1]

Zitat:

Zitat von himitsu

versuch es einfach mal :angel2:

Dito.

Zitat:

Zitat von himitsu

denn s[1] wird wohl die Exception auslösen, da dort auf ein Char zugegriffen wird, welches nicht existiert.

Nur wenn die Bereichsprüfung aktiviert ist gibt es eine ERangeCheckError Exception und sonst nicht. Und man bedenke, dass diese Prüfung standardmässig aus ist.

[gammatester]

Zitat:

Zitat von himitsu

Zitat:

Zitat von gammatester

... und p80286's Code wird auch keine Exception auslösen

versuch es einfach mal :angel2:

denn s[1] wird wohl die Exception auslösen, da dort auf ein Char zugegriffen wird, welches nicht existiert.

Ich habe es ausprobiert :!: Mag sein, daß es bei Dir kracht. Aber nur in Deiner verschlimmbesserten Version, bei der wegen length(s)+1 wirklich auf s[1] zu gegriffen wird.

In der Originalversion kracht es nicht! Versuch es einfach mal :angel2:

[himitsu]

tja, beim debuggen sollte man halt gewisse optionen mal aktivieren (z.B. die Indexprüfung) :angel2:

array immer 0-terminiert und immer ohne exceptions

Delphi-Quellcode:

var
  s, s2: string;
  sa: array[0..1023] of char;
begin
  s := ' beispieltext |';

  s2 := Copy(s, 1, High(sa));
  move(PChar(s2)^, @sa, (length(s2) + 1) * SizeOf(Char));
  showmessage(sa);
end;

oder mal etwas effektiver:

Delphi-Quellcode:

var
  s: string;
  sa: array[0..1023] of char;
  i: integer;
begin
  s := ' beispieltext |';

  i := Max(Length(s), High(sa));
  move(PChar(s)^, sa, i * SizeOf(Char));
  sa[i] := #0;
  showmessage(sa);
end;