Es lebe
Unicode ... der Code war noch aus Zeiten von vor 2009
Hab's nicht getestet, aber ich denke mal so müsste es aussehn:
Delphi-Quellcode:
{ 604 OneInstance.pas }
SetString(S, PChar(lpData), cbData div 2);
cbData:= StrLen(lpData) * 2;
Delphi-Quellcode:
{ 149 OneInst.pas }
cbData := cbData * 2;
Result := GetMemory(cbData);
Bzw. wenn man es ganz genau nimmt, dann statt
2
besser ein
SizeOf(Char)
.
Aber 100% richtiger wäre es, wenn man den Code "richtig" fest auf UnicodeString/WideString, PWideChar und 2 umstellt, anstatt String, PChar und SizeOf(Char).