мемо

[pavel!]

ребята как мне сделать так что в мемо не писался одинковый текст?
допустим парсю страницу и там одинаковые ники/мыла, а мне надо что бы их пропускало. Гуглил не нашол не че /kidding

[VeTaL_UA]

function Pars:string;
begin
//некая функция парса из страници
end;
...
procedure Process;
var
s,s1:string;
i:integer;
s2,s3:TStringList;
begin
s2:=TStringList.Create;
s2.Test:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
s3:=TStringList.Create;
for i:=0 to 100499 do
begin
s:=Pars(s2.Strings[i]);
if Pos(s,s3.Text)=0 then
begin
Memo1.Lines.Add(s);
end;
s3.Add(s);
end;
s2.Free;
s3.Free;
end;
Ну как-то так.

[=PaLeTiZaToR=]

Добавь в users
regexpr

В переменную пихни "reg:tregexpr"
:down: вот так правильно
Var
reg:tregexpr
begin
end

Это пропиши как показано ниже
Var
reg:tregexpr
begin
reg:=tregexpr.create

Reg.expression:='"></a><a href="[Ссылки могут видеть только зарегистрированные и активированные пользователи](.*?)/';
if reg.exec(str) then
repeat
form1.memo1.lines.Add(s);
until not Reg.ExecNext;
end

Выделенное красным , позволяет тебе добавлять текст в мемо , пока находятся совпадения.

Чтобы все это использовать скачай библиотеку regexpr и установи ее.
Естественно почитай как пользоваться