关于字符串截取的问题

Question

我有这样一个字符串：黎平[00122]。我现在只想取得其中的00122，我应该怎么做！

Answer 1

pos 
copy or delete

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  i: Integer;
begin
  s:='黎平[00122]' ;
  i := Pos('[', s);
  s := copy(s, i+1, length(s));
  i := pos(']', s);
  s := copy(s, 1 ,i-1);
  ShowMessage(s);
end;

Answer 3

str:='黎平[00122]';
  str:=Copy(str,Pos('[',str)+1,Pos(']',str)-Pos('[',str)-1);