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

[Utkin]

Не так давно я писал для журнала: http://procoder.info/index.php?optio...ons&Itemid=154

Возможно, мысли заложенные там тебе подойдут.

[russian-stalker]

Ну можно примерно так, предварительно удалив все символы переноса строки:

var
   s, t, p:string;
   posit: integer;
begin
   s := '<open>fdsf<close>tt<paus>';
   while pos('<',s)>0 do
   begin
      if pos('>',s)>0 then
         posit := pos('>',s)
      else
         posit := length(s);
      t := copy(s, 2, posit-2);
      delete(s, 1, posit);
      if pos('<',s)>0 then
         posit := pos('<',s)
      else
         posit := length(s);
      p := copy(s, 1, posit-1);
      delete(s, 1, posit-1);
      writeln('command: ', t);
      //if t='open' then doSomething(p); 
      if p<>'' then
      writeln('param: ', p);
   end;
end.