Hej Ove Kjeldgaard
Har nu arbejdet med dit forslag.
>Jeg har tit inifilens Create i FormCreate proceduren
>og inifilens Free i FormClose proceduren hvis jeg skal opdatere noget
undervejs.
Hvad menes eller hvor meget af mine kodeeksempel skal placeres i inifilens
Free i FormClose proceduren? For opdatering!
I dit kodeeksempel: IniFileError := True - Dette virker ikke!
Helle min kode:
procedure TForm1.FormCreate(Sender: TObject);
Begin
Memo1.Clear;
Edit1.Clear;
PathToINIFile := 'c:\Settings.ini';
MyINI := TINIFile.Create(PathToINIFile);
If Not FileExists(MyINI.FileName) Then
Begin
MessageDlg( 'Kan ikke finde opsætningsfilen: ' +
UpperCase( MyINI.FileName ) + #13#10 +'Settings.ini',
mtError, [mbOk], 0 );
IniFileError := True; Dette virker ikke
end;
MyINI.WriteString('sektionen', 'Bibliotek', 'c:\Settings.ini');
Edit1.Text := MyINI.ReadString('sektionen', 'Bibliotek', 'Værdi mangler');
{Listning af indholdet i sektionen og værdi}
MyINI.ReadSectionValues('sektionen',Listbox1.Items);
MyINI.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MyINI := TINIFile.Create(PathToINIFile);
MyINI.WriteBool('sektionen', 'Bibliotek', True);
end;
--
Med venlig hilsen
Monie Jacobsen
E-mail: mjs@nypost.dk
"Ove Kjeldgaard" <ReadMyEmail@The.Signature> skrev i en meddelelse
news:t9pc2093vqs1d2hphuon9pdcksts6nd7r2@4ax.com...
> "Monie Jacobsen" <post@sunwind.dk> wrote:
>
> >Kunne godt tænke mig, at første gang programme startet op og
> >inden INI filen skal gemmes, så kan man med LMDFileOpenEdit1
> >eller en anden af LMD komponenterne, vælge det dir man ønsker sin
> >Settings.ini gemt i.
> >Da jeg ikke har de store erfaringer med LMD-tools endnu, vil det være
fint
> >med eksempel.
> >
>
> Jeg kender ikke noget som helst til de komponenter, men hvorfor ikke bruge
en
> nem og automatisk måde?
>
>
> Jeg bruger rigtig meget at lade et programs inifil ligge i samme folder
som
> programmet selv, og jeg lader inifilen have samme fornavn som programmet.
>
> Der skal meget lidt til at lave dette:
>
> MainIniFile := TIniFile.Create( ChangeFileExt( ParamStr(0), '.INI' ) );
> { Læse og skrive til MainIniFile }
> MainIniFile.Free;
>
> Jeg har tit inifilens Create i FormCreate proceduren og inifilens Free i
> FormClose proceduren hvis jeg skal opdatere noget undervejs.
>
>
> Det kan også i nogle tilfælder være en god ting at lave en test som denne
lige
> efter TIniFile.Create linien:
>
> If Not FileExists( MainIniFile.FileName ) Then
> Begin
> Show;
> MessageDlg( 'Kan ikke finde opsætningsfilen: '#13#10#13#10 +
> UpperCase( MainIniFile.FileName ) + #13#10,
> mtError, [mbOk], 0 );
> IniFileError := True;
> End
>
> Og så lidt efter hvad programmet skal gøre kan der vælges at terminere
eller
> fortsætte med standard opsætning.
>
>
> --
> Med venlig hilsen, Ove Kjeldgaard, nospam AT privat DOT dk
> Natur og Friluftsliv: <
http://hiker.dk>