Über Variants gibt meine Delphi-Hilfe nicht viel her. Hab es jetzt so ähnlich wie von Jelly vorgeschlagen gemacht:
Delphi-Quellcode:
type
TTrack =
class(TComponent)
public
Location:
String;
//filename (also relative) or url, see TOptions
Identifier:
String;
//file hash, etc...
Title:
String;
Creator:
String;
//artist
Annotation:
String;
//comment
Info:
String;
//homepage for more informations
Image:
String;
//e. g. a cover. URL or filename required
Album:
String;
TrackNum: Integer;
//track number/position in the playlist or on the cd
Duration: Integer;
//length in miliseconds
Link:
String;
//link to some rdf code... see specs.
published
constructor Create(AOwner: TComponent);
override;
end;
...
...
constructor TTrack.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Duration := 0;
//initalisieren
TrackNum := 0;
//" " "
end;
...
//Aufruf:
procedure TForm1.Button1Click(Sender: TObject);
var
tr: TTrack;
begin
tr := TTrack.Create(Self);
tr.Location := '
sdfsdfdff';
tr.Creator := '
sdfgdsfds';
XSPF1.Tracks.Add(tr);
end;
Denkt ihr das ist eine gute Lösung? Funktionieren tuts
