如何在给定的字符串中获得特殊格式的字符串--急

Question

如：
给定字符串：'[abc]defgh[ijk]123[567]'
把格式为'[]'的字符串提取出来，[abc]，[ijk]，[567]
谢谢了

Answer 1

var
  I: Integer;
  S: string;
  T: string;
begin
  S := '[abc]defgh[ijk]12[$]3[567]';
  I := Pos('[', S);
  T := '';
  while I > 0 do
  begin
    Delete(S, 1, I - 1);
    I := Pos(']', S);
    T := T + Copy(S, 1, I);
    Delete(S, 1, I);
    I := Pos('[', S);
  end;
  Caption := T;
end;

Answer 2

while I > 0 do
  begin
    Delete(S, 1, I - 1);
    I := Pos(']', S);
    if I <= 0 then Break;
    T := T + Copy(S, 1, I);
    Delete(S, 1, I);
    I := Pos('[', S);
  end;