Benutzung von INI-Files (INI-Dateien)

Chatfix · Verfasst: Di 06.05.03 15:55

ja schon weil das programm sonst nen fehler bringt wenn bei der erstelliung der daten fehler aufkommen

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

del1312 · Beiträge: 190

Hm ... bekomme immer die Fehlermeldung:
"Undefinierter Bezeichner: 'TIniFile'"

Hab das hier zu stehen:

Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile : TIniFile;
begin
   IniFile := TIniFile.Create('c:\Test.ini')

end;

Wenn ich das richtig seh sollte bei Klick auf den Button eine IniDatei erstellt werden oder?

Ehemaliges Mitglied Erhaltene Danke: 1

Wer lesen kann ist klar im Vorteil. :roll:

Zitat:

1. Erste Schritte

Als erstes erweitern wir die Uses-Liste:

markieren

Delphi-Quelltext

1:
2:

Code: 
  Uses {...}, inifiles;

del1312 · Beiträge: 190

Oh sorry wo hab ich wieder meine Augen :oops:

Hab mal nen kleines Prog gebastelt, welches den Wert einer CheckBox in einer INI speichert. Das schreiben klappt supi nun wollte ich es wieder auslesen und dann kommt ne Fehlermeldung.
Hier der Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  ini:Tinifile;
  schreiben,lesen:integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
If CheckBox1.Checked = true  then schreiben := 1 ;
If CheckBox1.Checked = false then schreiben := 0 ;

ini := TIniFile.Create('c:\test.ini');
     // INI erstellen und falls vorhanden initialisieren
try
ini.WriteInteger('Autosave','Eigenschaft',schreiben);
     // Intergerwert (1234) in Sektion2 unter Eigenschaft2 abspeichern
finally
  ini.Free;
     // Variable ini wieder freigeben
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ini := TIniFile.Create('c:\test.ini');
try
lesen := ini.ReadInteger('Autosave','Eigenschaft',);

If lesen: = 1 then CheckBox1.Checked = true ;
If lesen:=0 then CheckBox1.Checked = false;
finally
  ini.Free;

end;
end;

end.

Chatfix · Verfasst: Mo 02.06.03 13:44

hier liegt dein fehler:

markieren

Delphi-Quelltext

1:
2:

If lesen: = 1 then CheckBox1.Checked = true ; 
If lesen:=0 then CheckBox1.Checked = false;

so müsste es aussehen

markieren

Delphi-Quelltext

1:
2:

If lesen= 1 then CheckBox1.Checked := true ; 
If lesen=0 then CheckBox1.Checked := false;

und hier:

markieren

Delphi-Quelltext

1:	lesen := ini.ReadInteger('Autosave','Eigenschaft',);

du hast hinten vergessen einen standarwert festzulegen (entweder 0 oder 1) wenn kein wert in der ini stehen sollte

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Ich frage mich wie dieser code funktionieren soll...

Ich empfehle dir ReadBool bzw WriteBool zu benutzen

Zitat:

procedure TForm1.Button2Click(Sender: TObject);
begin
ini := TIniFile.Create('c:\test.ini');
try
lesen := ini.ReadInteger('Autosave','Eigenschaft',0); // default wert: 9

If lesen = 1 then CheckBox1.Checked := true
else CheckBox1.Checked := false;
finally
ini.Free;

end;

// Arg zu langsam ^^

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

oder so:

markieren

Delphi-Quelltext

1:	CheckBox1.Checked := ini.ReadInteger ('Autosave', 'Eigenschaft',0) = 1;

oder so:

markieren

Delphi-Quelltext

1:	CheckBox1.Checked := ini.ReadBool ('Autosave', 'Eigenschaft', True);

Gruß
Tino

del1312 · Beiträge: 190

Hm danke aber ich hab jetzt den Fehler gefunden. Es hat die 0 hinter:

markieren

Quelltext

1:	lesen:= ini.ReadInteger('Autosave','Eigenschaft',0);

gefehlt, jetzt funzt es. Danke nochmal!

mfg
ecspooky

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Das haben wir dir schon die ganze Zeit versucht zu sagen :mrgreen:

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Chatfix · Verfasst: Mo 24.11.03 12:58

Echt mal *gg*
So schwer ist es nun wirklich nicht...
Wenn mans einmal hinbekommen hat dann ists easy...

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

