Class TDemReader

Unit

DemReaderUnit

Declaration

type TDemReader = class(TObject)

Description

Hierarchy

• TObject
• TDemReader

Overview

Fields

	DemFile: File;
	CharCount: Integer;
	FCorners: TList;
	RangeList: TRealList;
	Angle: Double;
	ResolutionX: Double;
	ResolutionY: Double;
	ResolutionZ: Double;
	ColumnCount: Integer;
	FCancel: Boolean;
	FPoints: TList;
	FCentralMeridianRadians: Double;
	FCoordInSec: Boolean;
	FOnProgress: TProgressProcedure;

Methods

	function ReadCharacters(const Count: integer; Out EndOfLine: boolean): AnsiString;
	procedure ReadRecordA(const GetCentralMeridian : boolean);
	procedure ReadRecordB;
	procedure ReadRestOfRecord;
	procedure ReadRecordC;
	function FortranStrToFloat(AString: string): double;
	function UTMCentralMeridianRadians(LatitudeSeconds, LongitudeSeconds: double): double;
	function GetPoint(Index: integer): TElevationPoint;
	function GetPointCount: integer;
	function GetCorner(Index: integer): TCornerPoint;
	procedure ReadFile(const FileName: string; ReadCentralMeridian : boolean);
	procedure ReadHeader(const FileName: string);
	Constructor Create;
	Destructor Destroy; override;
	procedure Cancel;

Properties

	property Corners[Index:integer]: TCornerPoint read GetCorner;
	property CoordInSec: Boolean read FCoordInSec;
	property CentralMeridianRadians: Double read FCentralMeridianRadians write FCentralMeridianRadians;
	property PointCount: integer read GetPointCount;
	property Points[Index:integer]: TElevationPoint read GetPoint;
	property OnProgress: TProgressProcedure read FOnProgress write FOnProgress;

Description

Fields

	DemFile: File;

	CharCount: Integer;

	FCorners: TList;

	RangeList: TRealList;

	Angle: Double;

	ResolutionX: Double;

	ResolutionY: Double;

	ResolutionZ: Double;

	ColumnCount: Integer;

	FCancel: Boolean;

	FPoints: TList;

	FCentralMeridianRadians: Double;

	FCoordInSec: Boolean;

	FOnProgress: TProgressProcedure;

Methods

	function ReadCharacters(const Count: integer; Out EndOfLine: boolean): AnsiString;

	procedure ReadRecordA(const GetCentralMeridian : boolean);

	procedure ReadRecordB;

	procedure ReadRestOfRecord;

	procedure ReadRecordC;

	function FortranStrToFloat(AString: string): double;

	function UTMCentralMeridianRadians(LatitudeSeconds, LongitudeSeconds: double): double;

	function GetPoint(Index: integer): TElevationPoint;

	function GetPointCount: integer;

	function GetCorner(Index: integer): TCornerPoint;

	procedure ReadFile(const FileName: string; ReadCentralMeridian : boolean);

	procedure ReadHeader(const FileName: string);

	Constructor Create;

	Destructor Destroy; override;

	procedure Cancel;

Properties

	property Corners[Index:integer]: TCornerPoint read GetCorner;

	property CoordInSec: Boolean read FCoordInSec;

	property CentralMeridianRadians: Double read FCentralMeridianRadians write FCentralMeridianRadians;

	property PointCount: integer read GetPointCount;

	property Points[Index:integer]: TElevationPoint read GetPoint;

	property OnProgress: TProgressProcedure read FOnProgress write FOnProgress;