Всем привет
возникла одна проблема
у меня есть компонент treeview, туда я добавляю пункты и к каждому пункту я присваиваю пути к файлам word
после чего эти файлы при нажатии на определенный пункт должны открыться в olecontainer
так вот после перезагрузки, программа выдает ошибку, что не может найти файл
в чем может быть проблема?
если кто не понял я кинул полный исходник.
для работы нужен альфаконтроль
Код:
{ Public declarations }
end;
type
soder=record
name: string;
adrestheors: string;
adrespractic: string;
adrestask: string;
adrestest: string;
adresvideo: string;
adrespresent: string;
end;
var
Form2: TForm2;
i, k: integer;
put: string;
ar: array[0..100] of soder;
prov: array[0..100] of boolean;
implementation
uses Unit3, Unit4, Unit5;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
for i:=0 to 100 do
begin
ar[i].name:='';
ar[i].adrestheors:='';
ar[i].adrespractic:='';
ar[i].adrestask:='';
ar[i].adrestest:='';
ar[i].adresvideo:='';
ar[i].adrespresent:='';
end;
k:=0;
for i:=0 to 100 do
prov[i]:=false;
end;
procedure TForm2.sButton7Click(Sender: TObject);
begin
form2.streeView1.LoadFromFile('tree.kiss');
form2.smemo1.Lines.LoadFromFile('memo.kiss');
k:=strtoint(form2.smemo1.Lines[0]);
form2.smemo1.Lines.LoadFromFile('names.kiss');
for i:=0 to k-1 do
ar[i].name:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adrestheors.kiss');
for i:=0 to k-1 do
ar[i].adrestheors:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adrespractic.kiss');
for i:=0 to k-1 do
ar[i].adrespractic:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adrestask.kiss');
for i:=0 to k-1 do
ar[i].adrestask:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adrestest.kiss');
for i:=0 to k-1 do
ar[i].adrestest:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adresvideo.kiss');
for i:=0 to k-1 do
ar[i].adresvideo:=form2.smemo1.Lines[i];
form2.smemo1.Lines.LoadFromFile('adrespresent.kiss');
for i:=0 to k-1 do
ar[i].adrespresent:=form2.smemo1.Lines[i];
end;
procedure TForm2.sTreeView1Click(Sender: TObject);
begin
теория.TabVisible:=false;
практика.TabVisible:=false;
задания.TabVisible:=false;
тесты.TabVisible:=false;
видеоуроки.TabVisible:=false;
stabsheet6.TabVisible:=false;
for i:=0 to streeview1.Items.Count-1 do
if streeview1.Items.Item[i].Selected then
begin
sPagecontrol1.Visible:=true;
break;
end
else
sPagecontrol1.Visible:=false;
for i:=0 to k do
if streeview1.Selected.Text=ar[i].name then
begin
if ar[i].adrestheors<>'' then
begin
OleContainer1.Visible:=true;
OleContainer1.CreateObjectFromFile(ar[i].adrestheors, false);
теория.TabVisible:=true;
end;
if ar[i].adrespractic<>'' then
begin
OleContainer2.Visible:=true;
OleContainer2.CreateObjectFromFile(ar[i].adrespractic, false);
практика.TabVisible:=true;
end;
if ar[i].adrestask<>'' then
begin
OleContainer3.Visible:=true;
OleContainer3.CreateObjectFromFile(ar[i].adrestask, false);
задания.TabVisible:=true;
end;
if ar[i].adrestest<>'' then
begin
OleContainer4.Visible:=true;
OleContainer4.CreateObjectFromFile(ar[i].adrestest, false);
тесты.TabVisible:=true;
end;
if ar[i].adresvideo<>'' then
begin
OleContainer5.Visible:=true;
OleContainer5.CreateObjectFromFile(ar[i].adresvideo, false);
видеоуроки.TabVisible:=true;
end;
if ar[i].adrespresent<>'' then
begin
OleContainer6.Visible:=true;
OleContainer6.CreateObjectFromFile(ar[i].adrespresent, false);
stabsheet6.TabVisible:=true;
end;
if spagecontrol1.ActivePageIndex=0 then
put:=ar[i].adrestheors;
if spagecontrol1.ActivePageIndex=1 then
put:=ar[i].adrespractic;
if spagecontrol1.ActivePageIndex=2 then
put:=ar[i].adrestask;
if spagecontrol1.ActivePageIndex=3 then
put:=ar[i].adrestest;
//if spagecontrol1.ActivePageIndex=4 then
//put:=ar[i].adresvideo;
//if spagecontrol1.ActivePageIndex=5 then
//put:=ar[i].adrespresent;
end;
end.