masterchris_99 · Beiträge: 28

Leute ich habe mal eine Frage

Also ich habe jetzt eine ini erstellen lassen die so aussieht:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

[Setup]
Counter=4
[Handel1]
Omni=11111
Droiden1=Nomic
Droiden_Anzahl1=30
Ressourcen1=Titan
Ressourcen_Menge1=16500
Droiden2=Zengal
Droiden_Anzahl2=5
Ressourcen2=Sel
Ressourcen_Menge2=15
[Handel2]
Omni=22222
Droiden1=Solaron
Droiden_Anzahl1=5
Ressourcen1=Sel
Ressourcen_Menge1=50
[Handel3]
Omni=33333
Droiden1=Trior
Droiden_Anzahl1=30
Ressourcen1=Titan
Ressourcen_Menge1=10000
Ressourcen2=Öl
Ressourcen_Menge2=5000

Nun Soll er es alles ausgeben und das nach den Handelsnummern.
Also so:

markieren

Delphi-Quelltext

1:
2:

                    Omni          Droiden          Ressourcen
Nr.

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:

                    Omni          Droiden          Ressourcen
Nr. 1             11111        30 Nomic         16500 Titan
                                5 Zengal         15 Sel

Das wäre Beispiel für Handel 1

Horschdware · Verfasst: Do 01.04.04 22:13

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var ini : TInifile;
    sOmni, sDroiden1, sDroiden_Anzahl1, sRessourcen1, sRessourcen_Menge1, sDroiden2, sDroiden_Anzahl2, sRessourcen2, sRessourcen_Menge2 : string;
i, imax : integer;
allehandels : TStringlist;
begin
  try
    ini:=TInifile.create('C:\meine_ini.ini');
    allehandels:=TStringlist.create;
    ini.readsections(allehandels);
    imax:=allehandels.count;
    memo1.lines.add('                  Omni             Droiden      Resourcen');
    for i:=1 to imax do    //i:=1 da i:=0 'Setup' wäre...
    begin
      sOmni:=ini.readstring(allehandels[i],'Omni','');
      sDroiden1:=ini.readstring(allehandels[i],Droiden1,'');
      sDroiden_Anzahl1:=ini.readstring(allehandels[i],Droiden_Anzahl1,'');
      ...
      memo1.lines.add('Nr.'+IntToStr(i)+'     '+sOmni+'        '+sDroiden_Anzahl1+'  '+Droiden1+.....
      memo1.lines.add('                                          '+sDroiden_Anzahl2+'   '+Droiden2+....
    end;
  finally
    ini.free;
    allehandels.free
  end;
...
end;

//absichtlich etwas ausführlicher

_________________
Delphi: XE - OS: Windows 7 Professional x64

umpani · Beiträge: 389

Nur mal ne grundsätzliche Frage,

wie sinvoll ist es ein Tutorial hier im Forum nur als PDF einzustellen?

Problematisch dabei sind zwei sachen.

1. Was ist, wenn du mal keine Webseite mehr hast? Kann ja mal sein.
2. Die Suchfunktion des Forums wird ausgehebelt und kann nicht in deinem Tutorial funktionieren.

Wäre es also möglich, dein Tutorial neben der PDF Variante auch als "Volltextversion" (als Beitrag) einzustellen?

Gruß Umpani

_________________
Lernen, ohne zu denken, ist eitel; denken, ohne zu lernen, ist gefährlich. Konfuzius

Chatfix · Verfasst: Fr 02.04.04 18:07

also
1. die website bleibt, sollte sich der link ändern wird der thread aktualisiert.
2. sobald ich zeit finde werde ich sie extra für dich auch nochmal als "volltext"-version reinstellen...
das war auch mal so, nur ich habe keine lust wenn man mal was verbessert ergänzt 50 sachen zu aktualisieren...
3. Der Tutorial ist ja nicht nur hier

4. gibts net...

@ Mods, könntet ihr mal de postings löschen die nicht mit der "kritik" des tutorials zu tun hat...
oder schriebt sie in einen extra thread bitte...

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Lhid · Beiträge: 831

Meinung und mich grundlegend geändert-> alte beiträge gelöscht

Chatfix · Verfasst: Do 09.09.04 07:38

Wie "neuer Link"? - Sorry verstehe nur Bahnhof....

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme