Сохранение динамического массива

[Horus92]

Здравствуйте,у меня проблема я сохранняю массив вроде бы все нормально но при открытии в массиве данных нет.
вот мой код:

type link=record
rate:integer;
title,path,keyw,comments:string[255];
end;
links=array of link;
var p:links;   n:integer;

Сохранение:

procedure TForm1.N4Click(Sender: TObject);
var
  F:TFileStream; g:file of link;  i:integer;
begin
  if not savedialog1.Execute then exit;//Сохранение массива
    assignfile(g,savedialog1.FileName);
    rewrite(g);
    for i:=1 to high(p) do
    write(g,p[i]);
finalize(g);
if not savedialog1.Execute  then exit;
  F:=TFileStream.Create(savedialog1.FileName, fmCreate or fmShareCompat);
  try //Сохранение treeview 
    F.WriteComponent(TreeView1);
  finally
    F.Free;
  end;
end;

Открытие:

procedure TForm1.N3Click(Sender: TObject);
var  F:TFileStream; g:file of link; i:integer;//открытие массива
begin
i:=1;
if not opendialog1.Execute then exit;
assignfile(g,opendialog1.FileName);
reset(g);
while not EOF(g) do
begin
setlength(p,i+1);
read(g,p[i]);
end;
finalize(g);
if not opendialog1.Execute then exit;
  F:=TFileStream.Create(opendialog1.filename, fmOpenRead or fmShareDenyWrite);
  try
    F.ReadComponent(TreeView1);
  finally
    F.Free;
  end;
end;

[Stilet]

finalize(g);

А че CloseFile уже отменили?
Файл то хоть наполняется?

setlength(p,i+1);

Луче так:

setlength(p,length(p)+1);
read(g,p[high(p)]);

[Serge_Bliznykov]

А кто в цикле будет I увеличивать!?!?!?
Кроме того, т.к. размер типизированного файла всегда равен количеству записей, то можно setlength вынести за цикл:

reset(g);
k := FileSize(f);
setlength(p,k);
while not EOF(g) do
begin
  read(g,p[i]);
  inc(i);
end;

[Horus92]

Я уже разобрался