怎么处理字符串 在线等

Question

如 'abcdefjdkfjdksksajflasf'  我想统计这个字符串中后有字符的asicc 码 求函数

Answer 1

找到了 system('abcd',1,1);
程序返回  'a' ,

Answer 2

var
  ch:char;
vTmp:='sdfjsdfkjsadkf';
if pos('a',vTmp)>0
then ch:=vTmp[pos('a',vTmp)]

Answer 3

procedure getasicc(str:string);
var
buf1: array of char;
buf2:arry of integer;
i,strLen:integer;
str1:string;
begin
      str1:=Trim(str);
      StrLen:=Length(str1);
      SetLength(buf,StrLen);
      for i:=1 to StrLen do  //将string字符串转换成字符数组
          buf1[i-1]:=Str[i];      for i:=0 to length(buf1)-1 do //buf2存储buf1所对应的ASICC码
          buf2[i]:=ord(buf1[i]);
end;
这段代码可以将'a'从字符串中分离出来

Answer 4

abc:='1234567';
mychar:=copy(abc,2,1);那么mychar结果为2;

Answer 5

var
  mystr:string;
begin
  mystr:='sb';
  showmessage(mystr[1]);
end;