delphi 如何获得一个字符中[abc] [/abc]之间的内容

如果不是关于节点，即XML那种，字符串，一般使用，COPY，DELETE，LEFTSTRINT，RIGHTSTRING,那几个FUNTION都可以完成

Up!

procedure TForm1.dosubClick(Sender: TObject);
//替换字符串 在str中，用s2替换s1
Function Str_Replace(str, s1, s2: String; casesensitive: boolean):
String;
Var
i: integer;
s, t: String;
Begin
If casesensitive Then
i := pos(s1, str)
Else
i := pos(lowercase(s1), lowercase(str));
If i > 0 Then
Begin
Repeat
s := Copy(str, 1, i - 1) + s2;
t := Copy(str, i + Length(s1), MaxInt);
str := s + t;
If casesensitive Then
i := pos(s1, str)
Else
i := pos(lowercase(s1), lowercase(str));
Until i <= 0;
result := str;
End
Else
result := str;
End;
var
stemp:string;
begin
stemp:='[abc]hello[/abc