end; / / aKTHBH3aUHH (JlOpMBI procedure TForml.FormActivate(Sender: TObject);
begin with Session do
begin ConfigMode := cmSession;
try {E cjih (Jiaitri ziaHHbix HaxoziHTbCfi b to m xe KaTanore, mto h
B tinojiH aeM tie dpaVui IIporpaMMBi, t o b IIporpaMMe nyTB k (Jjaiuiy
ziaHHbix mo>iceTS b itb nojiyLieH H3 i<0\iaHziH0H c tp o k h npn noviouiH
(JtyHKijHH Extract File Path (Param Str(o)).
B npHBe^eHHOM npHMepe (JiaiiJi ^aHHBix Haxo^HTBca b
no^K aT ajiore DATA K aTajiora IIporpaMMBi. }
/ / co3A a^H M B peM eH H B iii nceB ^O H H M A Jia 6a3B I ^aH H B I
AddStandardAlias( 'Shkola',
ExtractFilePath(ParamStr(0))+' DATA\',
'PARADOX');
Tablel.Active:=True; // OTKpoeM 6a3y ziaHHbi
fmally
ConfioMode := cmAll;
end; end; end; end. Bu dasturda ma’lumotlar bazasi dastur joylashgan katalogning
DATA ostki katalogida joylashgan deb hisoblanadi. Psevdonim
TForml.FormActivate protsedurasidayaratiladi. Psevdonim yaratishni
AddstandardAlias protsedurasi bajaradi. Protseduraga parametr sifatida
psevdonim nomi va unga mos katalog nomi beriladi. Katalog nomi
ParamStr(O) va ExtractFilePatch funksiyalarga murojaat qilish
yordamida aniqlanadi. Birinchi funksiya qiymati —dastur faylining
to ‘liq nomi, ikkinchisi shu faylga yo‘l. Shunday qilib —
AddstandardAiias protsedurasiga ma’lumotlarbazasi katalogining toliq
nomi beriladi.
