Pascal and Delphi

Pascal and Delphi RSS

File of Type

Thread Solved

•

Join Date: Sep 2008

Posts: 10

Reputation: espSquall is an unknown quantity at this point

Solved Threads: 1

espSquall

Offline

Newbie Poster

File of Type

Sep 25th, 2008

The declaration of the type is:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
type
  TMediaLibrary = record
    Title:string[30];
    TrackNo:integer;
    Artist:string[30];
    Album:string[30];
    Year:string[4];
    Genre:string[30];
    Comment:String[30];
    Directory:string;
  end; 
 
var  SongInfo: TMediaLibrary;
type
  TMediaLibrary = record
    Title:string[30];
    TrackNo:integer;
    Artist:string[30];
    Album:string[30];
    Year:string[4];
    Genre:string[30];
    Comment:String[30];
    Directory:string;
  end; 

var  SongInfo: TMediaLibrary;

and the file implementation of it is here:

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
procedure TForm1.Button1Click(Sender: TObject);
var
  SongFile:string;
  MediaLibrary: file of TMediaLibrary; <<<Error is here
begin
.
.
.
.
  AssignFile(MediaLibrary, 'C:\Program Files\toMedia Player\data\libr.db');
  rewrite(MediaLibrary);
  Write(MediaLibrary, SongInfo);
  CloseFile(MediaLibrary);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  SongFile:string;
  MediaLibrary: file of TMediaLibrary; <<<Error is here
begin
.
.
.
.
  AssignFile(MediaLibrary, 'C:\Program Files\toMedia Player\data\libr.db');
  rewrite(MediaLibrary);
  Write(MediaLibrary, SongInfo);
  CloseFile(MediaLibrary);
end;

My problem is that when i try to compile the code it gives the error "Type TMediaLibrary needs finalization - not allowed in file type". This is my first post on any coding community site as most problems have already been solved already, but this has stumped me and google.

Thanks alot for any help.

•

Join Date: Jul 2006

Posts: 811

Reputation: pritaeas is on a distinguished road

Solved Threads: 133

pritaeas

Offline

Practically a Posting Shark

Re: File of Type

Sep 26th, 2008

The string (Directory) in the record is causing your problem. You'll need to change it to e.g. string[30]. string may not appear in a typed file, since it's length is undetermined.

"If it is NOT source, it is NOT software."
-- NASA