一个关于字符串的问题.

Question

我现在收到一个字符串,值是：'#5，8800，C101,1,1'(包括逗号)。该怎样编程才能把C101这个值分离出来？

Answer 1

var i,j:integer;
    s:string;
begin
  s:='#5，8800，C101,1,1';
  i:=pos(s,'C101');
  j:=length('C101');
  delete(s,i,j);
end;

Answer 2

第一种通用
procedure TForm1.Button5Click(Sender: TObject);
var
  StrList:TStringList;
  str:string;
begin
  StrList:=TStringList.Create;
  str:='#5,8800,C101,1,1';
  ExtractStrings([','],[],PChar(str),StrList);
  ShowMessage(StrList[2]);
  StrList.Free;
end;

Answer 3

我的最不省事 :P
uses IdGlobal;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  ts: TStrings;
begin
  ts := TStringList.Create;
  s := '#5，8800，C101,1,1';
  ExtractStrings([','],[' '],pchar(s),ts);
  s := ts.Strings[0];
  Edit1.Text := RightStr(s, Length(s) - RPos('，', s) - 1);
  ts.Free;
end;