Re: [lazarus] Tinifile path

[bobby]

Marco Meile wrote:

Procedure Tform1.formshow(Sender: Tobject);
var
sec:string;
path:string:
ini:tinifile:
begin
    init := Tinifile.create('notice.ini');
    try
       sec:= 'database';

    mysqldatabase1.hostname      :=
ini.readstring(Sec,'host','127.0.0.1');
    finally
    ini.freel;
    end;
end;


This is My Code, and this Does NOT work

i have not a reason, please help me :(

Procedure Tform1.formshow(Sender: Tobject);
var
 sec:string;
 My_ini_file:TIniFile;
begin
   My_ini_file := TIniFile.create('notice.ini');
   try
     sec:= 'database';
     mysqldatabase1.hostname := My_ini_file.readstring(sec,'host','127.0.0.1');
   finally
     My_ini_file.free;
   end;
end;

_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives