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