Ошибка: Нарушение доступа к памяти.

[VladimirAleks]

SetLength(MasRitmFind, Length(MasFind), 3);
    For i:=1 to Length(MasFind) do
      Begin
        TextChange2 := Copy(TextInput,1, MasFind[i]);
        MasRitmFind[i,1] := LastDelimiter(#13#13, TextChange2) + 1;
        j:=Length(TextChange2);
        TextChange2 := Copy(TextInput,MasFind[i], Length(TextChange2));
        MasRitmFind[i,2] := AnsiPos(#13#13, TextChange2);
      End;

Это код при i=5 в строке выполнения второй функции Copy выдаёт ошибку: Нарушение доступа к памяти. Из-за чего?

[Шульц]

MasFind - это какого типа переменная? У тя с параметрами на путано.
в строке:

Copy(TextInput,1, MasFind[i]);

Последние два параметра должны быть численными. Возможно что заканчивается MasFind.

и дай всю функцию или процедуру.

[Пепел Феникса]

For i:=0 to Length(MasFind)-1 do

дин массивы начинаются всегда с нуля.

[VladimirAleks]

Сообщение от Пепел Феникса

дин массивы начинаются всегда с нуля.

Я могу не использовать нулевые значения.

[Пепел Феникса]

а вы подумайте тогда какой номер последнего элемента при отсчете с нуля?
последний элемент массива A:array of <чтото там>
это Length(A)-1

[VladimirAleks]

Сообщение от Шульц

MasFind - это какого типа переменная?

 var
    FileInput, ReadOnly   : OleVariant;
    TextInput, TextChange,TextChange2, TextFind : String;
    MasFind : Array of integer;
    MasRitmFind : Array of Array of integer;
    i, j, CaseRitm : Integer;
    RepeatOff : Boolean;

Ещё не дописал до конца:

procedure TFormFindRitm.Button3Click(Sender: TObject);
  var
    FileInput, ReadOnly   : OleVariant;
    TextInput, TextChange,TextChange2, TextFind : AnsiString;
    MasFind : Array of integer;
    MasRitmFind : Array of Array of integer;
    i, j, CaseRitm : Integer;
    RepeatOff : Boolean;
  begin

    FileInput := ExtractFilePath(Application.EXEName)+'ÕÌ(ïðîâ).doc';
    WordApplicationMain.Connect;
    ReadOnly := True;
    WordApplicationMain.Documents.Open(FileInput, EmptyParam, ReadOnly, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    WordDocumentMain.ConnectTo(WordApplicationMain.ActiveDocument);
    TextInput := WordDocumentMain.Range.Text;
    TextChange := AnsiLowerCase(TextInput);
    TextFind := AnsiLowerCase('íåáî');


    RepeatOff := False;
    i:=0;
    Repeat
      inc(i);
      If AnsiPos(TextFind, TextChange)=0
        Then
          RepeatOff :=True
        Else
          Begin
            SetLength(MasFind, i+1);
            MasFind[i] := AnsiPos(TextFind, TextChange);
            TextChange := Copy(TextChange,MasFind[i]+Length(TextFind),Length(TextChange)-MasFind[i]-Length(TextFind));
          End;
    Until RepeatOff;

    For i:=2 to Length(MasFind) do
      MasFind[i]:=MasFind[i]+MasFind[i-1];


    SetLength(MasRitmFind, Length(MasFind), 3);
    For i:=1 to Length(MasFind) do
      Begin
        TextChange2 := Copy(TextInput,1, MasFind[i]);
        MasRitmFind[i,1] := LastDelimiter(#13#13, TextChange2) + 1;
        j:=Length(TextChange2);
        TextChange2 := Copy(TextInput,MasFind[i], Length(TextChange2));
        MasRitmFind[i,2] := AnsiPos(#13#13, TextChange2);
      End;

[VladimirAleks]

а вы подумайте тогда какой номер последнего элемента при отсчете с нуля?
последний элемент массива A:array of <чтото там>
это Length(A)-1

Всё равно та же ошибка.