*******两个delphi函数

Question

var str:String;
var C:Char;
begin
   Str:='abc';
   C:=Str[1];//从1到3都可以
   ShowMessage(inttostr(Ord(C)));//ascii
end;
ascii--->char用chr(65)='a';

Answer 1

str2:=copy(str1,7,2);//str1要查找的字符串；7，起始位置；2，所取字符长度
 例如
STR1=iuytrhtghfghfg;
str2=tg             

Answer 2

var
s:string
c:char
begin
  s:= 'dsfsdafs';
  for i := 1 to length(s) do
  begin
    c := s[i]; //c就是字符串的字符
  end; 
end;