Текущий архив: 2003.10.06;
Скачать: CL | DM;

Вниз

Как описать в записи TfontName?   Найти похожие ветки 

← →
Jiura32d   (2003-09-22 21:04) [0]

Я описываю в записи:

UserOPtions=record
FN:TFontName;
End;

var
Form1: TForm1;
usop:UserOptions;
datafile:File of Useroptions;

Компилятор дает ошибку:"Type UserOptions needs finalizartion-not allowed in file type"
Т.е. нужно ограничивать тип данных,как string:string[50]-в этом так сделать не получается.А когда как?

---

← →
dataMaster ©   (2003-09-22 21:15) [1]

Запись в файл записать нужно, что-ли?

UserOptions=record
FN: TFontName;
end;

var
Form1: TForm1;
usop: UserOptions;
datafile: textfile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(datafile, "1");
Rewrite(datafile);
usop.FN:="111.ttf";
Write(datafile, usop.fn);
CloseFile(datafile);
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.034 c