BpcSMScriptLibrary 9

From RiskWiki

Jump to: navigation, search

TStringGrid BPC Library

Language: Delphi 7 - 2007


Library provides routines for manipulating standard Delphi TStringGrids


//////////////////////////////////////////////////////////////////////////////////////////
//////// TStringGrid BPC Library
//////////////////////////////////////////////////////////////////////////////////////////

interface
uses Classes, Types,  Windows, Grids, DB;

//////////////////////////////////////////////////
// TStringGrid BPC Library

// Copy the selected rows from the grid into the clipboard as an smXMLPacket
// Returns true if the clipboard is non-empty
function bpcsmXMLSGGrid1Copy( Sender: TStringGrid) : boolean;
// Copy the selected rows from the grid into the clipboard as a CSV packet
// Returns true if the clipboard is non-empty
function bpcCSVSGGrid1Copy( Sender: TStringGrid) : boolean;
function bpcTABSGGrid1Copy( Sender: TStringGrid) : boolean;
// Paste into the stringgrid as a CSV, TAB, XML string and return the string
function bpcXMLSGGrid1Paste( Sender: TStringGrid) : TStringGrid;
function bpcCSVSGGrid1Paste( Sender: TStringGrid) : TStringGrid;
function bpcTABSGGrid1Paste( Sender: TStringGrid) : TStringGrid;
// Write the stringgrid to a string as a CSV file and return the string
function bpcSGWriteTABString(myStringGrid1: TStringGrid ) : string;
// Write the stringgrid to a string as a CSV file and return the string
function bpcSGWriteCSVString(myStringGrid1: TStringGrid ) : string;
// Read in a CSV string - the first row MUST BE the headings.  Strings are marked by "" and ',' are separators.
// If bGrowFromLastRow is true, the file will be added to theend of the stringgrid without clearing, if bClearGrid is true all
// columns will be cleared.  FixedCols is the number of fixed columns from the left, while StartCol says which col to start
// inserting data, while FixedColsList is a comma separated list of headings for the fixed columns portion (assuming the
// startcol is after the fied cols. The CSVString is the CSV string to be imported.  Returns the
// stringgrid.
function bpcSGLoadCSVString( myStringGrid1: TStringGrid; bGrowFromLastRow: boolean; bClearGrid: boolean; FixedCols, StartCol : integer; FixedColsList: string; CSVString: string): TStringGrid; overload;
function bpcSGLoadTABString( myStringGrid1: TStringGrid; bGrowFromLastRow: boolean; bClearGrid: boolean; FixedCols, StartCol : integer; FixedColsList: string; CSVString: string): TStringGrid; overload;
function bpcSGLoadDLMString( myStringGrid1: TStringGrid; bGrowFromLastRow: boolean; bClearGrid: boolean; FixedCols, StartCol : integer; FixedColsList: string; CSVString: string; Delim : char ): TStringGrid; overload;
// Read in a CSV file - the first row MUST BE the headings.  Strings are marked by "" and ',' are separators.
// If bGrowFromLastRow is true, the file will be added to theend of the stringgrid without clearing, if bClearGrid is true all
// columns will be cleared.  FixedCols is the number of fixed columns from the left, while StartCol says which col to start
// inserting data, while FixedColsList is a comma separated list of headings for the fixed columns portion (assuming the
// startcol is after the fied cols. The FileName is the full path including filename to the csv file to be imported.  Returns the
// stringgrid.
// eg: bpcSGLoadCSVFile( StringGrid1,(MergeRowsDSCBX.Checked), (not (MergeRowsDSCBX.Checked or MergeColsDSCBX.Checked)), 1, iff(MergeColsDSCBX.Checked,StringGrid1.ColCount,1), 'Status', FileName );
function bpcSGLoadCSVFile( myStringGrid1: TStringGrid; bGrowFromLastRow: boolean; bClearGrid: boolean; FixedCols, StartCol : integer; FixedColsList: string; FileName: string; QuotesAreDoubled : boolean=false ): TStringGrid;
// Read in a dtatset - the fieild names are used as the headings of the grid.
// If bGrowFromLastRow is true, the file will be added to theend of the stringgrid without clearing, if bClearGrid is true all
// columns will be cleared.  FixedCols is the number of fixed columns from the left, while StartCol says which col to start
// inserting data, while FixedColsList is a comma separated list of headings for the fixed columns portion (assuming the
// startcol is after the fied cols. The FileContents is the tdataset to be imported, which will be opened if necessary,
// and repositioned at the first record after completion. Returns the stringgrid.
// eg: bpcSGLoadFromTable( StringGrid1, (MergeRowsDSCBX.Checked), (not (MergeRowsDSCBX.Checked or MergeColsDSCBX.Checked)), 1, iff(MergeColsDSCBX.Checked,StringGrid1.ColCount,1), 'Status', FileContents );
function bpcSGLoadFromTable( myStringGrid1: TStringGrid; bGrowFromLastRow: boolean; bClearGrid: boolean; FixedCols, StartCol : integer; FixedColsList: string; FileContents: TDataSet): TStringGrid;
// Fill a stringgrid column targcol with an (optionally incrementing) Mask of chars, or with GUID's, FromRow ToRowand and return the stringgrid
// OVERLOADED FUNCTION
//      bpcSGFillRows( StringGrid1, FromRow,  ToRow, MakeGUIDs, Mask, MaskChar, StartString, IncrementBy, OnlyNums )
// eg: bpcSGFillRows( StringGrid1, StringGrid1.Col, FromRow,  ToRow, FillColumnDlg.UseGUIDCBX.Checked, FillColumnDlg.FillMask.Text, iff( FillColumnDlg.UseMaskCharCBX.Checked, iff( length(FillColumnDlg.MaskChar.Text)>0, FillColumnDlg.MaskChar.Text[1], '#'), #0 ), trim(FillColumnDlg.StartString.Text) ,iff( FillColumnDlg.IncrementCBX.Checked, FillColumnDlg.Incrementer.AsInteger, 0 ), FillColumnDlg.NumsOnlyCBX.Checked );
function bpcSGFillRows( myStringGrid1: TStringGrid; targcol : integer; FromRow,  ToRow : integer; MakeGUIDs : boolean; Mask : string; MaskChar : char; StartString : string; IncrementBy : integer; OnlyNums  : boolean ) : TStringGrid; overload;
// Fill a stringgrid column targcol with GUID's FromRow ToRowand and return the stringgrid
// OVERLOADED FUNCTION
function bpcSGFillRows( myStringGrid1: TStringGrid; targcol : integer; FromRow,  ToRow : integer; MakeGUIDs : boolean ) : TStringGrid; overload;
// Write the stringgrid to a file called sFileName as a CSV file
procedure bpcSGWriteCSVFile(myStringGrid1: TStringGrid; sFileName : string);
// Insert a new blank col at curcol in a stringgrid col returning the stringgrid
function bpcSGDeleteCol( myStringGrid1: TStringGrid; TargCol : integer ) : TStringGrid;
// Delete the row at targrow in a stringgrid returning the stringgrid
function bpcSGDeleteRow( myStringGrid1: TStringGrid; TargRow : integer ) : TStringGrid;
// Delete the rows in a stringgrid preserving the header row if includeHeader is false and returning the stringgrid
function bpcSGDeleteAllRows( myStringGrid1: TStringGrid; includeHeader : boolean ) : TStringGrid;
// Insert a new blank col at curcol in a stringgrid col returning the stringgrid
function bpcSGInsertCol( myStringGrid1: TStringGrid; CurCol : integer ) : TStringGrid;
// Insert a new blank row at currow in a stringgrid row returning the stringgrid
function bpcSGInsertRow( myStringGrid1: TStringGrid; CurRow : integer ) : TStringGrid;
// Clear the contents of a stringgrid col at targcol
function bpcSGClearCol( myStringGrid1: TStringGrid; targcol : integer ) : TStringGrid;
// Clear the contents of a stringgrid row at targrow
function bpcSGClearRow( myStringGrid1: TStringGrid; targrow : integer ) : TStringGrid;
// Clear all the contents of a stringgrid preserving the header row if includeHeader is false and returning the stringgrid
function bpcSGClearAllRows( myStringGrid1: TStringGrid; includeHeader : boolean ) : TStringGrid;
// Returns the column index of the stringgrid col corresponding to the colname
function bpcSGIndexOfSGCol( myStringGrid1: TStringGrid; colname : string ) : integer;
// Returns true if the stringgrid row is empty
function bpcSGIsEmptyRow( myStringGrid1: TStringGrid; targrow : integer ) : boolean;
// Copies a StringGrid col fromcol tocol and returns the index of the col after the tocol
function bpcSGCopyCol( myStringGrid1: TStringGrid; tocol, fromcol : integer ) : integer;
// Copies a StringGrid row fromrow torow and returns the index of the row after the torow
function bpcSGCopyRow( myStringGrid1: TStringGrid; torow, fromrow : integer ) : integer;

BackLinks



CopyRight Bishop Phillips Consulting Pty Ltd 1997-2012 ( BpcSMScriptLibrary 9 )
Personal tools