При попытке присвоения данных из файла(через FileStream) динамическому массиву, вылетает ошибка. Если массив обычный,то работает все нормально, что сделать что бы и с динамическим было тоже самое?
Текст программы:
Код:
var
Form1: TForm1;
A: Tfilestream;
data: array of integer;
i: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(data,100);
if opendialog1.Execute then
A:=Tfilestream.Create(opendialog1.FileName, fmOpenRead);
A.Read(data,sizeof(data));
for i:=0 to 99 do
begin
memo1.Lines.Add(inttostr(data[i]));
end;
end;
Причем ошибка вылетает на строчке с memo:
