如何从区位码到汉字，再有汉字到区位码(100分)

M

mylovegirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #1

从下位机得到区位码，如何让它以汉字来显示
输入的汉字又如何变换成区位码，可以传给下位机

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #2

看不懂!你在說什麼?

 

L

liuxudong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #3

区位码有函数,自己查一下,我见过

 

死

死水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #4

procedure TForm1.Button2Click(Sender: TObject);
const s='吗';
var str:string;
begin
label1.Caption:=inttostr(ord(s[1]))+','+inttostr(ord(s[2]));
SetLength(Str,2);
Str[1]:=Chr(194);
Str[2]:=Chr(240);
label2.caption:=Str;
end;

 

M

mylovegirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #5

乭TO 死水
应该是这样，不过你表示的好象不是区位码，是不是汉字内码的形式

 

L

lmcui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #6

这个函数就可以，但是有一些GB2312之外的字就不行了
function GetHZCode(vHZ: string): string;
//vHZ：一个汉字
//返回区位码字符串,GB2312中没有的字返回0000
var
QM, WM: Integer;
tStr: string;
begin
tStr := '';
QM := Ord(vHZ[1])-160;
WM := Ord(vHZ[2])-160;
if (QM<0) or (WM<0) then
begin
QM := 0;
WM := 0;
end;

if QM<10 then
tStr := '0'+IntToStr(QM)
else
tStr := IntToStr(QM);
if WM<10 then
tStr := tStr+'0'+IntToStr(WM)
else
tStr := tStr+IntToStr(WM);

GetHZCode := tStr;
end;

 

M

mylovegirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #7

如果是汉字字符串又该怎么办

 

C

catbrother

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #8

你在用PLC吗？

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #9

汉字字符串:
砍开成单个字啊， 这也要说吗？