Цитата:
|
Функция Pos спасет отца русской демократии
|
Ну это вы погорячились. Автор использует TStringList и pos там совсем ни к чему.
Просто надо грузить текст в DelimitedText. В итоге получите набор строк с ip в каждой строке. А если еще флаг на дубликаты врубить, то получите список уникальных ip.
Вот примерчик:
Код:
Var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Delimiter := ' ';
SL.Duplicates := dupIgnore;
SL.Sorted := True;
SL.DelimitedText := '1.1.1.1 1.1.1.2 1.1.1.3'#13'1.1.1.4 1.1.1.5 1.1.1.6 1.1.1.6';
Memo1.Lines := SL;
end;