putanja prema bazi

Koristim Delphi 7 i IB. Zelim da napravim da se pri pokretanju programa kreira .ini fajl, u njega upisuje putanja do baze koju koristi .exe i da se potom taj podatak izcita i dodeli parametru DatabaseName:

kod koji sam ukucao je sledeci:

procedure Tforma1.FormCreate(Sender: TObject);
var
myINI : TINIFile;
putanjadb:string;
putanja:String;
begin
myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'db.ini');
myINI.WriteString('BAZA', 'putanjadb',':'+ ExtractFilePath(Application.EXEName) + 'PROBA.GDB');
myINI.Free;
putanja:=myINI.ReadString('BAZA','putanjadb','');
baza.DatabaseName:=putanja;
end;

.ini fajl uspesno kreira, medjutim, prijavljuje mi sledecu gresku:
Access violation at address 00B57918. Write of address 00567F31

Debagovanjem sam utvrdio da se to desi u momentu kada bazi zelim da prosledim baza.DatabaseName:=putanja;

Gde gresim?

Hvala

> .ini fajl uspesno kreira, medjutim, prijavljuje mi sledecu gresku:
> Access violation at address 00B57918. Write of address 00567F31
> myINI.Free;
> putanja:=myINI.ReadString('BAZA','putanjadb','');

Access Violation obično označava korišćenje memorije nad kojom se nema prava (memorija je oslobođena), ti u kodu imaš najmanje jednu takvu grešku.
Prvo uništavaš myIni objekat i u narednom redu ga koristiš, objekat ne smeš uništiti sve dok se koristi.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Promenio sam deo koda myINI.Free.

Sada mi puca (sa slicnom greskom, samo sto kaze da je greska u modulu program.exe) kada zelim da dodelim putanju bazi.

putanja:=myINI.ReadString('BAZA','putanjadb',''); -->vrednost je prosledjena promenljivoj putanja
baza.DatabaseName:=putanja; -->program pravi break

Kuda dalje?

Razmisli o ovom delu koda!?! Odnosno, šta si prethodno odradio sa myINI...

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Kod sada izgleda ovako:

putanja:=myINI.ReadString('BAZA','putanjadb','');
baza.DatabaseName:=putanja;
myINI.Free;

Znaci, myINI.Free sam prebacio posle dodeljivanja i sada mi pravi problem kada zelim da daodelim bazi putanju.

Koji exception?

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.

Project program.exe raissed exception class EAccessViolation with message 'Access violation at address 0056831F in module 'program.exe'. Read of address 00000058'. Process stopped. Use Step or Run to continue.