Sehr Schwierige Frage ;-) INI Musik Datenbank

**hedie**

Hallo

Ich bin gerade daran einen Musik Player zu Programmieren
bei dem man Via DragDrop Files Hinzufügen kann wa auch alles super klappt.

Die Lieder werden gespeichert und auch geladen.

Doch das Problem isst wenn ich sie aus der Listbox Entferne, dann werden sie auch automatisch aus der
INI Entfern und zwar so

markieren

Delphi-Quellcode:

			VAR

sel:integer;

begin

SEL := Listbox1.ItemIndex;

Listbox1.Items.Delete(sel);

listbox2.Items.Delete(sel);

ini.EarseSection(inttostr(sel);

Und dann bleibt in der INI das zurück

markieren

Code:

			[LISTB1]

CAPACITY=1[LISTB2]

CAPACITY=1

[1]

1=C:\Dokumente und Einstellungen\hedie\Eigene Dateien\Eigene Musik\03 inxs-taste it.mp3

2=Taste It

[VARIABLE]

VARI=0

Das Problem ist, das mein Programm die LIST Box so füllt

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

var

ii:integer;

label return2;

begin

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'msett.ini');

i := ini.ReadInteger('VARIABLE','VARI',0);

ii := 0;

RETURN2:;

if ii = i then begin

showmessage ('MD0052 -- Load Erfolgreich');

exit;

end

Else begin

Listbox1.Items.Add(ini.ReadString(inttostr(ii),'2','ER0098'));

Listbox2.Items.Add(ini.ReadString(inttostr(ii),'1','ER0099'));

ii := ii + 1;

goto return2;

end;

Und daher einfach die zahlen von 0 - i überprüft

Aber wenn ich ja einen eintrag lösche dan existiert 0 zb nicht mehr und es beginnt bei 1 worauf ein LISTBox Platz leer ist
und mit einem Error versehen wird.

Ich bin echt am verzweifeln weill ich keine idee habe wie ich das problem lösen könnte.

Am besten wäre es wenn es das INI File automatisch neu Ordnet also zb so

Vorher:

0
4
7
10

Nachher:

0
1
2
3

Doch wie ich das hinbekommen könnte habe ich keine ahnung

Ich bitte um hilfe

Vielen dank bereits jetzt schon

Liebe grüsse
Claudio

Sehr Schwierige Frage ;-) INI Musik Datenbank

Sehr Schwierige Frage ;-) INI Musik Datenbank

Forumregeln