ich habe jetzt gleich beide prozeduren in eine gepackt, das andere macht ja keinen sinn...
Delphi-Quellcode:
procedure Tplayer.Button3Click(Sender: TObject);
begin
mp3file := add.ListBox1.Items.Strings[add.ListBox1.itemindex];
FillID3TagInformation(mp3file, add.edit1, add.edit2, add.edit3, add.edit4, add.edit5, add.edit6);
table1.Insert;
add.dbedit1.Text := add.edit1.Text;
add.dbedit2.Text := add.edit2.Text;
add.dbedit4.Text := add.edit4.Text;
add.dbedit5.Text := add.edit5.Text;
add.dbedit6.Text := add.edit6.Text;
add.dbedit9.Text := add.edit13.text;
mediaplayer1.Close;
mediaplayer1.FileName := mp3file;
mediaplayer1.Open;
a := mediaplayer1.Length*(929/930092);
b := Rounder(a, 0);
label1.Caption := floattostr(b);
add.DBEdit8.Text := timetostr(SecondsToTime(strtoint(label1.Caption)));
add.dbedit3.Text := add.StaticText1.Caption;
add.dbedit7.Text := mp3file;
table1.Post;
end;