procedure TForm1.BitBtn1Click(Sender: TObject);
var
Find:string; //Искомая строка
i,n,:integer; //Счетчик для цикла
begin
for n:=0 to Memo1.Lines.Count-1 do begin
find:=Memo1.Lines[n]; // Запись в find текст из Memo1
For i:=0 to Memo2.Lines.Count-1 do //Запуск цикла
If Pos(FIND, Memo2.Lines.Text)<>0
Then
Begin
Memo2.SetFocus();
Memo2.SelStart:=Pos(FIND,Memo2.Lines.Text)-1;
Memo2.SelLength:=Length(FIND);
Memo2.SelText:='';
var
n,i: Integer;
begin
for n:=0 to Memo1.Lines.Count-1 do begin
i:=0;
while i<Memo2.Lines.Count do begin
if Memo2.Lines[i]=Memo1.Lines[n] then Memo2.Lines.Delete(i)
else Inc(i);
end;
end;
end;
var
i: Integer;
begin
i:= 0;
while i < Memo2.Lines.Count do
begin
if Memo2.Lines[i] = '' then
Memo2.Lines.Delete(i);
inc(i);
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.