[vasly]

Всем здравствуйте.
у меня есть строка вида:

Код:

не нужная инфа:имя/фамилия:адрес:телефон.

я разбиваю эту строку на отдельные данные
имя
фамилия
адрес
телефон

Код:

         delete(s,1,pos(':',s) + 1);
         name := copy(s,1,pos('/',s) - 1);
         delete(s,1,pos('/',s));
         familiya := copy(s,1, pos(':',s) - 1);
         delete(s,1,pos(':',s));
         addres := copy(s,1, pos(':',s) - 1);
         delete(s,1,pos(':',s));
         if pos('.',s) = length(s) then delete(s,length(s),1);
         tel:= strtoint(s);
        end;

все работает, но список должен выглядеть именно так (как показано выше) и если встречается строка в другом ввиде, то код не работает. Подскажите как переписать код, если в одном списке будет встречаться строки в таком виде:

Код:

не нужная инфа:имя/фамилия:адрес:телефон.
имя/фамилия:адрес:телефон
имя/фамилия:адрес