Поиск в строке

← →
Никита © (2004-09-27 09:56) [0]

Как найти в строке фразу начинающуюся на "{\colortbl ;" и заканчивающуюся на "}" и записать её в переменную string?

← →
Erik1 © (2004-09-27 10:03) [1]

i := Pos("{\colortbl ;", MyValue);
j := Pos("}", MyValue);
if j>i then
MyValue2 := Copy(MyValue, i, j-i)
else
MyValue2 := "";

← →
Mike Kouzmine © (2004-09-27 10:05) [2]

if (pos("{\colortbl",S) = 1) and (S[Length(S) = "}") then

var result,s:string;
state:boolean;
i,j:integer;
begin
state:=true;
restul:="";
i:=pos("{...",S);
if i <> 0 then
begin
j:=posex("}",S,i);
if j <> 0 then
result:=copy(S,i,j-1+1);
end;
end;

Или простенький конечный автомат

Поиск в строке Найти похожие ветки