Hier nochmal eine Selbstgebastelte Funktion:
Delphi-Quellcode:
function cutit(text:string):string;
var i,start,ende:integer; a:string;
begin
i:=1;
while (text[i]<>'[') and (i<lengtH(text)) do
i:=i+1;
start:=i;
i:=1;
repeat
I:=i+1;
until ((i>=start) and (text[i]=']')) or (i>length(text));
ende:=i;
a:=text;
if length(texT)=start then result:=text else
if (length(text)=ende) and (text[lengtH(text)]<>']') then result:=text else
delete(a,start,ende-start+1);
if result<>text then
result:=a;
end;