Strings und Ansistrings, Nullterminiert?

[Bernhard Geyer]

Zitat von NickelM:

WideString ist kein Delphi-String? Auch nicht in den neuen Delphi Versionen?

Es ist schon, aber er ist am OleString angelehnt und mit ihm kompatible. Ist eingeführt worden um COM/ActiveX in Delphi zu unterstützen.
Gegenüber dem AnsiString und dem ab D2009 vorhandenen Unicodestring hat er keine Referenzzählung

Zitat von NickelM:

Bei Delphi 5 entspricht WideString einem Delphi 2009+ String, zumindest hat WideString dort 2 Bytes je Zeichen.

Ab D2009+ ist der String ein Unicodestring und hat noch ein paar Features mehr gegenüber einem Widestring.
Im Unicodestring wird auch gespeichert welche Codierung der eigentliche String hat.

[himitsu]

Der WideString ist und war immer "nur" eine Weiterleitung/Kapselung von Funktionen der oleaut32.dll
SysAllocStringLen
SysReAllocStringLen
SysFreeString
SysStringLen

Der UnicodeString ab Delphi 2009 ist dageben genauso aufgebaut, wie der AnsiString.

Das ist der Aufbau des UnicodeString (sowie des AnsiString):
Ab D2009 wurde nur noch das codePage und elemSize eingeführt, für das besch* umgesetzte StringChecking.

Delphi-Quellcode:

StrRec = packed record
  codePage: Word;
  elemSize: Word = SizeOf(WideChar);
  refCnt: Integer;
  length: Integer;
  data: array[0..x] of WideChar;
  null: Char = #0;
end;

Der interne String-Zeiger zeigt auf data[0] oder auf NIL, bei einem Leerstring.

[SyntaxXx]

Es funktioniert einfach nicht,ich kann machen was ich will.
ich habe jetzt so ziemlich alles probiert was nur geht.

Ich bin nochmal alles durch gegangen.

Also:

Meine Funktion "AddString" benötigt also einen nullterminierten String.
Also dachte ich mir, dann muss das Result meiner XOR Verschlüsselung ja ein Ansistring sein.

Also habe ich einfach das Result der XOR Funktion als Ansistring deklariert, aber immernoch der gleiche Fehler.

Jetzt weiß ich wirklich nicht weiter.
Es ist doch alles so, wie es zu sein hat oder nicht?

[Luckie]

Kann es sein, dass der Fehler in deinem Verschlüsselungscode liegt?

[SyntaxXx]

Code:

function DoXOr(Buffer :string; Key : integer) : ansistring;
var
  i,c,x  :Integer;
begin
  for i := 1 to Length(Buffer) do
  begin
    c := Integer(Buffer[i]);
    x := c xor Key;
    Result := Result + Char(x);
  end;

end;

Buffer ist mein String und Key ist der Verschlüsselungsinteger, welchen bei mir 15 ist.

[NickelM]

Versuch mal stat Char, AnsiChar. Sollte eigentlich kein Unterschied machen, da Delphi soviel ich weis es umcasten müsste.

[implementation]

Und versuch mal Byte statt Integer.