So die rote Pappnase ist im Schrank, es wird wieder ernst!
Mal ein auszug vom dem was net so geht:
Der Fächer-löschen Button geht nicht. Der Eintrag wird zwar aus der Listbox entfernt, nur ist die Datei immer noch auf der Festplatte. Gleichzeitig soll das Selektieren eines Faches direkt die dazugehörigen Themen in die andere Listbox schreiben
Hier der Code um einen eintrag auszuwählen und die Themen auszulesen
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
//
// selektieren und staunen!
//
procedure Tpflege.ListIniFileClick(Sender: TObject);
var
titel_tmp : Array[0..200] of Char; //temporäres Array vom typ Char erzeugen
iLoop, jLoop : Integer;
S : String;
begin
eintrag:=ListIniFile.Items[ListIniFile.Itemindex];
ILoop := Getprivateprofileint('Kennung','Anzahl Themen:',0,Pchar(eintrag));
ListBox1.items.Clear;
if ILoop > 0 then
begin
for JLoop := 1 to ILoop do
Begin
S := IntToStr(JLoop);
if JLoop < 10 then S := '0' + S;
GetprivateprofileString(PChar('Thema: ' + S),'titel','',titel_tmp,200,Pchar(eintrag));
Edit_titel.Text:=strpas(titel_tmp);
ListBox1.items.Add(strpas(titel_tmp))
end;
end;
end;
Hier der Code um das File zu löschen
Delphi-Quellcode:
////////////////////////////////////////////////////////////////////////////////
//
// files löschen!
//
procedure Tpflege.sp_deleteClick(Sender: TObject);
begin
//Prüfen ob etwas selektiert wurde
if eintrag = '' then
begin
Showmessage('Keinen Eintrag ausgewählt!');
exit;
end
else
begin
if MessageDlg('Soll das Fach "'+ eintrag + '" wirklich gelöscht werden?',
mtConfirmation, [mbYes, mbNo],0) = mrYes then
begin
//eintrag löschen (das file auf der pladde, digger!)
DeleteFile(eintrag);
//selektierten Eintrag aus Liste enfernen!
ListIniFile.DeleteSelected;
//counterchen breücksichtigen
label_anzahl_faecher.Caption:= IntToStr(ListIniFile.Items.Count);
end;
end;
end;