[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;

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

Код:

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

[Страдалецъ]

Я бы сделал так:
1. Разбил автоматом строку на слова ориентируясь на символы.

Код:

Var
 SL: TStringList;
 S: String;
begin
S := 'не нужная инфа:имя/фамилия:адрес:телефон.'
SL := TStringList.Create; 
SL.Text := SLWrapText(S,#13#10,[':','/'],1);

2. Убрал за ненадобностью символы разделители

Код:

SL.Text := StringReplace(SL.Text,':','',[rfReplaceAll]);
SL.Text := StringReplace(SL.Text,'/','',[rfReplaceAll]);

Теперь в SL.Strings то что вам нужно, за исключением SL.Strings[0] - там ненужная.