Пропарсить String

[bulldog5293]

Доброй ночи, у меня возникла заурядица с тем что, в стринге содержится два слова соединёные знаком &, правда после этого знака ещё может слово идти которое мне не нужно, пробывал от этой пакасти избавится так

 s := 'рано&вылет';
 i1 := (Pos('', s));
s := Copy(s, i1, PosEx('&вылет', s, i1) - i1);
showmessage(s)

но стринг получается пустой, да и ёще, слово 'рано' рандомное. В чём я ошибся?

[chertovich]

Конечно пустой, посмотри что в качестве первого параметра вы ввели

[bulldog5293]

Так слово 'рано' рандомное, вот я и ввёл '', т.к. больше не знаю как ему объяснить что нада искать с начала слова и до '&вылет'

[bulldog5293]

Вопрос снят, нада было так

 s := 'рано&вылет';
 i1 := (Pos(s, s));
s := Copy(s, i1, PosEx('&вылет', s, i1) - i1);
showmessage(s)

[Serge_Bliznykov]

 i1 := (Pos(s, s));

Жесть!!!
В этом случае i1 ВСЕГДА будет равен 1; ВСЕГДА!

попробуйте так:

 s := 'рано&вылет';
 if Pos('&',s)>1 then
    s := Copy(s, 1, Pos('&',s)-1);
 showmessage(s);