hmmm, wtf?
is this a joke?
Alain Michaud wrote:
>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
>
>
>
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
