[tabivan]

Помогите написать конвертер. Приведенный ниже код работает только если строка не больше 200 символов.
Нужно из файла все что располагается между / / записать в массив.

Код:

if form1.OpenDialog1.Execute then fname:=form1.OpenDialog1.FileName;

TStr := TStringList.Create;
  try
    TStr.LoadFromFile(fname);
      for t:=0 to TStr.Count-1 do
        begin
        str:=TStr.Strings[t];

k:=1;
a:='';
for i:=1 to length(str) do
 begin
   if str[i]<>'/' then a:=a+str[i] else
   begin
   m[k]:=a;
   Inc(k);
   a:='';
   end;
 end;

m[k]:=a;