Парсинг html...

[kta87]

Не как не доганю, как спарсить названия категорий из html кода

var sectioncategories = new Array;
		sectioncategories[0] = new Array( '-1','-1','Выберите категорию' );
		sectioncategories[1] = new Array( '0','0','Не указано' );
		sectioncategories[2] = new Array( '1','5','Программное обеспечение' );
		sectioncategories[3] = new Array( '1','4','Статьи' );
		sectioncategories[4] = new Array( '1','9','В ближайшем будущем' );
		sectioncategories[5] = new Array( '1','10','Научно-исследовательская работа' );
		sectioncategories[6] = new Array( '1','11','Новости' );

Получить TstringList содержанием:
Выберите категорию
Не указано
Программное обеспечение
Статьи
В ближайшем будущем
Научно-исследовательская работа
Новости
Направьте на путь истенный

[Alex11223]

А html-то где? Что за странный кусок кода выше и как он относится к парсингу?оО
upd: ой, показалось, что это на паскале (дельфи) код)

[denisbrain]

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

Не как не доганю, как спарсить названия категорий из html кода

var sectioncategories = new Array;
		sectioncategories[0] = new Array( '-1','-1','Выберите категорию' );
		sectioncategories[1] = new Array( '0','0','Не указано' );
		sectioncategories[2] = new Array( '1','5','Программное обеспечение' );
		sectioncategories[3] = new Array( '1','4','Статьи' );
		sectioncategories[4] = new Array( '1','9','В ближайшем будущем' );
		sectioncategories[5] = new Array( '1','10','Научно-исследовательская работа' );
		sectioncategories[6] = new Array( '1','11','Новости' );

Получить TstringList содержанием:
Выберите категорию
Не указано
Программное обеспечение
Статьи
В ближайшем будущем
Научно-исследовательская работа
Новости
Направьте на путь истенный

Function GetTextFromTegNewArray(s:string;out m1,m2,m3:string):string;
var i,x:integer;l:integer;
    s2:string;
    beg:boolean;
begin
l:=length(s);
i:=pos('new Array',s);
m1:='';
m2:='';
m3:='';
beg:=false;
if i>0 then begin
   for x:=i+9 to length(s) do begin
      if s[x]=#39 then begin
         if beg then begin
            beg:=false;
            if s2='' then s2:=' ';
            if m1='' then m1:=s2
            else if m2='' then m2:=s2
            else m3:=s2;
            s2:='';
         end
         else beg:=true;
      end
        else if beg then s2:=s2+s[x];
   end;
end;
result:=m1+' '+m2+' '+m3
end;


// разбор выражения 
//		new Array( '1','11','Новости' );
procedure TForm1.Button2Click(Sender: TObject);
var n1,n2,n3:string;
begin
Showmessage(GetTextFromTegNewArray(edit1.text,n1,n2,n3));
memo2.lines.add(n3);
end;

[kta87]

denisbrain, спасибо! Визуально вроде то, как только смогу, скомпилирую!
Alex11223, да конечно... это кусок javascript. Ну а к парсингу то относится непосредственно!