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
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
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
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