数据类型问题[简单系列]

Question

ord(pchar(MidSTR(abc, i, 1)))abc：string请各位帮忙弄一下

Answer 1

我是想从字符串里取出一个字符
找出它的asc码
请帮忙

Answer 2

首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas功能 返回字符串AText从AStart开始的ACount个字符说明 其实就是Copy参考 function System.Copy例子 Edit3.Text := MidStr(Edit1.Text,i, SpinEdit2.Value);

Answer 3

你想干什么？不是都已经转换了吗？逐个取字符串的ascII码。

Answer 4

MidSTR(abc, i, 1)))
没用错呀

Answer 5

这是缘吗
Function ASCTOSTR( abc:String):String ;
 var  i:Integer;
  rLen:Integer ;
begin
  ASCTOSTR:= '' ;
  rLen := Length(abc) ;  For i:= 1 To rLen  do
   rLen:=ord((abc[i]));
  ASCTOSTR := ASCTOSTR+HEXTOSTR(Hex(ord(pchar(MidSTR(abc, i, 1))))) ;
End;