мемо

[pavel!]

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

[VeTaL_UA]

function Pars:string;
begin
//некая функция парса из страници
end;
...
procedure Process;
var
s,s1:string;
i:integer;
s2,s3:TStringList;
begin
s2:=TStringList.Create;
s2.Test:=IdHTTP1.Get('http://blabla.net/');
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"
вот так правильно

Var
reg:tregexpr
begin
end

Это пропиши как показано ниже

Var
reg:tregexpr
begin
reg:=tregexpr.create

Reg.expression:='"></a><a href="http://(.*?)/';
if reg.exec(str) then
repeat
form1.memo1.lines.Add(s);
until not Reg.ExecNext;
end

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

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