Чтение из файла smallint

[Лурье]

Здраствуйте, очень нужна помощь:
Есть файл, состоящий из значений smallint. Количество большое, так что лучше читать "до конца файла". Полученное записать в массив.

Заранее благодарен.

з.ы. Открывать файл желательно через "диалог", чтоб был выбор.

[Selestis]

var f: file of smallint;

AssignFile(f,OpenDialog1.FileName);
Reset(f);
while not eof(f) do begin
inc(n);
read(f,Arr[n]);
end;

[Лурье]

Выдает ошибку уже при нажатии на кнопку открытия диалога.

[Hottabych]

procedure TForm1.btnLoadClick(Sender: TObject);
var
f: file of smallint;
begin
if OpenDialog1.Execute then 
 begin
   AssignFile(f,OpenDialog1.FileName);
   Reset(f);
   while not eof(f) do begin
   inc(n);
   read(f,Arr[n]);
   CloseFile(f);
 end;

Так должно работать

[Лурье]

Спасибо, но теперь та же ошибка после выбора файла.

procedure TForm1.Button1Click(Sender: TObject);
var
f: file of smallint;
n: integer;
arr: array[1..20000] of smallint;
begin
n:=1;

AssignFile(f,OpenDialog1.FileName);
if OpenDialog1.Execute then
begin
Reset(f);
while not eof(f) do
begin
inc(n);
read(f,Arr[n]);
end;
CloseFile(f);
end;
end;


end.

[Hottabych]

Неправильный путь к файлу... И про переменные не забудь...

[Hottabych]

Процедура AssignFile(f,OpenDialog1.FileName) должна быть вызвана после выполнения OpenDialog, т.к. ей передается OpenDialog1.FileName...
Смотри код выше..

[Лурье]

Спасибо огромное, извините зе невнимательность. Если будут вопросы - напишу. Еще раз - спасибо.