Hi!
Muss ein Programm für die Schule machen.
Und zwar sollen in das Programm ein Interpret(edit1.text),Titel(edit2.text) und Geschwindigkeit(edit3.text)
eines Songs aufgenommen werden und gespeichert bleiben.
Gespeichert soll alles in einen File oder in ein Array[1..300] das in einem File gespeichert wird.Anschliessend soll man auch wieder alles einzeln löschen können.(Also ein Interpret,Titel und eine Geschwindigkeit eines einzelnen Liedes sollen gelöscht werden]
Was ich bereits geschafft habe ist :
Um alles leichter Anzeigen zu können werden die eingegebenen
Interpreten und Titel in einer Listbox angezeigt.
Und es können Einträge aus der Listbox gelöscht werden.
Kann mir jemand bei dem Programm Code helfen bzw ihn ergänzen?
Danke im Vorraus
Joe.Fresh
Hier sollen die Titel hinzugefügt werden und dann in einer Datei gespeichert werden.
Code:
procedure TForm1.Button2Click(Sender: TObject);
var hilf,hilf2,hilf3:string ; zaehler:integer;
begin
hilf:=edit1.text;
hilf2:=edit2.text;
hilf3:=' - ';
if edit1.text=''
then showmessage ('Bitte erst den Namen eingeben')
else listbox1.items.add(hilf+hilf3+hilf2);
zaehler:=listbox1.items.count;
end;
Hier sollen die gespeicherten Daten einzeln gelöscht werden.
Code:
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
if listbox1.itemindex = -1
then showmessage ('Bitte erst Eintrag markieren')
else showmessage ('Eintrag gelöscht');
for i:=0 to 300 do
begin
if listbox1.itemindex = i
then listbox1.items.delete (i);
end;
end;
und hier sollen die gespeicherten Daten wieder angezeigt werden.
Am besten in den 3 Textfeldern.
Code:
procedure TForm1.Button4Click(Sender: TObject);
begin
end;