an String anhängen - mal wieder Probleme mit #0

[Martin K]

Hallo,

also ich hänge zwei Strings an einen vorhandenen String an.
s := s + neuerString1 + neuerString2; Soweit so gut, nur sieht z.B. neuerString1 so aus: #6#0#0#0.
Für das Schreiben in eine Datei ist es unbedingt notwendig, dass neuerString1 4 Byte groß ist, aber wenn ich neuerString1 an s anhänge mit dem obigen Quellcode, werden die letzten 3 Bytes abgeschnitten.

Was tun?

[Muetze1]

Sicher das die bytes nicht später bei einem anderen Aufruf abgeschnitten werden?

[SirThornberry]

Die Bytes gehen definitiv wo anders verloren.

[Martin K]

Öhm, nein, es ist schon an der Stelle wie oben der Code, aber habe selbst grade es mit einem String getestet und festgestellt, dass es geht.
In meinem Speziellen Fall funktioniert es aber nicht, wenn neuerString1 wie folgt festgelegt ist:
var neuerString1: array[0..3] of Char;

[Luckie]

Warum nimmst du nicht gleich einen shortstring:
s: String[4];

[Bernhard Geyer]

Zitat von Martin K:

Öhm, nein, es ist schon an der Stelle wie oben der Code, aber habe selbst grade es mit einem String getestet und festgestellt, dass es geht.
In meinem Speziellen Fall funktioniert es aber nicht, wenn neuerString1 wie folgt festgelegt ist:
var neuerString1: array[0..3] of Char;

Damit begiebst du dich auf die Ebene von C-Kompatiblen Strings und dort ist $#00 das Ende des Strings! Und wenn dein Array eingelsen (nach Delphi-String gewandelt) wird, ist auch #$00 das Ende des Strings.

[Martin K]

Zitat von Bernhard Geyer:

Damit begiebst du dich auf die Ebene von C-Kompatiblen Strings und dort ist $#00 das Ende des Strings! Und wenn dein Array eingelsen (nach Delphi-String gewandelt) wird, ist auch #$00 das Ende des Strings.

Schön und gut, aber wie kann ich ein Array of Char an einen String anhängen, ohne dass mir dabei Bytes verloren gehen?

[Muetze1]

Das geht definitiv auch. Getestet mit BDS2006, siehe Anhang (wovon die Turbo's nur eine Ausgliederung sind)

War ein gutes Gegenbeispiel - er schneidet sie genauso ab...

[mkinzler]

Indem du die Steuerzeichen vorher daraus entfernst oder besser eine String nimmst.

[bernau]

Was hier noch gar nicht gefragt wurde:

Mit welcher Funktion schreibst du die Daten in die Datei?

Verwendest du einen TFilestream, oder schreibst du mit "writeln" und Konsorten.