Stichwort
Unicode (2-Byte-Zeichen) ... seit Delphi 2009 wurde Delphi auf
Unicode umgestellt.
Und wenn die Schnittstelle
ANSI ist, dann wirst du nun auch explizit
ANSI (AnsiString, AnsiChar usw.) verwenden müssen.
Delphi-Quellcode:
procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word; const AValue: AnsiString);
var
L: Word;
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := ARow;
CXlsLabel[3] := ACol;
CXlsLabel[5] := L;
XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
XlsStream.WriteBuffer(AValue[1], L);
end;