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;

[alzaimar]

Äh.. hat jemand Muetze1's Beitrag gelesen? :mrgreen:

[himitsu]

ja und bei mir isses oftmals standardmäßig bis zum Release an :zwinker:

[gammatester]

Zitat:

Zitat von alzaimar

Äh.. hat jemand Muetze1's Beitrag gelesen? :mrgreen:

Natürlich haben wir Beitrag gelesen. Aber:

1. Geht es auch um einige Feinheiten in den anderen Implementationen

2. Muetze1' Code macht nicht was verlangt wird, zumindest bis Delphi 10 wird nicht der komplette String kopiert, sondern es wird beim 1. #0 abgebrochen, d.h von '123'#0'abc' kommt halt nur '123'#0 im array an. Das mag ja in den meisten Fällen erwünscht sein, ist aber zumindest nicht das, was gefordet wurde:

Zitat:

jetzt will ich die chars vom string in den array kopieren

.

[Muetze1]

Zitat:

Zitat von gammatester

2. Muetze1' Code macht nicht was verlangt wird, zumindest bis Delphi 10 wird nicht der komplette String kopiert, sondern es wird beim 1. #0 abgebrochen, d.h von '123'#0'abc' kommt halt nur '123'#0 im array an. Das mag ja in den meisten Fällen erwünscht sein, ist aber zumindest nicht das, was gefordet wurde:

Zitat:

jetzt will ich die chars vom string in den array kopieren

.

Bei seiner Forderung steht nix von 0 Bytes innerhalb des Strings. Von daher ist es fraglich dies gleich voraus zu setzen...

[gammatester]

Zitat:

Zitat von Muetze1

Bei seiner Forderung steht nix von 0 Bytes innerhalb des Strings. Von daher ist es fraglich dies gleich voraus zu setzen...

Das ist allerdings ein ziemlich komisches Argument, denn es würde auf alle Zeichen zutreffen. Was klipp und klar da steht ist "die Zeichen" also doch wohl alle.

[Muetze1]

Zitat:

Zitat von gammatester

Zitat:

Zitat von Muetze1

Bei seiner Forderung steht nix von 0 Bytes innerhalb des Strings. Von daher ist es fraglich dies gleich voraus zu setzen...

Das ist allerdings ein ziemlich komisches Argument, denn es würde auf alle Zeichen zutreffen. Was klipp und klar da steht ist "die Zeichen" also doch wohl alle.

Wir können uns noch stundenlang hier die Argumente um die Ohren hauen. Anscheinend stehst du ja drauf. Na dann hier mal ein weiteres von mir: Im normalen Umgang meinen die meisten mit "Zeichen" im Zusammenhang mit Zeichenketten eine Menge von Bytes exklusiv von Steuerzeichen (Ordinalwert < 32). Somit liesse sich eine Forderung erkennen in seinem ersten Beitrag, den meine Lösung erfüllt.

Grundlegend kann auch davon ausgehen, dass ein String seiner Bestimmung Verwendung findet, sprich: nicht als binärer Datencontainer. Aber nun gut, bitte unterbreite mir weitere deiner Argumente...

[gammatester]

Zitat:

Zitat von Muetze1

Wir können uns noch stundenlang hier die Argumente um die Ohren hauen. Anscheinend stehst du ja drauf.
...
Im normalen Umgang meinen die meisten mit "Zeichen" im Zusammenhang mit Zeichenketten eine Menge von Bytes exklusiv von Steuerzeichen (Ordinalwert < 32).

Nein, daruf stehe ich überhaupt nicht. Letztendlich kommt es darauf an, was der TE eigentlich will und was sein String enthält. Wenn Du allerdings weiter diskutieren willst (zB ob auch bei #13 und #10 analog zu #0 das Kopieren beendet werden soll), mach doch einfach einen neuen Thread auf. Vielleicht findet sich wer, der darauf steht.

Festzuhalten bleibt allerdings, daß StrPLCopy eventuell nicht den ganzen String kopiert (und es ist nützlich, wenn man das weiß). Und wie ich schon in #13 geschrieben habe, mag dieses Verhalten ja erwünscht sein.

Schönes Wochenende
Gammatester

[p80286]

Ähm *hust*

ich hätte da noch eine etwas andere Definition von String zu bieten. Der String enthält alle Zeichen, die ich in ihn hineinpacke incl #0,#9,#13,#10 usw.. Und da ich mit Delphi/Pascal programmiere erwarte ich, daß alle Zeichen von S[1] bis S[length(S)] verarbeitet werden.

Wenn eine API-Funktion (#0) einem da einen Strich durch die Rechnung macht, ist das ärgerlich und man sollte darauf vorbereitet sein, daß soetwas passieren könnte.

Es ist also wichtig zu wissen, ob die Daten in einem String interpretiert werden (z.B. Bildschirmausgabe, Ausdruck ) oder ob es sich bei dem String um einen reinen Datenkontainer handelt.
Wobei die Interpretation der enthaltenen Zeichen, ja stark Systemabhängig ist. So wurde unter DOS jedes Zeichen (#0..#255) auf dem Bildschirm dargestellt, während es unmöglich war alle Zeichen auf einem Drucker auszugeben .

Gruß
K-H

[Muetze1]

Zitat:

Zitat von p80286

Und da ich mit Delphi/Pascal programmiere erwarte ich, daß alle Zeichen von S[1] bis S[length(S)] verarbeitet werden.

Und dabei enttäuschen dich schon soviele SysUtils und andere VCL Routinen welche einen string als Parameter nutzen und intern auf PChar casten und damit diese schöne heile Welt deiner Erwartungen zerstören.

Zitat:

Zitat von p80286

Wenn eine API-Funktion (#0) einem da einen Strich durch die Rechnung macht, ...

Welche API Funktion?

Zitat:

Zitat von p80286

... oder ob es sich bei dem String um einen reinen Datenkontainer handelt.

Wofür der String nie gedacht ist - aber durch das interne Design missbraucht werden kann. Aber ein vielfacher Missbrauch wird dadurch natürlich auch wieder legal...

Zitat:

Zitat von p80286

So wurde unter DOS jedes Zeichen (#0..#255) auf dem Bildschirm dargestellt, während es unmöglich war alle Zeichen auf einem Drucker auszugeben .

Ja nee, is klar. Schonmal probiert? Die BIOS String Routinen (INT 10h) haben diese Zeichen nicht interpretiert und ausgegeben. DOS Funktionen (INT 21h) hingegen haben die Steuerzeichen serwohl interpretiert. Ein CR oder LF wurde richtig umgesetzt. Wenn du schon mit solchen Behauptungen herkommst, hol mal dein Assembler und dein 80c286 wieder raus und probier es aus...

[p80286]

Zitat:

Zitat von Muetze1

Und dabei enttäuschen dich schon soviele SysUtils und andere VCL Routinen welche einen string als Parameter nutzen und intern auf PChar casten und damit diese schöne heile Welt deiner Erwartungen zerstören.
.....
Ja nee, is klar. Schonmal probiert? Die BIOS String Routinen (INT 10h) haben diese Zeichen nicht interpretiert und ausgegeben. DOS Funktionen (INT 21h) hingegen haben die Steuerzeichen serwohl interpretiert. Ein CR oder LF wurde richtig umgesetzt. Wenn du schon mit solchen Behauptungen herkommst, hol mal dein Assembler und dein 80c286 wieder raus und probier es aus...

Vorschlag zur Güte:
in einem String sind Zeichen enthalten. Deren Natur ist es, daß sie interpretiert werden (sollten). Nicht umsonst gibt es den Begriff Steuerzeichen.
Und je nachdem welcher Font zur Darstellung/Interpretation benutzt wird werden unterschiedliche Zeichen auch gleich dargestellt, bzw. das gleiche Zeichen (Byte-Wert) wird unterschiedlich dargestellt. Aber man sollte sich bewußt sein, daß Routinen die mit Strings umgehen mal auf Zeichenebene und mal auf Byteebene arbeiten - z.B. beim Sortieren und/oder vergleichen. (Unicode und andere MultiByteZeichensätze lassen wir jetzt erst einmal außen vor)

was den Int10 und Int21 angeht, da muß ich zugeben, daß ich die beiden wann immer es ging umgangen hab' und gleich in den Videospeicher geschrieben hab.
(Aber das ist so alt, das es schon garnicht mehr wahr ist.)

Gruß
K-H

[Sprint]

Delphi-Quellcode:

var
  B: array[0..1023] of Char;
  S: String;

Delphi-Quellcode:

  if Length(B) > Length(S) then
    StrCopy(B, PChar(S));

Reicht völlig.