Ошибка: "Access violation at address 00454F01 in module 'Project1.exe'. Read of address 00000000.

[Fen1x]

Вот код прогаммы:

.................................................
.................................................
z:TStrings;
................................................
.................................................
procedure TForm1.Button9Click(Sender: TObject);
var
i:integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
if OpenDialog1.Execute then
  begin
  for i:=0 to OpenDialog1.Files.Count-1 do
  begin
    ListBox1.Items.Add('1. '+ExtractFileName(OpenDialog1.Files[i]));
    z.Add(OpenDialog1.Files[i]);// тут ошибка
  end;
  end;
end;

Ошибка говорит: "Access violation at address 00454F01 in module 'Project1.exe'. Read of address 00000000." Помогите пожалуйста, я уже измучился

PS
Не ругайтесь если спросил, что то глупое. Delphi изучаю всего месяц.

[mihali4]

Сообщение от Fen1x

Не ругайтесь если спросил, что то глупое. Delphi изучаю всего месяц.

У нас не ругаются, а помогают и объясняют.

var
  Form1: TForm1;
  z: TStrings;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
if OpenDialog1.Execute then
  begin
  for i:=0 to OpenDialog1.Files.Count-1 do
  begin
    ListBox1.Items.Add('1. '+ExtractFileName(OpenDialog1.Files[i]));
    z.Add(OpenDialog1.Files[i]);// òóò îøèáêà
  end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
z:=TStringList.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
z.Free;
end;

end.

Объявить Z - мало, нужно еще и создать. А чтобы не было "утечки" памяти, еще и уничтожить...

[Fen1x]

Спасибо большое! Очень благодарен!

[Alex21]

Внес небольшие изменения:

    ListBox1.Items.Add(inttostr(i+1)+'. '+ExtractFileName(OpenDialog1.Files[i]));
    z:=(OpenDialog1.Files);

Z - список. Ты добавляешь из OpenDialoga файлы списком, а не по одному. т.е. никаких [i] в добавлении не надо.
А создавать/уничтожать здесь по идее не надо.

[Fen1x]

На счет intostr(i+1) я сам заметил уже, а вот за Z спасибо, а то я хотел уже писать о ошибке! Еще раз спасибо всем!

[Fen1x]

z:=(OpenDialog1.Files);

Хе-хе не правильно чуть чуть... В этом случае каждый раз при открытие файлов, в Z пути к файлам будут записываться по новой. А мне надо, что бы добавлялись... Но в случае

z.Add(OpenDialog1.Files[i]);

вылазиет ошибка "Obstact error". Что делать???

[mihali4]

А создавать/уничтожать здесь по идее не надо.

Нужно, сэ-э-р! Проведите эксперимент...

вылазиет ошибка "Obstact error". Что делать???

Изменил на
ListBox1.Items.Add(inttostr(i+1)+'. '+ExtractFileName(OpenDialog1.Files[i]));
Проверил у себя. Никакой ошибки по моему варианту.

[Alar]

По теме -
http://delphibasics.ru/TOpenDialog.php

http://delphibasics.ru/TStringList.php

[Fen1x]

Извиняюсь, я все исправил! Еще раз всем ответившим, огромный респект!