原貼位置 http://bbs.csdn.net/topics/380148387
不讓回復了,所以開的新貼.
碰到了和原來摟主一樣的問題,后來經過查找,找到了解決的方法.
網上經典的ListView資料快速匯出到EXECL方法提供的是DELPHI7版本的源代碼,經過使用,發現在DELPHI2010中存在,資料匯出亂碼的情況,以下的修改版本代碼就可以解決這個問題.
procedure WriteStringCell(AValue: String);//寫字串資料
var
L: Word;
strAnsi: AnsiString; //新增用于轉成ANSI格式
begin
strAnsi := PAnsiChar(AnsiString(AValue)); //將原始資料轉換成ANSI格式,其他使用AValue的地方均替換一下就可以了.
L := Length(strAnsi);
arXlsString[1] := 8 + L;
arXlsString[2] := Row;
arXlsString[3] := Col;
arXlsString[5] := L;
aFileStream.WriteBuffer(arXlsString, Sizeof(arXlsString));
aFileStream.WriteBuffer(Pointer(strAnsi)^, L);
IncColRow;
end;
strAnsi:= PAnsiChar(AnsiString(str));
如果有誰還有更加不錯的匯出代碼,也請貼出來.謝謝.
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/82130.html
標籤：語言基礎/算法/系統設計