range check error

[ChEaTeR-abc]

Вот программа:

unit Unit5;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, ComCtrls;


type
  TForm1 = class(TForm)
    Edit1: TMaskEdit;
    Edit2: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    SaveDialog1: TSaveDialog;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    OpenDialog1: TOpenDialog;
    Button2: TButton;

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  Pass,Pass2,Key,Key2,Key3,Pass3:string;
  I:Integer;
  F:TextFile;
  P:array of string;
  K:array of string;


const
  StartKey	= 981;  	{Start default key}
  MultKey	  = 12674;	{Mult default key}
  AddKey	  = 35891;	{Add default key}


function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;

implementation

{$R *.dfm}

{$R-}

{$Q-}


function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
  I : Integer;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;


function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
  I : Integer;
begin
  Result := '';
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{$R+}
{$Q+}


procedure TForm1.Button1Click(Sender: TObject);
begin
  IF (Edit1.Text<>'') AND (Edit1.Text<>' ') AND (Edit2.Text<>'') AND (Edit2.Text<>' ') THEN
  begin
Randomize;
  Pass:=Edit1.Text;
  Key:=Edit2.Text;
  Pass2:=Encrypt(Pass, StartKey, MultKey, AddKey);
  Key2:=Encrypt(Key, StartKey, MultKey, AddKey);
    try
      Memo1.Lines.LoadFromFile('Ïàðîëè.txt');
      Memo1.Lines.Add(Pass2);
      Memo1.Lines.Add(Key2);
      Memo1.Lines.SaveToFile('Ïàðîëè.txt');
      Memo1.Text:='';
    except
      CloseFile(F);
    end;
      ShowMessage('Ваш пароль:"'+Pass+'".Ключевое слово:"'+Key+);
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('Пароли.txt');
I:=1;
  repeat
    begin
      K[I]:=Decrypt(Memo1.Lines[I], StartKey, MultKey, AddKey);  - Здесь у меня выдает ошибку
      P[I-1]:=Decrypt(Memo1.Lines[I-1], StartKey, MultKey, AddKey);
        I:=I+2;
    end;
  until K[I]=Edit3.Text;
    Key2:=Edit3.Text;
      IF (K[1]=Key2) THEN
        begin
          ShowMessage('Ваш пароль:"'+P[I]+'".Ваш ключ:"'+K[I]+'"');
          Memo1.Lines[0]:='Ваш пароль:"'+Pass3+'"';
          Memo1.Lines[1]:='Ваш ключ:"'+Key3+'"';
        end;
end;

end.

При выполнении выдает ошибку range check error.Гдето на форуме говорили что это изза директив {$R-} и {$R+}(я даже не понимаю что они означают .Функции копировал с сайта).Если их убрать выдает другую ошибку.Помогите исправить программу

[Don Karleone]

{$R+} - директива компилятора, включает проверку выхода значений за допустимые границы диапазона. Директива {$R-} соответственно выключает эту проверку. Директива является локальной (по моему это так называется ), т. е. действует на код расположенный между {$R+} и {$R-}.
Теперь, что касается массива K:
K - у вас объявлен глобальный динамический массив (K: array of string)!!!
Прежде чем использовать динамический массив необходимо прописать процедуру SetLength(K,n), где K - имя массива, n - длина массива. При этом необходимо помнить, что индексация динамических массивов начинается с 0. Тоже самое касается и массива P.

[ChEaTeR-abc]

То есть нужно указать длину массива?Это ведь можно сделать ещё при объявлении массива? K:array [0..50] of string - так например?

Добавлено:
Пытался использовать SetLength, но т.к. я ламер-самоучка понятия не имею как использовать эту процедуру .У меня выдает ошибку Incompatible types.Напишите, пожалуйста, как использовать эту процедуру в коде моей программы.
И ещё раз добавлено:вот как я пытался написать:

procedure TForm1.Button2Click(Sender: TObject);
begin
SetLength(K,51);
SetLength(P,51);
Memo1.Lines.LoadFromFile('Пароли.txt');
I:=1;
  repeat
    begin
      K[I]:=Decrypt(Memo1.Lines[I], StartKey, MultKey, AddKey);
      P[I-1]:=Decrypt(Memo1.Lines[I-1], StartKey, MultKey, AddKey);
        I:=I+2;
    end;
  until (K[I]=Edit3.Text);
    Key2:=Edit3.Text;
      IF (K[1]=Key2) THEN
        begin
          ShowMessage('Ваш пароль:"'+P[I]+'".Ваш ключ:"'+K[I]+'"');
          Memo1.Lines[0]:='Ваш пароль:"'+Pass3+'"';
          Memo1.Lines[1]:='Ваш ключ:"'+Key3+'"';
        end;
end;

[Don Karleone]

Если вы знаете, что вам достаточно 51 элемента в массиве K, то можете объявить его статическим: в разделе var вместо K: array of string пишите
K: array [0..50] of string. Тоже самое можно сделать с массивом P.
Процедура SetLength у вас написана вроде правильно. Проверьте внимательно, может у вас в место буквы g написана q!!! А еще лучше прописать эти процедуры в обработчике OnCreate формы. Т. е. при создании вашей формы будут созданы динамические массивы.

[ChEaTeR-abc]

Уже пробовал создавать статические массивы.Та же ошибка.А директивы R- и R+ нужно использовать?

ЗЫ.На сайте с которого я качал функции для шифровки/расшифровки текст были ещё директивы Q+ и Q-.Что они делают и могло ли это както повлиять на появление ошибки?

[Sergey2]

походу файл с паролями не грузиться и мемо пустой

[Don Karleone]

{$Q+} - контроль переполнения при выполнении над целыми операций +, -, *, Abs, Succ, Pred. Все эти дериктивы позволяют избежать ошибок, которые могут возникнуть в процессе работы приложения. Так что их лучше использовать.

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

1)а если условие until не выполнится? тогда вылет за рамки массива(данная ошибка)
2)у вас в мемо точно есть две строки?ибо присвоение строк не добавляет их, а только может изменить существующую(данная ошибка)

ЗЫ: 3)

Сначала был бит, потом байт, и только потом в него записали переменную строкового типа - слово

слово это двойной байт вообще то(два байта, тип word)
двойное слово - 4 байта(тип LongWord).

[ChEaTeR-abc]

ЗЫ: 3)
Цитата:
Сначала был бит, потом байт, и только потом в него записали переменную строкового типа - слово
слово это двойной байт вообще то(два байта, тип word)
двойное слово - 4 байта(тип LongWord).

Ну если слово сначало было не одно, то и байтов может быть несколько
ЗЫ.Господа, мы эретеки.Так издеватся над Библией...

1)Проверял в дебаге - until выполняется
2)Вот с количеством строк в Мемо я не понял.Я ведь загружаю файл в него с помощью LoadFromFile.Насколько мне известно, в таком случае будет создаватся столько строк, сколько необходимо чтобы разместить файл.Или я ошибаюсь?

походу файл с паролями не грузиться и мемо пустой

В Мемо выводится файл.Здесь всё нормально.

[Don Karleone]

Компонентом текстового файла является строка. Соответственно при его выводе в Memo будет столько же строк сколько и в файле. Но это только в том случае если свойство wordwrap у Memo установлено в false. В противном случае строки будут переноститься (если строка не помещается в Memo) и тогда кличество строк в Memo будет отличаться от количества строк в файле.