Возник вопрос при заполнении массива..

[SnakeMan]

Добрый день!
Пытаюсь прочитать из текстового файла строки в массив, но при исполнении почему то вылетает с сообщением Access Violation.

Вот кусок этого кода:

...
var
  Form1       : TForm1;
  F, F1,
  Ftemp       : TextFile;
  RGIFileName,
  Cod         : String;
  Ch          : Char;
  Unsisable   : Array of String;
  implementation
...
procedure TForm1.FormShow(Sender: TObject);
var
 i  : Integer;
 St : String;
begin
 AssignFile (F1,'Gin2Geop.ini');
 Reset (F1);
 i:=0;
 repeat
  ReadLn (F1, St);
  if (St<>'')or(St>#13) then
   Unsisable [i]:=St;
  i:=i+1;
 until EOF(F1)or(St[1]='~')and(i>1);
 CloseFile (F1);
end;

Поясните, где тут собака порылась.... плз.

[Sibedir]

Access Violation - Нарушение доступа.
Может файл забыл закрыть. Например, если аварийно вышел из программы до выполнения CloseFile.

[SnakeMan]

Эта процедура вызывается в самом начале выполнения программы и никакие модули с этим файлом больше не общаются... Ошибка возникает именно на строке

Unsisable [i]:=St;

[Sibedir]

Ага, супер. А кто будет задавать размер массива.
Мож так:

SetLength (Unsisable, Length (Unsisable) + 1);
Unsisable [i]:=St;

[_Dmitry]

Не назначил размер динамического массива Unsisable

Sorry, не заметил предыдущих постов

[SnakeMan]

Мда... Косяк с моей стороны!

Спасиб!

[puporev]

Если F1:TextFile, т.е. с расширением *.txt, то разве он откроет файл *.ini?

[Sibedir]

А, коры. Разом ответили.

[Sibedir]

разве он откроет файл *.ini?

Да хоть *.exe.