ListView to Excel / Probl. mit Excel 2003 Zeigt Kästchen an

[himitsu]

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;