Diverse Probleme mit Strings, SetLength und SizeOf

[a.def]

In einem anderen Thread habe ich es nun endlich geschafft mein Vorhaben zu verwirklichen.
Dazu verwende ich, wie empfohlen, TFileStream und füge einer Datei am Ende 32 Zeichen hinzu.

Ich lese sie dann so wieder aus

Delphi-Quellcode:

  aFileStream.Position := 0;
  SetLength(s, aFileStream.Size - (32 * SizeOf(Char)));
  aFileStream.Read(s[1], Length(s));

Die auszulesende Zeichenkette ist 32 Zeichen lang. SizeOf(Char) gibt aber 2 und 2*32 ist 64. Wieso funktioniert das trotzdem?
Wenn ich 16*SizeOf(Char) verwende funktioniert es nicht mehr und es kommt Chinesisch als Ergebnis.

Mein Zweites Problem besteht darin, dass ich gerne alle X Zeichen ein neues Zeichen in meinen String einfügen möchte. Wie geht man das am besten an?

[nahpets]

Hingedaddelt:

Delphi-Quellcode:

function InsertZeichen(sZeichenfolge : String; chZeichen : Char; iPosition : Integer) : String;
var
  i : Integer;
begin
  Result := '';
  for i := 1 to Length(sZeichenfolge) do begin
    if i mod iPosition  = 0 then Result := Result + chZeichen;
    Result := Result + Copy(sZeichenfolge,i,1);
    // oder
    Result := Result + sZeichenFolge[i];
  end;
end;

[a.def]

An mod hab ich noch gar nicht gedacht, auch eine gute Idee Danke :thumb:

Eine letzte Frage bestünde darin, warum mein TFileStream.Write denn eigentlich nach jedem Zeichen ein NUL-Zeichen speichert

Delphi-Quellcode:

s := '7215EE9C7D9DC229D2921A40E899EC5F';
aFileStream.Position := aFileStream.Size;
aFileStream.Write(s[1], Length(s) * SizeOf(Char));

[Olli73]

Zitat:

Zitat von a.def (Beitrag 1369627)

Eine letzte Frage bestünde darin, warum mein TFileStream.Write denn eigentlich nach jedem Zeichen ein NUL-Zeichen speichert

Unicode?

[a.def]

Ich kenne mich mit dem Hin und Her in der Zeichenwelt leider kein bisschen aus.
Kannst du bitte erklären was du meinst?

[nahpets]

Ein Char ist (wie Du feststelltest) zwei Byte groß.

Die 0 plus eine Wert in der Größe von einem Byte.

Im Unicode belegt jedes Zeichen halt zwei Byte.

Bei Ansi und Ascii ist ein Char ein Byte groß.

Wühl dich mal durch diese Seite: Unicode-Tabelle

Dort kannst Du sehen, wann ein Char 'ne 0 plus ein Zeichen ist und wann zwei Zeichen.

[bepe]

Zitat:

Zitat von a.def (Beitrag 1369622)

Die auszulesende Zeichenkette ist 32 Zeichen lang. SizeOf(Char) gibt aber 2 und 2*32 ist 64. Wieso funktioniert das trotzdem?
Wenn ich 16*SizeOf(Char) verwende funktioniert es nicht mehr und es kommt Chinesisch als Ergebnis.

Zitat:

Zitat von a.def (Beitrag 1369627)

Eine letzte Frage bestünde darin, warum mein TFileStream.Write denn eigentlich nach jedem Zeichen ein NUL-Zeichen speichert

Der Standardstring ist UTF16 codiert. Also pro Zeichen 2 Byte, bei 32 Zeichen sind das 64 Byte. Da du keine "Sonderzeichen" verwendest, wird das zweite Byte nicht benötigt (daher NUL).

Du hast zwei Möglichkeiten:

- Arbeite dich ins Thema ein, sonst hast du keine Freude beim Lesen und Schreiben von Texten.
- Verzichte auf Unicode. Benutze nur AnsiString und AnsiChar und hoffe auf das Beste.

Wegen dem roten Kasten:
Bei Unicode kann ein Zeichen zwei Byte belegen, muss aber nicht. Das ist abhängig von der Kodierung.

[a.def]

Mhh in etwa so?

Delphi-Quellcode:

var
 s: AnsiString;
begin
 s := AnsiString(MachWas(Trim(String(s))));
 aFileStream.Write(s[1], Length(s) * SizeOf(Byte));

und

Delphi-Quellcode:

var
 s: AnsiString;
begin
 SetLength(s, aFileStream.Size - (32 * SizeOf(Byte)));
 aFileStream.Read(s[1], Length(s));
 s := AnsiString(MachWas(Trim(String(s))));

Ist dieses wilde rum-gecaste erlaubt, um die blöden Compiler-Warnungen wegzubekommen? Gespeichert und geladen wird korrekt.

[Bernhard Geyer]

Oder mach es wie empfohlen: Verwende keine Strings. Du hast Binärdaten. Hier sollte man nicht versuchen diese in irgendwelchen String-Variablen zu speichern um damit irgendwelche binären Operationen zu machen.

[a.def]

Zitat:

Verwende keine Strings.

Was sollte man denn sonst verwenden wenn keine Strings?

Ganz am Ende der Geschichte vergleiche ich dann aber trotzdem 2 Strings.