Delphi单元文件之-简体繁体互转

转载 2011年01月10日 15:04:00

Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体}
Var
  len:integer;
  pGBCHTChar: PChar;
  pGBCHSChar: PChar;
Begin
  pGBCHTChar := PChar(GBStr);
  Len := SizeOf(pGBCHTChar);
  GetMem(pGBCHSChar, Len  + 1);
  ZeroMemory(pGBCHSChar, Len  + 1);

  //GB CHS -> GB CHT
  LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, 2147483647 );

  Result := String(pGBCHSChar);
  FreeMem(pGBCHSChar);
End;

//----------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := GBCht2Chs( Memo1.Text );
end;


unit BIG5TOGB;
interface

uses
Windows;

function GBCht2Chs(GBStr: string): AnsiString;
function GBChs2Cht(GBStr: string): AnsiString;

implementation

function GBCht2Chs(GBStr: string): AnsiString;
{进行GBK繁体转简体}
var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
begin
pGBCHTChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHTChar, -1, nil, 0);
GetMem(pGBCHSChar, Len * 2 + 1);
ZeroMemory(pGBCHSChar, Len * 2 + 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2);
result := string(pGBCHSChar);
//FreeMem(pGBCHTChar);
FreeMem(pGBCHSChar);
end;

function GBChs2Cht(GBStr: string): AnsiString;
{进行GBK简体转繁体}
var
Len: integer;
pGBCHTChar: PChar;
pGBCHSChar: PChar;
begin
pGBCHSChar := PChar(GBStr);
Len := MultiByteToWideChar(936, 0, pGBCHSChar, -1, nil, 0);
GetMem(pGBCHTChar, Len * 2 + 1);
ZeroMemory(pGBCHTChar, Len * 2 + 1);
//GB CHS -> GB CHT
LCMapString($804, LCMAP_TRADITIONAL_CHINESE, pGBCHSChar, -1, pGBCHTChar, Len * 2);
result := string(pGBCHTChar);
FreeMem(pGBCHTChar);
//FreeMem(pGBCHSChar);
end;
end.

Delphi 简体-繁体 转换函数

简体转繁体 function GB2Big(GB: string): string; var Len: Integer; begin Len := Length(GB); SetLength(Res...
  • yoie01
  • yoie01
  • 2015年08月13日 14:01
  • 769

Delphi汉字简繁体转换代码

//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses   Classes, Windows; type   T...
  • ttpage
  • ttpage
  • 2013年06月24日 13:55
  • 1239

中文简繁互转的三种方法

汉字处理是我们广大程序员所面对的中国特色问题之一,都是用汉语,干嘛非要整个简体繁体,我只能心里暗骂,该死的政治。没办法,抱怨归抱怨,问题还是要解决。本文主要是总结几种现有的中文简繁互转方法,内容大部分...
  • hero_yin
  • hero_yin
  • 2010年08月04日 14:42
  • 4059

在Linux下对文件进行编码转换(简体→繁体,繁体→简体,简体繁体→UTF-8)

 其实说到编码转换,那就不得不说到iconv这个库了,如果已经安装了这个工具,那在命令行下直接打这个命令就行了。下面就用这个工具来实现中文系统下的常用编码转换。 首先,来了解一下iconv这个命令的使...
  • xxtliu
  • xxtliu
  • 2007年06月19日 12:33
  • 3253

使用nodejs读取简体语言json文件并生成繁体语言json文件

有时需要为项目准备不同语言的文件供用户选择,简体和繁体算是常见的需求了。比如我们有如下的简体中文文件:{ "hello":"你好", "业务":"业务" }value值为我们最终要显示...
  • u014291497
  • u014291497
  • 2016年09月26日 14:06
  • 1213

使用PHP实现繁体与简体互转

/**** 繁体简体 ****//**  码表的取得:    http://netcity.hinet.net/kstchieh/table.zip  包中有两个文件:big5-gb.table,gb...
  • bjbs_270
  • bjbs_270
  • 2004年11月03日 17:23
  • 1277

更好的一个简繁体转换。记录一下

/** * */ package cn.com.tiros.common.util; /** * @author Steven * */ //import gnu....
  • city_x
  • city_x
  • 2011年06月01日 10:50
  • 2107

一套Eclipse可同时切换中文(简体,繁体),英文

1. 首先安裝完语言包(下载页面: http://download.eclipse.org/eclipse/downloads/drops/L-3.2.1_Language_Packs-2006092...
  • qjyong
  • qjyong
  • 2006年11月28日 21:25
  • 3416

简体中文与繁体中文互转

一. BIG5编码, GB编码(GB2312, GBK, ...), Unicode编码, UTF编码 1.1. BIG5编码 BIG5字集是台湾繁体字集,共包括国标繁体汉字13053个 ...
  • cay22
  • cay22
  • 2014年12月31日 16:39
  • 3020

项目国际化时,中文简体转繁体的自动化方案

最近笔者所在的项目(该项目已经开发长达5年)要实现国际化。一想便知,大部分工作则是抽取简体中文资源文件,并再拷贝一份繁体中文的资源文件。 为了极大限度的减少重复劳动,同事们可谓八仙过海,各显神通...
  • u011453631
  • u011453631
  • 2014年11月17日 16:07
  • 3068
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi单元文件之-简体繁体互转
举报原因:
原因补充:

(最多只允许输入30个字)