list index out of bounds

[Bakdaulet]

Всем привет у меня проблема в программе. При добавлений файла к списку все работает, но если закрыть форму и заново зайти то выходить ошибка list index out of bounds (разные цифры) при нажатии на listbox. Помогите с проблемой ? Очень нужно решить!
P.S. Работает только Учебно-методическая работа->Перспективный план->2010-2015 Перспективный план.

[TaLadno]

как воспроизвести твою ошибку? что-то у меня не получается
пиши пошаговые действия

    mm1: TMainMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N20101: TMenuItem;
    N201620211: TMenuItem;
    N14: TMenuItem;
    N201420151: TMenuItem;
    N201520161: TMenuItem;
    N1: TMenuItem;
    N15: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;

За такие названия я бы тебя на второй год оставил, в армии.

[Bakdaulet]

Добавляется файл к списку закрываем форму обратно заходим и нажимаем на listbox.

[Bakdaulet]

Уж извините надо до субботы сделать а работы много(((

[TaLadno]

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

пиши пошаговые действия

Ну что не понятного то? Оно кому надо, мне или тебе?
Говорю же - не воспроизводится, а это значит или я что-то НЕ так делаю, или ты что-то НЕ договариваешь



Даже на твоем ехе у мну не воспроизвелось

[Bakdaulet]

Вот на примерах

[Bakdaulet]

При нажатии на ListBox

[TaLadno]

Ты не поверишь, но не воспроизводится. Пробуй дебажить методы:

procedure TForm3.FormActivate(Sender: TObject);
procedure TForm3.listbox2Click(Sender: TObject);
procedure TForm3.FormCreate(Sender: TObject);

Как же спойлеров не хватает этому форуму, ппц

[Bakdaulet]

Попробую. Вот и код забыл извините)))

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,ShellAPI;

type
  TForm3 = class(TForm)
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    edit2: TEdit;
    edit3: TEdit;
    lbl1: TLabel;
    lbl2: TLabel;
    listbox2: TListBox;
    opendialog2: TOpenDialog;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure listbox2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure listbox2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
qfiles:tstringlist;
qlistfile,qfilefile:string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm3.btn1Click(Sender: TObject);
begin
opendialog2.InitialDir:=getcurrentdir;
if opendialog2.Execute then
begin
listbox2.Items.Add(extractfilename(opendialog2.FileName));
qfiles.Add(opendialog2.FileName);
end;
end;

procedure TForm3.btn2Click(Sender: TObject);
begin
if ListBox2.ItemIndex>-1 then
begin
qfiles.Delete(listbox2.ItemIndex);
listbox2.Items.Delete(listbox2.ItemIndex);
edit2.Text:='';
edit3.Text:='';
end
else
showmessage('Âûáåðèòå ïóíêò â ñïèñêå!');
end;

procedure TForm3.btn3Click(Sender: TObject);
begin
opendialog2.InitialDir:=getcurrentdir;
if opendialog2.Execute then
begin
edit2.Text:=extractfilename(opendialog2.FileName);
edit3.Text:=opendialog2.FileName;
end;
end;

procedure TForm3.btn4Click(Sender: TObject);
begin
Close;
end;

procedure TForm3.btn5Click(Sender: TObject);
begin
  if listbox2.ItemIndex>-1 then
begin
if edit2.Text='' then
begin
showmessage('Ââåäèòå ïóíêò!');
exit;
end;
if edit3.Text='' then
begin
showmessage('Ââåäèòå ôàéë!');
exit;
end;
if not fileexists(edit3.Text) then
begin
showmessage('Òàêîãî ôàéëà íå ñóùåñòâóåò!');
exit;
end;
listbox2.Items[listbox2.ItemIndex]:=edit2.Text;
qfiles[listbox2.ItemIndex]:=edit3.Text;
end
else
showmessage('Âûáåðèòå ïóíêò â ñïèñêå!');
end;

procedure TForm3.listbox2Click(Sender: TObject);
begin
if ListBox2.ItemIndex>-1 then
begin
edit2.Text:=listbox2.Items[listbox2.ItemIndex];
edit3.Text:=qfiles[listbox2.ItemIndex];
end;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
 qfiles := tstringlist.Create;
  qlistfile := getcurrentdir + '\list1.txt';
  qfilefile := getcurrentdir + '\files1.txt';
  if fileexists(qlistfile) and fileexists(qfilefile) then
  begin
    ListBox2.Items.LoadFromFile(qlistfile);
    qfiles.LoadFromFile(qfilefile);
  end;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
listbox2.Items.SaveToFile(qlistfile);
qfiles.SaveToFile(qfilefile);
qfiles.Free;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
qfiles:=tstringlist.Create;
qlistfile:=getcurrentdir+'\list1.txt';
qfilefile:=getcurrentdir+'\files1.txt';
if fileexists(qlistfile)and fileexists(qfilefile) then
begin
listbox2.Items.LoadFromFile(qlistfile);
qfiles.LoadFromFile(qfilefile);
end;
end;

procedure TForm3.listbox2DblClick(Sender: TObject);
begin
if listbox2.ItemIndex>-1 then
ShellExecute(Handle,'open',pchar(qfiles[listbox2.ItemIndex]),nil,nil,SW_SHOWNORMAL) ;
end;

end.

[Bakdaulet]

Спасибо добрый человек проблема оказался в моем ноутбуке ((( В других пк нормально работает!