Werte in INI speichern + in Listbox zeigen

Lokke · Beiträge: 54

Hi Leute

Ich habe den Ini Tutorial mir angeschaut, den ich hier im Forum gefunden habe und der hat mir sehr geholfen!!!

Nun häng ich an einer Stelle!!!

Also ich habe über die Edit Felder meine Werte (insg. 7 Werte) in einer Ini-Datei speichern können und möchte dann die Werte in einer Listbox auflisten bzw. Zeigen. Mein Code

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

{...}  
var  
  MyIni : TIniFile;  
begin  
MyIni:=TIniFile.Create('D:\Einstellungen.ini');  
    try  
      SolldruckKammer.Text:=MyIni.ReadString('Solldruck','Druckkammersoll','');
 
      {...} // Auslesen der Werte 
 
      Myini.ReadSectionValues('Solldruck',Listbox1.Items);  //mein 1. Wert den ich in der ListBox aufzeigen möchte  
 
      {...} // die anderen Werte auflisten 
 
      Myini.ReadSectionValues('Erlaubt',Listbox1.Items); // letzter Wert in der ListBox  
 
    finally  
      MyIni.Free;  
    end;  
end;

Als Ergebnis bekomme ich aber immer den letzten Wert in der Listbox gezeigt!! Häää

Kann mir jemand bitte weiter helfen!

Dankeschöön

Moderiert von raziel: Topic aus Tutorials verschoben am Mo 04.04.2005 um 17:32

HSchaffi · Beiträge: 64

Ich bin mir nicht 100 % sicher! Den zweiten Wert musst du anders übernehmen.

markieren

Delphi-Quelltext

1:	Myini.ReadSectionValues('Erlaubt',Listbox1.Items.add);//die Werte müssen dazu kommen, ansonsten überschreibst du

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

Lokke · Beiträge: 54

Hi HSachaffi,

danke für die Antwort aber ich kann den Befehl

markieren

Delphi-Quelltext

1:	Myini.ReadSectionValues('Erlaubt',Listbox1.Items.add);

gar nicht eingeben. Wenn ich nachdem Punkt Listbox1 was eingeben möchte kriege ich als vorschlag nur ".Create"

Ich hab noch keine Lösung gefunden :motz:

Warte auf hoffentlich noch kommende Vorschläge!

Gruß Lokke

HSchaffi · Beiträge: 64

Hmm, ich habe es nicht ausprobiert. Aber wenn ich hier nicht weiter käm, würde ich alle Werte einer Stringliste übergeben und dann der Listbox. Aber das sind meine Überlegungen.

_________________
Gruss HSchaffi
Gegenseitige Achtung ist wie ein Lächeln - sie kostet nichts, und jeder freut sich darüber. ( Vagner Fernando Lobosco )

firus1983 · Beiträge: 170 Win98,XP, D6 Entrpr

dat mit dem ini-file haste ein bissl falsch verstanden.
du musst erst auslesem, welche werte in einer section vorhanden sind und dann die einzelnen werte so in die ListBox basteln:

markieren

Delphi-Quelltext

1:	ListBox1.Items.Add(ini.ReadString('section','wert1','nicht gefunden'));

_________________
Veni Vidi Codi !
Ich kam, sah, und programmierte !

firus1983 · Beiträge: 170 Win98,XP, D6 Entrpr

Mit MyIni.ReadSectionValues liest du die gesamten Einträge einer Section aus.
Wenn du dann welche anfügen möchtest musst du sie vorher zwischenspeichern

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

ini:=TIniFile.Create('c:\test.ini');
ini.ReadSectionValues('section',ListBox1.Items);
ListBox2.Items.AddStrings(ListBox1.Items);
ini.ReadSectionValues('section2',ListBox1.Items);
ListBox2.Items.AddStrings(ListBox1.Items);

HAb's auch gleich fix für dich getestet !!!
Du solltest aber anstelle der ListBox1 mit einer Variable des Typs TStrings arbeiten
(bei Problemen mit TStrings einfacg mal im Forum suchen. Gab's schon Tausend mal...)

_________________
Veni Vidi Codi !
Ich kam, sah, und programmierte !

Lokke · Beiträge: 54

genau das war es was ich gebraucht habe " Zwischenspeichern!!!!"

danke danke :dance:

mein problem ist gelöst!!!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme