Access violation. строки. Массивы

[New man]

В общем такая проблема. Нужно из текста вырвать строки, и занести их в массив. разделителем строк выступает символ

|

Код функции:

procedure RdTable(Line:TStrings;Vihod:TStrings);
type TArr= array of string;
var i,j,n,k,pred,w:longint;
    s:string;
    Texts: array of array of TArr;
    maxes:array of integer;
begin
   setlength(texts,0);
   n:=0;
   for i := 0 to Line.Count-1 do
     begin
       if Line.Strings[i][1]='+' then continue;
       if Line.Strings[i-1][1]<>'+' then
          begin
            inc(k);
            setlength(texts[n],k);
          end
       else
          begin
            inc(n);
            k:=1;
            setlength(texts,n);
            setlength(texts[n],k);
          end;
       pred:=1;
       w:=0;
       for j := 2 to length(string(line.Strings[i])) do
           if Line.Strings[i][j]='|' then
              begin
                s:=copy(string(Line.Strings[i]),pred+1,j-pred-1);
                pred:=i;
                while (length(s)>0)and(s[1]=' ') do delete(s,1,1);
                while (length(s)>0)and(s[length(s)]=' ') do delete(s,length(s),1);
                setlength(TArr(Texts[n-1][k-1]),w+1);
                TArr(Texts[n-1][k-1])[w] :=s;  // вот тут ошибка
                inc(w);
              end;
     end;


end;

Подскажите, как это решить, дорогие друзья.
ошибка только там, где я ее отметил

[Stilet]

if (Texts[n-1][k-1]>=Low(TArr))and(Texts[n-1][k-1]<=high(TArr)) then
 TArr(Texts[n-1][k-1])[w] :=s
else
 Такого элемента массива не существует.

Проверяй так свой массив. Но я бы по другому переписал все.

[Аватар]

Тут с индексами пурга, зачем вообще 3-х мерный массив, такие вещи как

                while (length(s)>0)and(s[1]=' ') do delete(s,1,1);
                while (length(s)>0)and(s[length(s)]=' ') do delete(s,length(s),1);

можно просто командой s:=Trim(s); заменить

[phomm]

Сто раз обсуждалось

type TStringArray = array of AnsiString;

function SplitString(const Text: AnsiString; Delim: AnsiChar): TStringArray;
var
  sl: Tstringlist;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.Delimiter := {WideChar}(delim); // for unicode delphi use widechar
    sl.DelimitedText := WideString(Text);
    SetLength(Result, sl.Count);
    for i := 0 to sl.count - 1 do
      Result[i] := AnsiString(sl[i]);
  finally
    sl.Free;
  end;
end;

[New man]

Спасибо всем!