проблема с парсингом

[Pein95]

вот код который парсит даные:

for I := 0 to memo1.Lines.Count-1 do
  begin
    bg:=posex('uid',memo1.Lines.Strings[i]);
    en:=posex(',"',memo1.Lines.Strings[i]);
    s:=copy(memo1.Lines.Strings[i],bg,en-bg);
    delete(s,bg+1,2);
    memo2.Lines.Add(s);
  end;

вот текст который парситса:

{"response":[{"uid":1,"first_name":"Павел","last _name":"Дуров","online":0},{"uid":5 ,"first_name":"Илья","last_name":"П ерекопский","online":0},{"uid":4201 2873,"first_name":"Олег","last_name ":"Саламаха","online":1}]}


вот результат роботы:
uid":1
uid5
uid42012873

вопрос: почему первая строка результата отличаетса от других?
в чем ошыбка алгоритма, как её исправить.

[Человек_Борща]

а что тебе нужно вытащить из этих строк?

[Johnson]

Ммм... в данном случае предлагаю использовать ВЕСЬ текст мемо как строку, и не использовать цикл FOR вобще.

Простейший пример:

A:= 'a,b,c,d';


if a[length(a)]<>',' then a:=a+',';
while Pos(',',a)>0 do begin
b:=Copy(a,1,Pos(',',a)-1);
Delete(a,1,Pos(',',a));
end;

Думаю, разберетесь, хоть написано и на коленке...

Хм. Конкретный пример:

A:='{"uid":1,"first_name":"Павел","last _name":"Дуров","online":0},{"uid":5 ,"first_name":"Илья","last_name":"П ерекопский","online":0},{"uid":4201 2873,"first_name":"Олег","last_name ":"Саламаха","online":1}';

if a[length(a)]<>',' then a:=a+',';

while Pos(',',a)>0 do begin
  b:=Copy(a,1,Pos(',',a)-1);
  Delete(a,1,Pos(',',a));
  // Сдесь за каждый проход цикла будет свой раздел, например {"uid":1,"first_name":"Павел","last _name":"Дуров","online":0}
  //Обрезаете начальный и последний символы, чтоб не мешали:
  Delete(b,1,1);Setlength(b,length(b)-1);
  // Сдесь же делаете второе вложение такого же цикла и парсите уже получившуюся строку.
  // Что бы получить в нем составляющие такого вида: "uid":4201 2873
  if b[length(b)]<>',' then b:=b+',';
  while Pos(',',b)>0 do begin
    c:=Copy(b,1,Pos(',',b)-1);
    delete(c,1,Pos(',',b));
    // Тут уже зазбираете что получилось и фильтруете.
    // Вместо второго вложенного цикла можно использовать обычный парсинг, если заведомо известно количество параметров
  end;
end;

------------------------------
Добавлено:
Извиняюсь, затупил. В первом цикле запятые неприемлимы, ибо параметры разделены тоже запятыми, как и разделы.
Ищите по }

[Pein95]

ясн спс) но дело в том что ето только начало парсинга там ещо будет парситса имя и фамилия и статус онлайн будет создаватса таблица вот примерно такого типа:
uid1
Павел Дуров
1

[Johnson]

Делал я что-то подобное. Парсило 3000 френдов очень быстро... Давно было, исходников не осталось.

[Pein95]

жаль( а то мой алгоритм не очень(
я просто хочу сделать статистку друзей) вот примерно каждые 3 минуты будет происходить парсинг потом на основе етих даных будет делатса анализ