Скачать: CL | DM;

Создание собственного класса   Найти похожие ветки 

← →
Eugene ©   (2004-06-04 09:38) [0]

Здравствуйте мастера!
Помогите пожалуйста разобраться. Я новичок в это деле.
У меня есть модуль следующего содержания:

unit Options;

interface

uses Classes, SysUtils;

type
 TOptions = class
 private
   FFile: TFileStream;
   FFileName: String;
 public
   constructor Create(const FileName: String);
   destructor Destroy; override;
   property FileName: string read FFileName;
 end;

implementation

constructor TOptions.Create(const FileName: String);
var OpenMode: integer;
begin
 FFileName:=FileName; // Здесь возникает ошибка
 if FileExists(FFileName)then
    OpenMode:=fmOpenReadWrite or fmShareDenyNone
 else
    OpenMode:=fmCreate or fmShareDenyNone;
 FFile:=FFile.Create(FileName, OpenMode);
end;

destructor TOptions.Destroy;
begin
 if Assigned(FFile) then
    FFile.Free;
end;

end.

При создании этого объекта путем:

...
var Option: TOption;
...
Option.Create("Data.dat");
...

получаю ошибку. Что я делаю не правильно?

---

← →
Reindeer Moss Eater ©   (2004-06-04 10:02) [1]

Вызываешь метод у несозданного экземпляра

---

← →
Reindeer Moss Eater ©   (2004-06-04 10:05) [2]

...
var Option: TOption;
...
Option:=TOption.Create("Data.dat");
...

---

← →
Семен Сорокин ©   (2004-06-04 12:23) [3]

и еще
FFile:=TFileStream.Create(FileName, OpenMode);

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c