Strings und Ansistrings, Nullterminiert?

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

[SyntaxXx]

Also es geht immer noch nicht, auch nach den Änderungen.

Doch jetzt hae ich spaßeshalber einfach mal die XOr Verschlüsselung weg gelassen und siehe da, es funktioniert alles.
Ich muss nicht einmal AnsiString benutzen, selbst mit nem "normalen" String geht es wunderbar.

Bedeutet also, dass irgendwas mit der XOr funktion nicht stimmt.