ребята как мне сделать так что в мемо не писался одинковый текст?
допустим парсю страницу и там одинаковые ники/мыла, а мне надо что бы их пропускало. Гуглил не нашол не че
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;
Ну как-то так.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
В переменную пихни "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 и установи ее. Естественно почитай как пользоваться