Ord('我') = 25105,但怎样将 25105 转换为汉字 '我' 呢？ (50分)

谢谢

唉！不是刚刚结束吗？怎么又来了？是不是上一次的不行啊？chr

chr 不行。

gz<br>

需要做一下类型转换，现在手头没有delphi，你看一下chr和ord的参数和返回值的说明就行了。

字母的就可以

UP

up

这个关注.

把‘我‘当成一个字符串<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; I : Integer;<br>&nbsp; str : string;<br>&nbsp; Value : Integer;<br>&nbsp; strv : string;<br>begin<br>&nbsp; str := '我';<br>&nbsp; strv := '';<br>&nbsp; for I := 1 to Length(str) do<br>&nbsp; begin<br>&nbsp; &nbsp; Value := Ord(str);<br>&nbsp; &nbsp; strv := strv + Chr(Value);<br>&nbsp; end;<br>&nbsp; button1.Caption := strv;<br>end;

同意楼上

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>c:WideChar;<br>begin<br>&nbsp;c:=#25105;<br>&nbsp;showmessage(c) &nbsp; &nbsp;;<br>end;

widechar(#25105)试下

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>c:WideChar;<br>begin<br>// c:=#25105;<br>c:=WideChar(25105);<br>&nbsp;showmessage(c) &nbsp; &nbsp;;<br>end;

ok

Ord(&amp;apos;我&amp;apos = 25105<br><br>chr(25015 div 256)+chr(25015 mod 256)

//函数名字：Intstostrs<br>//功能：把数字集合转化为字体<br>//参数：str---字符串数字集合 &nbsp;(180 175 56)<br>//返回：转换后的字符串<br>//例如: Intstostrs('196 227 32 186 195 33 53 32 54 32 44 55') =&gt;'你 好!5 6 ,7'<br>//******************************************************************************<br>Function TForm1.Intstostrs(str :string) : string;<br>begin<br>&nbsp; While Pos(' ',str)&gt;1 do<br>&nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; Result := Result + Chr(strtoint(Copy(str,1,Pos(' ',str)-1)));<br>&nbsp; &nbsp; &nbsp; &nbsp; Delete(str,1,Pos(' ',str));<br>&nbsp; &nbsp; &nbsp; end;<br>&nbsp; Result := Result + Chr(strtoint(str));<br>end;<br><br>//******************************************************************************<br>//函数名字：StrsToInts<br>//功能：把字符串转化为数字集合<br>//参数：str---字符串 ('你 好!5 6 ,7')<br>//返回：转换后的字符串<br>//例如: StrsToInts('你 好!5 6 ,7')=&gt;'196 227 32 186 195 33 53 32 54 32 44 55')<br>//******************************************************************************<br>Function TForm1.StrsToInts(str : string) : string;<br>var<br>&nbsp; I:Integer;<br>begin<br>&nbsp; for I := 1 to Length(str) do<br>&nbsp; &nbsp; &nbsp; Result :=Result+' '+inttostr(Ord(str));<br>&nbsp; Result := Trim(Result);<br>end;