Class TSutraFileWriter

Unit

SutraFileWriterUnit

Declaration

type TSutraFileWriter = class(TCustomFileWriter)

Description

Hierarchy

• TObject
• TCustomFileWriter
• TSutraFileWriter

Overview

Fields

	FNextUnitNumber: Integer;
	FFiles: array[TSutraFileType] of TSutraFileRecord;
	FBoundaries: TSutraFileList;
	FFileRoot: string;

Methods

	Constructor Create(AModel: TCustomModel; FileRoot: string); reintroduce;
	destructor Destroy; override;
	procedure AddFile(FileType: TSutraFileType; const FileName: string);
	procedure AddBoundaryFile(const FileName: string);
	procedure WriteFile;

Description

Fields

	FNextUnitNumber: Integer;

	FFiles: array[TSutraFileType] of TSutraFileRecord;

	FBoundaries: TSutraFileList;

	FFileRoot: string;

Methods

	Constructor Create(AModel: TCustomModel; FileRoot: string); reintroduce;

	destructor Destroy; override;

	procedure AddFile(FileType: TSutraFileType; const FileName: string);

	procedure AddBoundaryFile(const FileName: string);

	procedure WriteFile;