Очистка списка u75 + плюхи на D7

Очистка списка u75 + плюхи на D7

Функция удаления дублей

procedure deldub(); // Удаление дублей  и пустых строк
var i, j:integer;
begin
For i:=form1.Memo1.Lines.Count-1 downto 0 do
For j:=i-1 downto 0 do
If (form1.Memo1.Lines=form1.Memo1.Lines[j]) or (form1.Memo1.Lines='') then
form1.Memo1.Lines.Delete(i);
end;

Обработка списка сайтов (сайты с пр) с сервиса u75 от лишнего текста - на выходе чистые домена

procedure u75();    
var i, j:integer; data:string;
begin
for i:=0 to form1.memo1.Lines.Count-1 do begin
if form1.memo1.lines = '' then
form1.memo1.lines.Delete(i);
data:=form1.memo1.lines;
delete(data,1, pos(' ',data));
delete(data,pos(',',data), length(data));
form1.memo1.lines:=trim(data);

if form1.checkbox1.Checked = true then  // если необходимо, то чекаем PR
form1.memo1.lines:=trim(data)+'	'+trim(PRDATA(data));
end;
end;

В вышеуказанной функции есть вызов PRDATA - определение PR сайта, код функции:

function Check_PR(aUrl: string): string;  // Функция определения PR
const
seed='Mining PageRank is AGAINST GOOGLE'#39'S TERMS OF SERVICE. Yes, I'#39'm talking to you, scammer.';
var i,urllen,seedlen,key: DWORD;
begin
key:=16909125;
seedlen:= Length(seed)+1;
urllen:= Length(aUrl);
for i:=1 to urllen do
   begin
     key:= key xor (Ord(seed) xor Ord(aUrl));
     key:= key shr 23 or key shl 9;
   end;
result:='http://toolbarqueries.google.com/tbr?client=navclient-auto&features=Rank&ch=8'+IntToHex(key,8)+'&features=Rank&q=info:'+aUrl;
end;

function PRDATA(aUrl: string): string; // чекаем пр
begin
if not (aUrl = '') then begin // если значение пустое то не чекаем
try
result:=copy(form1.idhttp1.get(Check_PR(aUrl)),10,2); // собственно определяем PR
except
end;
end;
end;

если будет интерес к подобным постам - буду выкладывать интересные исходники в т.ч. из приватных софтин по заказу