Hallo zusammen. Ich hatte schon mal ein ähnliches Problem gepostet. Ich hab's dann bleiben lassen und was neues probiert. Aber jetzt hab ich wieder ein ähnliches Problem.
Ich habe eine Ini-Datei die wie folgt aufgebaut ist:
----------------------------
[Allgemein]
Anzahl = 15 //Anzahl der Notizen in der Ini Datei
[Notiz1] //Eigentliche Notiz
Betreff = Betreff 1
[Notiz2]
Betreff = Betreff 2
usw....
----------------------------
Mein Problem ist es, diese Notizen in eine Listbox zu bekommen.
Ich hab das so gemacht:
Delphi-Quellcode:
procedure TForm1.NotizenLesen;
begin
Try
NIni := TIniFile.Create(PathS+'Notizen.ini'); //PathS ist der
Programmordner
Anzahl :=NIni.ReadInteger('Allgemein','Anzahl',0);
IF Anzahl <> 0 THEN
begin
For Anzahl := 1 To Anzahl do begin
IF NIni.SectionExists('Notiz'+IntToStr(Anzahl)) THEN
ListBox1.Items.Add('Notiz' + IntToStr(Anzahl));
end;
end;
finally
NIni.Free;
end;
end;
Das funktioniert auch wunderbar, wenn die Notizen alle schön durchnummeriert sind. Also [Notiz1],[Notiz2],[Notiz3] usw. Aber wenn ich dann eine Notiz lösche, lösche ich einfach die Section in der die Notiz steht. Also sind die Notizen nicht mehr durchnummeriert.
Gibt es einen Weg, unabhängig von der Nummerierung alle Einträge in die Listbox zu bekommen???
Danke schon mal im Voraus. Man ließt sich. Stanlay
