Помогите написать конвертер. Приведенный ниже код работает только если строка не больше 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;