Diverse Probleme mit Strings, SetLength und SizeOf

[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

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 von a.def:

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.

[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.