给你一个字符串s :string ,我要得到该字符串的第二个字符怎么办！

Question

var
s:string;
t:string;
begin
s:='awfi';
t:=copy(s,2,1);
end;

Answer 1

var
lc_str:string;  //处理前的字符串
lc_getchar:char;    //得到的一个字符
begin
lc_str:='yourstrings';
lc_getchar:=copy(lc_str,2,1);
end;

Answer 2

Var t:char;
begin
  t:= s[2];
end;或Var t:String;
begin
   t:= s[2];
end;

Answer 3

var
  s: string;
  c: char;
begin
  s:='qwertyuiop';
  c:=s[2];
end;

Answer 4

var c:chr;
    s:AnsiString;
    s:='avcdd';
    c=s[2];

Answer 5

copy (s,2,1)
very 简单

Answer 6

在Delphi中，string分AnsiString和WideString