简繁体转换(100分)

W

we

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #1

请问如何编程实现将简体文件转换成繁体
请大家快快帮忙！
有大大的分值奉送

 

W

weihang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #2

其实txt保存的并不是汉字而是0x0000之类,代表什么字就在于汉字系统的转换,
可以写循环这些数(范围忘乐),用magicwin转换,看看就知道对应,(有更好编程
方法,忘了,回头抄给你.),然后就可以用建一个简繁对照数据库,用它转换乐.

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #3

找个命令行的转换程序（比如ucdos带的）， WinExec 那个程序就可以了

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #4

深度历险有此类控件 http://delphi32.sonic.net.cn的中文环境相关构件（http://delphi32.sonic.net.cn/delphigb/AAAT102A.HTM）
或者留下Email地址我mail给你

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #5

如果是简繁体转换，而不是GB<->Big5转换的话，
我也要一个。

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-30

• #6

Sorry ,刚才没看清题。

 

悲

悲酥清风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-31

• #7

有控件可实现，不知满意否？

 

S

sunstone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-31

• #8

GB<->Big5如何转换?

 

V

Victortim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-31

• #9

GB<->Big5转换的控件较多，在我上面给出的网址上就有，一般方法都是查表

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-07

• #10

接受答案了.

 

H

hslcb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-12

• #11

请问此控件在哪里找？能Email给我

 

S

sanming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-04

• #12

怎么我看不到恢复？

 

D

drinven

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-07

• #13

function SetGB23ToBIG5(frmForm: TForm): Boolean;
function GB_or_BIG5(sValue: string;
lGB: Integer): string;
begin
if lGB = 1 then
Result := GBtoBIG5(sValue)
else
Result := BIG5toGB(sValue);
end;
var
i, j: Integer;
begin
if lGB23_BIG5 = 1 then
with frmFormdo
begin
for i := 0 to ComponentCount - 1do
begin
if (Components is TSeSkinLabel) then
TSeSkinLabel(Components).Caption :=
GB_or_BIG5(TSeSkinLabel(Components).Caption, lGB23_BIG5)
else
if (Components is TSeSkinButton) then
TSeSkinButton(Components).Caption :=
GB_or_BIG5(TSeSkinButton(Components).Caption, lGB23_BIG5)
else
if (Components is TSeSkinCheckBox) then
TSeSkinCheckBox(Components).Caption :=
GB_or_BIG5(TSeSkinCheckBox(Components).Caption, lGB23_BIG5)
else
if (Components is TSeSkinGroupBox) then
TSeSkinGroupBox(Components).Caption :=
GB_or_BIG5(TSeSkinGroupBox(Components).Caption, lGB23_BIG5)
else
if (Components is TSeSkinRadioButton) then
TSeSkinRadioButton(Components).Caption :=
GB_or_BIG5(TSeSkinRadioButton(Components).Caption, lGB23_BIG5)
else
if (Components is TSeSkinPanel) then
TSeSkinPanel(Components).Caption :=
GB_or_BIG5(TSeSkinPanel(Components).Caption, lGB23_BIG5)
else
if (Components is TdxBarSubItem) then
TdxBarSubItem(Components).Caption :=
GB_or_BIG5(TdxBarSubItem(Components).Caption, lGB23_BIG5)
else
if (Components is TdxBarButton) then
TdxBarButton(Components).Caption :=
GB_or_BIG5(TdxBarButton(Components).Caption, lGB23_BIG5)
else
if (Components is TTabSheet) then
TTabSheet(Components).Caption :=
GB_or_BIG5(TTabSheet(Components).Caption, lGB23_BIG5)
else
if (Components is TSeCustomTabSheet) then
TSeCustomTabSheet(Components).Caption :=
GB_or_BIG5(TSeCustomTabSheet(Components).Caption, lGB23_BIG5)
else
if (Components is TdxTreeList) or (Components is
TdxDBTreeList) or (Components is TdxDBGrid) then
begin
for j := 0 to TdxTreeList(Components).Bands.Count - 1do
TdxTreeList(Components).Bands.Items[j].Caption :=
GB_or_BIG5(TdxTreeList(Components).Bands.Items[j].Caption,
lGB23_BIG5);
for j := 0 to TdxTreeList(Components).ColumnCount - 1do
TdxTreeList(Components).Columns[j].Caption :=
GB_or_BIG5(TdxTreeList(Components).Columns[j].Caption,
lGB23_BIG5);
end;
end;
end;
Result := True;
end;

==========================================================

 

F

fastupcph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-26

• #14

能不能给我一个简繁转换的控件啊！！[8D]