Вырезание строки Delphi

[Black_Shem]

Доброго времени суток.

Вообщем есть Twebbrowser.
Мне нужно из загруженной страницы взять некоторые параметры генерируемые скриптом.

...
<script>
 var tc_arr=[[60410,'Название 1',0],...,[80295,'Название N',289]];
 var tn_arr=[[110,'Название 1',0],...,[895,'Название N',0]];
</script>
...

Мне нужно из этих 2 массивов создать 1 новый массив.

type
t=record
nameT:string[255];// Имя
zT:integer;// Имеющиеся значение
zTMax:integer;// Максимальное
end;

var
th:array of t;//Динамический массив

где

var tc_arr=[60410,nameT,zT]
var tn_arr=[110,nameT,zTMax]


В голову пришло только то, что HTML код из Webbrowser можно взять и преобразовать в строку. И далее из нее вырезать эти значения.
Но вот тут возникла загвоздка. Пытался сформировать новый массив с помощью copy и delete, Но в конец запутался что где и как это нормально вытащить. Помогите с реализацией кода.

Или может существует иной способ решения проблемы?.
Буду благодарен за помощь.

[Кольша]

function pars(a,b,s:string):string;/////a-откуда начинаем b-где заканчиваем s-строка
var
t:string;
begin
t:=copy(s,pos(a,s)+length(a),length(s));
t:=copy(t,1,pos(b,t)-1);
result:=t;
end;
...........

showmessage(pars('var tc_arr=',';','var tc_arr=[[60410,'Название 1',0],...,[80295,'Название N',289]];'));

дальше сами

[Stilet]

Набросок для раздумья:

uses
  SysUtils;
const s='<script>'+
 'var tc_arr=[[60410,`Название 1`,0],...,[80295,`Название N`,289]];'+
 'var tn_arr=[[110,`Название 1`,0],...,[895,`Название N`,0]];'+
'</script>';


var
 w,a:string;i,k,d:integer;
begin
 a:=s;
 i:=pos('[',a); delete(a,1,i);
 while i<>0 do begin
  i:=pos('[',a);  delete(a,1,i);
   k:=pos(']',a)-1; w:=copy(a,1,k);
  d:=pos(',',w); while d<>0 do begin
   write(copy(w,1,d-1)); delete(w,1,d);
   d:=pos(',',w);
  end;
  write(w);
  writeln;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Black_Shem]

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

Набросок для раздумья:

Спасибо.Натолкнуло на мысли

Вот как реализовал:

type
t=record
nameT:string[255];// Имя
zT:integer;// Имеющиеся значение
zTMax:integer;// Максимальное
end;
const s='<script>'+
 'var tc_arr=[[60410,`Название 1`,0],[80295,`Название 2`,289]],[80295,`Название 3`,339];'+
 'var tn_arr=[[110,`Название 1`,1],[895,`Название 2`,2],[80295,`Название 3`,555]];'+
'</script>';

var
  Form1: TForm1;
th:array of t;//Динамический массив
kolVT:integer=0;// Количество записей
implementation

{$R *.dfm}

function delcharString(s:string) : string;
const ch =[';','[',']','`'];
var i:integer;
begin
result:='';
for i:=1 to length(s) do
 if not(s[i] in ch) then result:=result+s[i]
end;

function TextToString(a:string):TstringList;
var
st:TstringList;
begin
 // Убираем начало строки до [
 delete(a,1,pos('[',a));
 //Убираем лишнии символы
 a:=delcharString(a);
 // Создаем массив строк
 st:=TstringList.Create;
 ExtractStrings([','], [' '],Pchar(a), st);
 result:=st;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 a,s1:string;
 i,j:integer;
 strT:TStringList;
begin
// Копируем 1 строку
 setlength(th,1);
 a:=s;
 s1:=copy(a,1,pos(';',a));
 // В а 2 строка
 delete(a,1,pos(';',a));
 delete(a,pos(';',a),length(a));
 strT:=TextToString(s1);
 //Создаем массив
 i:=0;
 kolVt:=0;
 while i<strT.count do
 begin
   th[kolVT].nameT:=strT[1+i];
   th[kolVT].zT:=strtoint(strT[2+i]);
   i:=i+3;
   inc(kolVT);
   setlength(th,kolVT+1);
 end;
 //Обработка 2 строки
strT:=TextToString(a);
  i:=0;
  j:=0;
while i<strT.count do
 begin
   th[j].zTMax:=strtoint(strT[2+i]);
   i:=i+3;
   inc(j);
 end;
end;