如何按特定的规格差分字符串

Question

string型的字符串，格式为：aaaa.bbb
a代表字母
b代表数字
怎样才能分别得到a和b？

Answer 1

var s:string;s:='aaaa.bbb';
s[1]就是第一个字符a，s[2]就是第二个字符a，如此类推。

Answer 2

s -> 'aaa.bbb'
s[1]->a
s[pos('.', s)+1]->b

Answer 3

var s,a : string ; 
    b : integer ;
begin  // 从第0个字符开始，到“.”号前一个字符
A ：= Copy(S, 0, Pos('.', S) - 1)；    // 从“.”号后一个字符开始，到最后一个字符, 再用STRTOINT 将它转换成 数字
B ：= StrToInt(Copy(S, Pos('.', cmd) + 1, Length(S))) ；end ;

Answer 4

第二句 ： S ：= ....Pos('.', cmd).....；中的cmd 改成 S ；呵呵 cmd 是我自己程序里定义的