Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

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

 
Никита ©   (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


 
TUser ©   (2004-09-27 10:08) [3]

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;

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



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
4-1094214152
Falcon
2004-09-03 16:22
2004.10.10
Как узнать какое окно в системе в текущий момент имеет ввод?


6-1091603923
Hereticsoul
2004-08-04 11:18
2004.10.10
Socket


11-1081262281
m5
2004-04-06 18:38
2004.10.10
Как сделать в КОЛ всплывающее окошко с подсказками?


3-1094188498
ol
2004-09-03 09:14
2004.10.10
как проверить, в интербейс, существует ли таблица с таким-то


1-1096248576
Артем К.
2004-09-27 05:29
2004.10.10
Здравствуйте, Мастера. Как разбить строку на лексемы?