[Помогите!] парсинг

[*Хalyava*]

есть небольшая функция парса:

 function pars:string;
    var
    s4:string;
    i
    begin
      s4:=copy(CodUnicod,pos('qNumbers[0]=',CodUnicod)+12,length(CodUnicod));
        Delete (s4,pos(';',s4)-1,length (s4));
       result:=s4;

    end;

на форме расположена кнопка. мне нужно чтобы по нажатию на кнопку осуществлялся парс. (с этим нет проблем). после 2-го нажатия на кнопку число 0 (отмечено красным) менялось на цифру 1 (программно) и т.д.

как это реализовать ?

[Skrillex3]

function pars:string;
var
s4:string;
i
begin
for i:= 0 to (какаята граница) do
begin
s4:=copy(CodUnicod,pos('qNumbers[i]=',CodUnicod)+12,length(CodUnicod));
Delete (s4,pos(';',s4)-1,length (s4));
result:=s4;
end;
end;

[*Хalyava*]

не. это не то что мне нужно.
мне надо чтобы после нажатия на кнопку в место нуля тавилась цифра 1 в функции. после 3-го нажатия должна стоять цифра 2 и т.д.

[Zo_Om4eG]

Держи

Цитата: function pars:string; var s4:string; i:integer; begin s4:=copy(CodUnicod,pos('qNumbers[i+1]=',CodUnicod)+12,length(CodUnicod)); Delete (s4,pos(';',s4)-1,length (s4)); result:=s4; end;

[VeTaL_UA]

var
j:integer;

function pars(s4,i:string):string;
begin
s4:=copy(CodUnicod,pos('qNumbers['+i+']=',CodUnicod)+12,length(CodUnicod));
Delete (s4,pos(';',s4)-1,length (s4));
result:=s4;
end;

procedure Button1Click(Sender:TObject);
var
s:string;
begin
s:=IdHTTP1.Get('http://blabla.com/');
s:=pars(s,IntToStr(j));
inc(j);
end;

procedure Form1Create(Sender:TObject);
begin
j:=0;
end;

Как-то так.