Текущий архив: 2004.06.20;
Скачать: 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 вся ветка
Текущий архив: 2004.06.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
