一个字符串的操作问题?

Question

我想从字符串'a2000,a2003'中分别取出a2000和a2003,怎么做？

Answer 1

str1 := copy('a2000,a2003', 1, 5); //a2000
str2 := copy('a2000,a2003', 7, 5); //a2003或者使用delete等函数，

Answer 2

var p:integer;
    s1,s2:string;s:='a2000,a2003';pos(',',s);s1:=copy(s,1,p-1);
s2:=copy(s,p+1,length(s)-p);

Answer 3

var
   str1,str2:string;
   x:integer;
   TT:string;
begin
    TT:='2000,a2003';
    x:=pos(TT,',');
    str1:=copy(tt,0,x-1);
    str2:=copy(tt,x+1,length(TT));

Answer 4

上面
p:=pos(',',s);忘了。不好意思

Answer 5

procedure getStrings(const s0:string;var s1,s2:string);
var
  k:integer;
begin
k:=pos(',',s0);
s1:=copy(s0,1,k-1);
s2:=copy(s0,k+1,length(s0));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  a1,a2:string;
begin
getstrings('a2000,a2003',a1,a2);
label1.caption:=a1;
label2.caption:=a2;
end;

Answer 6

CString的mid(...),left(...),right(...)成员函数很好用的。

Answer 7

字符串的操作大家都说完了，
请问：
CString 是什么东东？