File of...

[GreenDan]

Решил создать свою записную книжку без использования БД.
Код создания класса:

type Database = record
 Name,.....,URL : string[50];
end;
var
DBFile : file of Database;

procedure Form1.Create (Sender:TObject);
begin
 DBFile.
end;

Когда я ставлю точку после DBFile то выдаёт ошибку, просто к примеру можно ли вообще присвоить свойству Name класса DataBase значение 'test'.
Знаю как можно по другому:

var
db : Database;

Вот тогда то можно, а если использовать file of Database можно?

[puporev]

Что-то совсем ничего не напоминает создание класса.
Обычный типизированный файл записей. DBFile - обычная переменная, которую нужно связать с именем файла и наполнять данными.

[Ozerich]

с переменной Dbfile надо делать так.

Assignfile(Dbfile,'d:/1.txt')
Rewrite(DBfile);
Write(Dbfile,Db);
closefile(DBFile);

[Alter]

дополню, то что есть поподробнее:

type TDatabase = record   
 Name,.....,URL : string[50];   
end;   
var   
DBFile : file of TDatabase; db :TDatabase;
..........................................................
procedure Form1.Create (Sender:TObject);   
begin   
 DB.Name := 'gifJpeg'; 
 ...........................
 DB.URL := 'http://www.programmersforum.ru/';
 assignfile(DBfile,'d:/$1.txt');  
  {$I-} 
 rewrite(DBfile);  
  {$I+} 
 if ioresult=0 then
 write(DBfile, db);   
 closefile(DBFile);
end; 
..........................................................

Если что, можете подправить, писал в браузере.

[eoln]

if ioresult=0 then
write(DBfile, db);
closefile(DBFile);

Я бы добавил begin/end

 if ioresult=0 then 
 begin  
 write(DBfile, db);      
 closefile(DBFile)
 end