Модератор: Модераторы
Код: Выделить всё
TDataFile = class(TObject)
public
constructor Create(const FileName: string);
constructor Create(var FileStream: TStream);
destructor Destroy; override;
чтоб было два конструктора в классе
возможно ли это и правельно ли так делать или лучше сделать отдельные классы?
Код: Выделить всё
TDataFile = class(TObject)
protected
Stream: TStream;
procedure PreCreate; virtual; // <-- должны переопределятся
procedure PostCreate; virtual; // в классах-наследниках
public
constructor Create(const FileName: string); overload;
constructor Create(var FileStream: TStream); overload;
destructor Destroy; override;
end;
TPackedDataFile = class(TObject) // пример наследуемого класса
protected
EncodeStream: TEncodeStream;
procedure PostCreate; override; // постинициализация
public
destructor Destroy; override;
end;
procedure TDataFile.PreCreate;
begin
// BLAH BLAH BLAH
// Default settings
end;
procedure TDataFile.PostCreate;
begin
// Do nothing
end;
constructor TDataFile.Create(const FileName: string);
begin
PreCreate; // <-- !!!!
Stream := TFileStream.Create(FileName, ...);
NeedFreeStream := True;
PostCreate; // <-- !!!!
end;
constructor TDataFile.Create(var FileStream: TStream);
begin
PreCreate; // <-- !!!!
Stream := FileStream;
NeedFreeStream := False;
PostCreate; // <-- !!!!
end;
//----------------
procedure TPackedDataFile.PostCreate;
begin
// Все методы класса будут работать уже с TEncodeStream(через поле Stream).
// Освобождать же оригинальный Stream будет TEncodeStream
Stream := TEncodeStream.Create(Stream, NeedFreeStream);
NeedFreeStream := True; // уничтожать поток на деструкторе
end;
