Class TSutraBoundaryWriter

DescriptionHierarchyFieldsMethodsProperties

Unit

Declaration

type TSutraBoundaryWriter = class(TCustomFileWriter)

Description

no description available, TCustomFileWriter description follows

Hierarchy

Overview

Fields

Private FBoundaryType: TSutraBoundaryType;
Private FPQTimeLists: TObjectList<TSutraTimeList>;
Private FUTimeLists: TObjectList<TSutraTimeList>;
Private FNodeNumbers: T3DSparseIntegerArray;
Private FCount: Integer;
Private FBoundaryNodes: TIntegerList;

Methods

Private procedure Evaluate;
Private procedure WriteDataSet0;
Private procedure WriteDataSet1;
Private procedure WriteDataSet2(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
Private procedure WriteDataSet3(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
Private procedure WriteDataSet4(TimeIndex: integer; UTimeList: TSutraMergedTimeList);
Private procedure WriteDataSet5(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
Private procedure WriteDataSet6(TimeIndex: integer; UTimeList: TSutraMergedTimeList);
Public constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType; BoundaryType: TSutraBoundaryType); reintroduce;
Public destructor Destroy; override;
Public procedure UpdateMergeLists(PQTimeList, UTimeList: TSutraMergedTimeList);
Public procedure WriteFile(FileName: string; BoundaryNodes: TIntegerList);

Description

Fields

Private FBoundaryType: TSutraBoundaryType;
 
Private FPQTimeLists: TObjectList<TSutraTimeList>;
 
Private FUTimeLists: TObjectList<TSutraTimeList>;
 
Private FNodeNumbers: T3DSparseIntegerArray;
 
Private FCount: Integer;
 
Private FBoundaryNodes: TIntegerList;
 

Methods

Private procedure Evaluate;
 
Private procedure WriteDataSet0;
 
Private procedure WriteDataSet1;
 
Private procedure WriteDataSet2(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
 
Private procedure WriteDataSet3(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
 
Private procedure WriteDataSet4(TimeIndex: integer; UTimeList: TSutraMergedTimeList);
 
Private procedure WriteDataSet5(TimeIndex: integer; PQTimeList, UTimeList: TSutraMergedTimeList);
 
Private procedure WriteDataSet6(TimeIndex: integer; UTimeList: TSutraMergedTimeList);
 
Public constructor Create(Model: TCustomModel; EvaluationType: TEvaluationType; BoundaryType: TSutraBoundaryType); reintroduce;
 
Public destructor Destroy; override;
 
Public procedure UpdateMergeLists(PQTimeList, UTimeList: TSutraMergedTimeList);

UpdateMergeLists calls Evaluate.

Public procedure WriteFile(FileName: string; BoundaryNodes: TIntegerList);
 

Generated by PasDoc 0.12.1 on 2013-05-13 15:42:04