Integer erkennen der nicht initalisiert wurde

[alzaimar]

Delphi-Quellcode:

Uses Variants;

Type
  TTrack = record
    Location: Variant;    //filename (also relative) or url, see TOptions
    Identifier: Variant;  //file hash, etc...
    Title: Variant;
    Creator: Variant;     //artist
    Annotation: Variant;  //comment
    Info: Variant;        //homepage for more informations
    Image: Variant;       //e. g. a cover. URL or filename required
    Album: Variant;
    TrackNum: Variant;   //track number/position in the playlist or on the cd
    Duration: Variant;   //length in miliseconds
    Link: Variant;        //link to some rdf code... see specs.
    Procedure InitializeData;
  end;

Procedure TTrack.InitializeData;
Begin
  Location := UnAssigned;
  Identifier := UnAssigned;
  Title := UnAssigned;
  Creator := UnAssigned;
  Annotation := UnAssigned;
  Info := UnAssigned;
  Image := UnAssigned;
  Album := UnAssigned;
  TrackNum := UnAssigned;
  Duration := UnAssigned;
  Link := UnAssigned;
End;

...
Var
  myTrack : TTrack;

Begin
  myTRack.InitializeData;
...
  If myTrack.Location = UnAssigned Then
    Showmessage('Dem Feld <Location> wurde noch nie etwas zugewiesen');

Zitat von Andreas L.:

Über Variants gibt meine Delphi-Hilfe nicht viel her....

Oh ja, das stimmt. Haufenweise Müll...