给你一个字符串s :string ,我要得到该字符串的第二个字符怎么办！
给你一个字符串s :string ,我要得到该字符串的第二个字符怎么办！ 问题点数：20、回复次数：13Top
1 楼My_first（小@_@小）回复于 2002-04-03 15:30:22 得分 20
var
s:string;
t:string;
begin
s:='awfi';
t:=copy(s,2,1);
end;Top
2 楼quark（夸克）回复于 2002-04-03 15:43:45 得分 0
copy(s,2,1);
Top
3 楼IUPRG（给我点一首周截棍的“双杰伦”）回复于 2002-04-03 15:50:21 得分 0
var
lc_str:string; //处理前的字符串
lc_getchar:char; //得到的一个字符
begin
lc_str:='yourstrings';
lc_getchar:=copy(lc_str,2,1);
end;
Top
4 楼Rainsea（飞龙在天）回复于 2002-04-03 15:55:20 得分 0
他们说得都对！Top
5 楼sywxy（学习DELPHI）回复于 2002-04-03 15:57:11 得分 0
showmessage(s[2])Top
6 楼tata1（tata1）回复于 2002-04-03 15:57:52 得分 0
Var t:char;
begin
t:= s[2];
end;
或
Var t:String;
begin
t:= s[2];
end;
Top
7 楼sywxy（学习DELPHI）回复于 2002-04-03 15:58:21 得分 0
showmessage(s[2]);Top
8 楼llidch2001（废石头）回复于 2002-04-03 16:00:25 得分 0
var
s: string;
c: char;
begin
s:='qwertyuiop';
c:=s[2];
end;Top
9 楼BCB（天下三分明月夜,二分无赖是扬州）回复于 2002-04-03 16:01:56 得分 0
var c:chr;
s:AnsiString;
s:='avcdd';
c=s[2];
Top
10 楼colacoca（我是一瓶倒过来的可口可乐）回复于 2002-04-03 16:02:57 得分 0
s[2]Top
11 楼Afei1（阿飞1）回复于 2002-04-03 16:15:54 得分 0
copy (s,2,1)
very 简单Top
12 楼ouyang75928（Thinking in Pascal）回复于 2002-04-03 22:35:28 得分 0
在Delphi中，string分AnsiString和WideStringTop
13 楼shangshang（大雪有痕）回复于 2002-04-04 13:43:00 得分 0
s[2]Top
14 楼newwen（玩一会儿）回复于 2002-04-04 13:49:56 得分 0
s[2]Top
