Разбор строки

[Celestia]

Здравствуйте. Подскажите пожалуйста как осуществить разбор следующей строки:

[var] a [endvar] [equ] [num] 13 [endnum] [enddir]

Нужно чтобы парсер строки при определении команды в скобках запускал dowritecommand(command: string) а при определении операнда идущего вне скобок запускал бы dowriteoperand(operand: string)

[tsar_]

Строка с пробелами?

[Celestia]

Сообщение от tsar_

Строка с пробелами?

нет, без пробелов, идёт вот так:

[var]a[endvar][equ][num]13[endnum][enddir]

[Celestia]

Сам разобрался, решение оказалось простым (а я думал юзать уже регулярки):

var
 i: integer;
 SS: TStringList;
 temp: string;

 Temp:='';
 SS:= TStringList.Create;

 for I := 0 to length(s) - 1 do
  begin
   if s[i]='[' then
   begin
   if not(Temp='') then
   begin
    SS.Add('Attribute: '+Temp);
   end;
    Temp:='';
   end else
   if s[i]=']' then
   begin
     SS.Add('Command: '+Temp);
    Temp:='';
   end else
   begin
    temp:=temp+s[i];
   end;
  end;