Hallo hab mir bei den Schweizern mal den Code geholt um Id3 Tags auszulesen wenn ich diese Infos jetzt in verschiedene Label anzeigen lasse klappt auch alles wunderbar nur möcht ich gerne die Infos in ein Stringgrid schreiben das klappt auch alles ganz gut nur werden immer noch so seltsame rechtecke hinten angehängt, bzw. wenn kein Id3 Tag verfügbar ist nur rechtecke gezeichnet. Die Infos aus dem Id3 Tag füge ich mit folgender Funktion hinzu:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do begin
with readID3Tag(Memo1.Lines.Strings[i]) do begin
with Id3List do begin
cells[1,i+1]:= Artist;
cells[2,i+1]:= Titel;
cells[3,i+1]:= Album;
cells[4,i+1]:= Year;
end;
end;
end;
end;
Im Anhang ist ein Screenshot wie mein StringGrid aussieht
Danke im Voraus