Hi,
Tinifile works very well on linux! Here is an example on how I use it
function PowertuxAlreadyRun(RS:char): boolean;
var
FCFGFile : TINIFile;
...
TMPStr := TUXHOMEDIRECTORY + '/ConfigurationFiles/PowerTux.cfg' ;
FCFGFile:= Tinifile.create(TMPStr);
...
if RS = 'R' then
begin {R}
PreviousPID := FCFGFile.ReadInteger('PID','previous',-999);
str(PreviousPID,PreviousPIDstr);
...
end; {R}
//
if RS = 'S' then
begin {R}
...
FCFGFile.Writeinteger('PID','previous',-999);
Result := false; // this value is not important
end; {S}
//
...
// Save file before Quit
// both for the R and S
FCFGFile.UpdateFile;
FCFGFile.free;
...
end; {PowertuxPID}
...
On Tue, 2006-03-07 at 22:05 +0100, Michael Van Canneyt wrote:
>
> On Tue, 7 Mar 2006, Marco Meile wrote:
>
> > Procedure Tform1.formshow(Sender: Tobject);
> > var
> > sec:string;
> > path:string:
> > ini:tinifile:
> > begin
> > init := Tinifile.create('notice.ini');
>
> This can't compile. it should be ini, not init ?
>
> > try
> > sec:= 'database';
> >
> > mysqldatabase1.hostname :=
> > ini.readstring(Sec,'host','127.0.0.1');
> > finally
> > ini.freel;
>
> what is freel ?
>
> > end;
> > end;
> >
> >
> > This is My Code, and this Does NOT work
>
> What exactly does not work ? You must provide more information.
>
> Michael.
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
