hi Leute habe folgendes Problem will aus einer ini datei werte in eine Listview einlesen mit folgendem code:
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:
| procedure TForm1.LadeTermintabelle1Click(Sender: TObject);
var
ini: Tinifile;
i: integer;
Eintrag: TListItem;
begin
try
Eintrag := Listview1.Items.Add;
Open.Execute;
ini := Tinifile.Create(Open.FileName);
for i := ini.ReadInteger('Check','Wert',0)-1 downto 0 do
begin
Eintrag.Caption := ini.ReadString(IntToStr(i),'datum','');
Eintrag.SubItems.Add(ini.ReadString(IntToStr(i),'zeit',''));
Eintrag.SubItems.Add(ini.ReadString(IntToStr(i),'notiz',''));
Eintrag.SubItems.Add(ini.ReadString(IntToStr(i),'sound',''));
end; |
in der ini Datei steht folgendes
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| [Check]
Wert=2 // Count wert der listview beim speichern der ini
[1] // Listiview count
datum=06.05.03
zeit=12:46
notiz=test
sound=C:\Dokumente und Einstellungen\Striker\Desktop\alarm.mp3
[0]
datum=07.05.03
zeit=13:56
notiz=test2
sound=C:\Dokumente und Einstellungen\Striker\Desktop\SIREN1.wav |
Jetzt ist mein Problem das der die zwar added aber halt immer wieder nur die erste Zeile überschreibt, anstatt untereinander sie aufzuführen! HILFE
