| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск в строке [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Никита ©   (2004-09-27 09:56:00) 

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

---

TUser   (2004-09-27 10:08:00) [1]

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;

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

---

Mike Kouzmine   (2004-09-27 10:05:00) [2]

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

---

Erik1   (2004-09-27 10:03:00) [3]

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

---

Наверх