** VB ＝》Delphi 的代码转换？？ **

Question

AscB在Delphi中无对应的函数吧！？
function Asc(str: string): integer;
begin
  Result := ord(str[1]);
end;//大概就是这样
ChrB对应chr()函数
MidB也无对应函数吧！？
/*function Mid to get a substring from the start position by specify
length, and return the substring*/
char* Mid(const char*,                 /*source string*/
 register int,            /*start position*/
 register int                 /*substring length*/
         );
/* Mid()  */
char* Mid(source, startpos, sublen)
  const char* source;
register int startpos;
register int sublen ;
{
register int i;
  char* substr = (char*)malloc(sizeof(char*)*(sublen+1)); startpos--;
sublen += startpos;  if (source==NULL)
    return (NULL);
  else{
if ( (startpos<0)||(startpos>strlen(source)) ){
      substr[0] = '\0';
return (substr);
    }/*IF*/    if (sublen<=0){
if (sublen==-1)
return (&source[startpos]);
else{
substr[0] = '\0';
return (substr);
}/*IF*/
}else{
      if (sublen>=(strlen(source)-startpos))
return (&source[startpos]);
    }/*IF*/
  }/*IF*/  for(i=startpos;i<sublen;i++)
substr[i-startpos] = source[i];
  substr[sublen] = '\0'; return (substr);
}/*MID*不好意思，这段C代码是在UltraEdit里写的，贴到这儿不只怎么就成这样了。
你自己整理一下吧！

Answer 1

谢谢TommyTong(童童)，但是可能你没有明白我的意思，在Delphi中我知道VB中Asc，Mid, Chr等函数的Delphi写法（用delphi的函数或自己写代码），但VB中AscB，MidB, ChrB是一组不同的函数，我无论怎样也得不到与其相同的结果（对中文字符）