Class TStrGrid (unit TxtTable)

Inherits from

TStringList

TStrGrid - used for keep data in memory, also implements methods for retrieving and storing data in text files

Constructors


constructor Create;



Functions

procedure DeleteRow( Index : integer );


function IndexOfObject( const AObject : TObject ) : longint;


procedure InsertRow( Index : integer; Str : String; Obj : TObject );


procedure LoadFromFile( const FileName : string );


procedure SaveToFile( const FileName : string );


procedure DefineProperties(Filer: TFiler);


function GetCells(ACol, ARow: Integer): string;


function GetCObject(ACol: Integer): TObject;


function GetRObject(ARow: Integer): TObject;


procedure PutCObject(ACol: Integer; const AObject: TObject);


procedure PutRObject(ARow: Integer; const AObject: TObject);


procedure ReadCol ( Reader: TReader);


procedure ReadRow ( Reader: TReader);

StrGrid Methods

procedure SetCells(ACol, ARow: Integer; const Value: string);


procedure WriteCol (Writer: TWriter);


procedure WriteRow (Writer: TWriter);


Properties

property Cells : string


property ColCount : LongInt


property ColObjects : TObject


property DivChar : char


property RowCount : LongInt


property RowObjects : TObject


Events

Variables

FCol : longint;


FDChar : char;


FRow : longint;



Constructors


constructor Create;


Functions


procedure DeleteRow( Index : integer );


function IndexOfObject( const AObject : TObject ) : longint;


procedure InsertRow( Index : integer; Str : String; Obj : TObject );


procedure LoadFromFile( const FileName : string );


procedure SaveToFile( const FileName : string );


procedure DefineProperties(Filer: TFiler);


function GetCells(ACol, ARow: Integer): string;


function GetCObject(ACol: Integer): TObject;


function GetRObject(ARow: Integer): TObject;


procedure PutCObject(ACol: Integer; const AObject: TObject);


procedure PutRObject(ARow: Integer; const AObject: TObject);


procedure ReadCol ( Reader: TReader);


procedure ReadRow ( Reader: TReader);

StrGrid Methods


procedure SetCells(ACol, ARow: Integer; const Value: string);


procedure WriteCol (Writer: TWriter);


procedure WriteRow (Writer: TWriter);


Properties


property Cells : string


property ColCount : LongInt


property ColObjects : TObject


property DivChar : char


property RowCount : LongInt


property RowObjects : TObject


Events


Variables


FCol : longint;


FDChar : char;


FRow : longint;