Парсер Alexa Rank

[gamer123]

Непонятно почему не работает. Суть такая - в мемо1 находятся линки. Определяем их количество - это будет количество повторений цикла, далее делаем гет запрос с первым линком, распарсиваем получанную страницу и получаем ранк (т.к. он бывает дробным, то обрезаем лишнее, убираем пробелы - вобщем приводим к виду целого числа), после этого пишем в мемо2 это значение. и т.д. После нажатия кнопки идет какаято работа и потмо завершается без каких либо видимых изменений. В мемо2 ничего не пишется

procedure TMain.Button1Click(Sender: TObject);
var
  i:integer;
  load:string;
  alexasrc:string;
  alexa:string;
begin
  for i:=0 to Main.ParsedLinks.Lines.Count do
    load:=Main.IdHTTP1.Get('http://www.alexa.com/search?q='+Main.ParsedLinks.Lines[i]+'&r=site_screener&p=bigtop');
      while pos('US</a>',load) <> 0 do begin
        load:=copy(load,pos('US</a>',load)+7,length(load));
        alexasrc:= copy(load,0,pos('</li>',load)-1);
        alexa:=TrimRight(alexasrc);
        Main.Memo1.Lines.Add(alexa);
        load:=copy(load,pos('">',load),length(load));
      end;
end;

P.s. - никак не получается удалить запятую из середины числа, если она там есть

[kangreon]

For надо немного переписать
Так подсчет строк count начинается с 1 а обращение к строке strings[i] c 0

for i:=0 to Main.ParsedLinks.Lines.Count-1 do

И все содержимое после for надо взять в begin ... end;
Иначе у вас получается что цикл загружает i раз данные со станицы в переменную load и работает с ней. А оная является пустой, тк lines.strings[lines.count] не существует.

[gamer123]

Сообщение от kangreon

For надо немного переписать
Так подсчет строк count начинается с 1 а обращение к строке strings[i] c 0

for i:=0 to Main.ParsedLinks.Lines.Count-1 do

И все содержимое после for надо взять в begin ... end;
Иначе у вас получается что цикл загружает i раз данные со станицы в переменную load и работает с ней. А оная является пустой, тк lines.strings[lines.count] не существует.

Спасибо, все отлично работает.

Есть какаято функция, чтобы удалить запятую - 50,000 > 50000 ?

[kangreon]

Можно сделать

 s := '50,000';
 s := StringReplace(s,',','',[rfReplaceAll]);