INI filer i Delphi

Inifiler er guld værd som programmør.
Hvis man skal gemme nogle indstillinger som er nemme at finde igen uden at
skulle sæge alt igennem pga det er inddelt i sektioner, plus man kan kopiere
indstillingerne fra computer til computer uden at lege med Windows
Registrerings Databasen.
Dette er nok hived grundede til at næsten alle programmøre bruge inifiler.
Denne guide/artikel vil prøve at hjælpe dig igang med at bruge inifiler til at
læse/skrive strings til/fra inifiler.

En inifil er opbygget på en lidt anden made end en nprmal text file.
En inifil er inddelt i sektioner så det er nemmere at finde rundt.
Eksempel på inifil:

[Show]
toolbar1=true

[MRU]
1=C:\\dokumenter\\website\\index.php
2=C:\\dokumenter\\website\\about.php

For at bruge INI Filer i Delphi skal du bruge et komponent der hedder Tinifiles.
Komponenter er ikke lige at finde i toolbaren med alle komponenterne så for
at bruge det i ens program skal man tilføje linien ”inifiles” i sin ”uses” list.
(listen over alle brugte dcu filer).
For at få Delphi til at åbne en inifile skriver man

Var
Inifil: tinifile;
Begin
Inifil:= tinifile.create(stien til filen) 
(hvis i filen ligger i samme mappe som programmet kan man bare skrive filens navn. )
(ex: ’settings.ini’) 

Filen er nu åbnet af Delphi.
Men vi skal jo også have nogle data ud af filen.
Dette gøres ved at bruge:
Readstring, readsection, readbool eller readsections.
Readstring er bygget op ved at man skriver

Inifil.readstring(sektion, text, default værdi)

Det første man skriver er den sektion hvor det står (opbygning af inifiler)
Det næste er den tekst som = den string man gerne vil ha
(ex: text=Inifiler Styrer)
Det sidste er den string Delphi skal bruge hvis der ikke står noget efter =.
(ex: Text=)

Textbox1.text:= inifil.readstring(section, string, defaulttext)

Eksempel på at bruge det.

Textbox1.text:= inifil.readstring(’text’. ‘textbox’, ‘Fejl under læsning af string’)

I dette eksempel sæter vi Textbox1.text til at være det der står efter ”text=” i inifilen.
Og hvis der ikke står noget bliver textbox1.text ’Fejl under læsning af string’.
Så hvis inifilen ser sådan her ud:

[Text]
Textbox=Inifiler Styrer!

Vil der i Textbox1.text stå Inifiler Styrer! Hvis inifilen derimod ser sådan her ud

[Text]
Textbox=

Så vil der står Fejl under læsning af string.

For at gemme i en inifil bruger man

Inifil.writestring

Dette er bygget op ved at man skriver

Inifil.writestring(sektion, text, værdi)

Det første man skriver er den sektion hvor det står (opbygning af inifiler)
Det næste er den tekst som = den string man gerne vil ha (ex: text=Inifiler Styrer)
Det sidste er så værdien. (ex: Inifiler Styrer)
Nu prøver vi så at skrive teksten fra Textbox1.text til inifilen.

Inifil.writestring(’Text’, ’Textbox’, textbox1.text);

Hvis textbox1.text = Inifiler er seje kommer inifilen til at se sådan her ud

[Text]
Textbox=Inifiler er seje

Eksempel på brug af inifiler. (læse)

Var 
Inifil: tinifile;
Begin læsini
Inifil:= inifil.create(’settings.ini’)
Try
Textbox1.text:= inifil.readstring(‘text’, ‘textbox’, ‘Fejl under læsning af fil’);
Finally
Inifil.free;

Eksempel på brug af inifiler. (Skrive)

Var 
Inifil: tinifile;
Begin skrivini
Inifil:= inifil.create(’settings.ini’)
Try
Inifil.writestring(‘Text’, ‘Textbox’, textbox1.text)
Finally
Inifil.free;