Funktionsweise von SetLength

[Delphi-Laie]

Ich benötigte die Setlength-Prozedur für Strings noch nie. Welchen Sinn soll das haben, an der Stringlänge explizit "herumzumachen", wenn/zumal/weil die Stringlänge doch automatisch bei Stringadditionen angepaßt wird?

In der Delphi(3.0)-Hilfe steht dazu folgends:

"Bei einem langen String weist SetLength den mit S angegebenen String mit der neuen Länge erneut zu. Dabei bleiben die im String gespeicherten Zeichen erhalten, jedoch ist der Inhalt des neu zugewiesenen Speicherbereichs nicht definiert."

Also, die ominösen "2NULC" sind demnach wohl "Speicherleichen" und wurden von einem anderen Programm vorher benutzt oder sind (reiner?!) Zufall.

[rollstuhlfahrer]

Ich möchte an dieser Stelle mal sehr vom Thema abweichen:

Von der Sicherheit her, würde ich empfehlen, was vorhandenes zu nehmen (ala AES, Blowfish, Twofish, ...). Für diese Algorithmen gibt es in fast allen Sprachen (Delphi, C, PHP, auch JS) entsprechende Implementierungen, die zueinander kompatibel sind.

Noch was zu PHP: Arrays haben dort keine feste Länge, weshalb es auch keine Funktion wie SetLength() gibt.

Bernhard

[stb2050]

@rollstuhlfahrer: Grundsätzlich hast Du Recht - leider ist die Delphi-Verschlüsselung in dem Programm, dessen Daten ich mit PHP entschlüsseln musst, fest enthalten und ich kann nicht davon abweichen.

@sirius: Soweit habe ich das verstanden, ich glaube das mit den Zahlen ist auch nicht das Problem.

Ich vermute, dass mein Unverständnis an der Delphi-Funktion move begründet ist.

Code:

var
  dest : AnsiString;
  source: LongInt;

begin

 source := 9491535;
 dest   :='';

 SetLength(dest, 3);
 Move(source, dest[1], 3);

 Writeln(source);
 Writeln(dest);

end.

Kann mir jemand erklären, warum dest als Ergebnis OÔ� (drittes Zeichen: CR) ist. Eigentlich sollten ja nur die ersten 3 Zeichen von source in dest kopiert werden. Findet hier irgendwo eine Umkonvertierung statt?

Liebe Grüße,
Steffen

[sirius]

Dein Zahl "9491535" schreiben wir mal kurz um in Hex:
00 90 D4 4F
oder als Little Endian
4F D4 90 00

Das da oben steht also im Speicher. mit mov werden die ersten 3 Bytes (also: 4F D4 90) in den String kopiert. Wenn du das jetzt ausgibst, werden die Bytes als ZEichen interpretiert, und jetzt schau mal in eine handelsübliche ASCII/ANSI-Tabelle mit Cp1252.
4F = O
D4 = Ô
90 = É

[himitsu]

Tja, in PHP werden Strings eben initialisiert.
Das geschieht in Delphi nicht, aus performancegründen, denn wenn man SetLength verwendet, sollte man danach auch die reservierten Dinge initialisieren, bzw. gleich mit den gewünschten Werten füllen und bei Letzerem wäre eine vorherige automatische Initialisierung nur unnötiger Overhead.

Und wenn jemand es eben nichts befüllt/initialisiert, dann soll man sich auch nicht wundern, wenn etwas unerwartetes darin erscheint.
Genauso wie bei nichtinitialisierten lokalen Variablen.


Wenn man das SetLenght hoch genug wählt, dann kann ich euch garantieren, was sich in dem String befinden wird.

Bei kurzen Strings und wird ein Speicherblock vom Delphi-Memory-Manager verwendet und jenachdem ob und für was dieser Speicherblock vorher verwendet wurde, befindet sich doch auch schon "irgendwas" drin.

Wird der String aber größer, als der größte verwaltete Block des MM, wird direkt bei Windows ein Speicherbereich extra für diesen String bestellt und da Windows sowas immer mit 0 initialisiert, wird der String auch auch nur vielen #0 bestehen.


PS: DupeString und StringOfChar

[stb2050]

Danke für die Hilfe - habe es nun hinbekommen, der Hinweis von sirius hat zum Durchbruch verholfen

Liebe Grüße,
Steffen