TMemoryStream fehler

[himitsu]

ersetze einfach überall string durch AnsiString und es läuft wieder (allerdings dann natürlich nicht als Unicode)

PS: D2009 String = UnicodeString und nicht WideString

Wenn es Unicode werden soll dann entweder alles auf UnicodeString ändern oder WideString, wenn der Code weiterhin kompatibel zu älteren Delphi-Versionen bleiben soll
und natürlich
WriteBuffer(s[1], len * 2); // + WideString oder UnicodeString oder es als string belassen und dann
WriteBuffer(s[1], len * SizeOf(Char)); bei WideString ist der Format im Stream dann immer in Unicode,
bei AnsiString dann immer ANSI

und bei String abhängig vom Compiler


PSS: ist auh ganz frisch und akuell in Zeile 3 zu finden
Forum: Tutorials und Kurse > Strings lesen und speichern (via Stream und Co.)