请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 2657|回复: 2

lazarus向excel写中文出现乱码的解决办法

[复制链接]

该用户从未签到

发表于 2015-10-26 20:15:18 | 显示全部楼层 |阅读模式


unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComObj;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
Var
  XLApp: OLEVariant;
  Sheet1: Variant;
  s: WideString;
begin
  XLApp := CreateOleObject('Excel.Application'); // requires comobj in uses
  XLApp.Visible := true;
  XLApp.WorkBooks.Add;
  Sheet1 := XLApp.workBooks[1].WorkSheets[1];
  s := UTF8Decode('中国');
  Sheet1.Cells[8, 8].Value := s;
end;
end.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

该用户从未签到

发表于 2015-10-27 16:02:17 | 显示全部楼层
从stringgrid导出EXCEL,我是这样用:
s1:=Cells[iCount, jCount];      
Sheet.Cells[jCount+1, iCount+1]:=WideString(utf8toansi(s1));            
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-10-27 16:23:01 | 显示全部楼层
谢谢分享
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2021-6-22 06:30 , Processed in 0.051863 second(s), 25 queries .

Powered by Discuz! F1.0 Build 20160930

© 2001-2021 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表