|
|
 |
 |
 |
Artykuły |
 |
|
Pliki INI i INC
10:08:18 29.05.2005
@Gujet
Witam,
Ten artykuł będzie o obsłudze plików INI oraz INC. Na pierwszy ogień pójdą pliki INI. Plik INI zbudowany jest w następujący sposób:
[Sekcja1]
Nazwa=Wartość
InnaNazwa=InnaWartość
[Sekcja2]
Nazwa=Wartość
InnaNazwa=InnaWartość
Żeby obsłużyć taki plik najpierw należy dodać do listy uses moduł IniFiles, a następnie zadeklarować zmienną:
Var
Ini : TiniFile;
Potem należy "stworzyć" tą zmienną:
Ini:=TiniFile.Create(NazwaPlikuIni);
Kiedy zakończymy operację na pliku INI należy zwolnić zmienną:
Ini.Free;
Teraz sobie odczytamy kilka zmiennych:)
ZmiennaBoolean:=Ini.ReadBool(Sekcja, Nazwa, WartośćDomyślna);
ZmiennaDate:=Ini.ReadDate(Sekcja, Nazwa, WartośćDomyślna);
ZmiennaDateTime:=Ini.ReadDateTime(Sekcja, Nazwa, WartośćDomyślna);
ZmiennaFloat:=Ini.ReadFloat(Sekcja, Nazwa, WartośćDomyślna);
ZmiennaInteger:=Ini.ReadInteger(Sekcja, Nazwa, WartośćDomyślna);
ZmiennaString:=Ini.ReadString(Sekcja, Nazwa, WartoścDomyślna);
Itd...:)
Wartość Domyślna, jest to wartość, jaka zostanie zwrócona w przypadku gdy nie powiedzie się odczytanie wartości z pliku. Wartość domyślna musi być takiego samego typu, jak wartość, którą chcemy odczytać. Np. chcemy odczytać wartość string, więc Wartość Domyślna też musi być typu string.
Teraz czas na zapisywanie.
Ini.WriteBool(Sekcja, Nazwa, WartośćBoolean);
....reszta analogicznie:)
Jeśli chcemy sprawdzić czy dana sekcja istnieje, to musimy posłużyć się takim warunkiem:
If Ini.SectionExists(NazwaSekcji) then ...
A taki kodzik potrzeby jest do sprawdzenia czy istnieje dana nazwa w danej sekcji:
If Ini.ValueExists(NazwaSekcji, NazwaWartości) then ...
Aby usunąć sekcję należy wyklepać:
Ini.EraseSection(NazwaSekcji);
A tak usuwa się nazwę wraz z jej wartością:
Ini.DeleteKey(NazwaSekcji, NazwaWartości);
Jeśli nie wiemy jakie mamy sekcje w pliku, to najpierw deklarujemy następującą zmienną:
Lista : TStringList;
Potem tworzymy:
Lista:=TStringList.Create;
Na końcu odczytujemy sekcje:
Ini.ReadSection(Lista);
Albo nazwy wartości w sekcji:
Ini.ReadSection(Sekcja, Lista);
Albo wartości sekcji:
Ini.ReadSectionValues(Sekcja, Lista);
Na koniec możemy zapisać to do Memo:
Memo1.Lines:=Lista;
I to tyle jeśli chodzi o pliki INI. Taki plik można stworzyć w Notatniku albo w Delphi. Można je wykorzystywać do przechowywania ustawień programów i wielu innych rzeczy.
Teraz czas na pliki INC.
Są to pliki, w których przechowywany jest kod (lub jego części). Plik INC można stworzyć w Notatniku (albo w Delphi:)) Przykładowy plik INC może wygladać tak:
Begin
Messagebox(handle,'Cze!','Witam!',MB_OK);
End;
Jeśli chcemy wstawić kod z tego pliku, to piszemy coś takiego:
{$I PLIK.INC}
Na przykład:
for 1 to 100 do
{$I PLIK.INC}
Oczywiście tu nie potrzebne są begin i end (w pliku INC), ale jeśli bedą tam dwie albo więcej procedurek i będziemy chcieli je wziąć w petlę, to wtedy owszem. To tyle jeśli chodzi o pliki INC. Do następnego...artykułu.
Gujet (gujet@o2.pl)
Komentarzy: 0 | Głosuj (1,
2,
3,
4,
5,
6) | Ocena: 3.33 | Czytane: 2024 |  |
|
Komentarze |
|
|
Musisz się zalogować aby mieć możliwość komentowania
| |
|
|
|
