Разделение строки на две части по символу "_"

[unreal2x]

Чтоб новую тему не создавать, подскажите/помогите...

Есть строка, мне надо получить часть до и после символа "_".
Когда в строке есть "_" то все ОК.
Но когда в строке нет этого символа, мне в "POSLE" выдается вся строка.


Использую:

DO:=copy(stroka,1,pos('_',stroka)-1);
POSLE:=Copy(stroka, Pos('_',stroka)+1);

Так как мне надо использовать If then else на do и posle... хотелось бы, чтоб если в строке символа нет, то ничего не выдавалось.

[macomics]

1) Сохранить значение, которое возвращает pos
2) Проверить сохраненное значение значение на равенство 0

p := pos('_', stroka);
if p <> 0 then begin
  strDO := copy(stroka, 1, p - 1);
  posle := copy(stroka, p + 1);
end else begin
  strDO := stroka;
  posle := '';
end;

[unreal2x]

Большое спасибо!