Unit frmAddTo

*******************************************************************} { Description: Project Manager } { Programmer: Kevin S Gallagher gallaghe@teleport.com } { Requires: TBrkApart component (FreeWare) } { Versions: 2 and 3 of Delphi } { } { KSG 11/09/1997 Fixed minor error in procedure btnGetPathClick that } { called TableCode.WhereIsProject which used .AsString} { in FieldByName rather then .Value which may seem } { wrong, but makes my logic work. } {

Classes

TfrmEdit -

Functions

Types

Constants

Variables

aPaths
frmEdit
isFlag


Functions


Types


Constants


Variables

aPaths : array[0..2] of string = ('C:\Program Files\Borland\Projects','D:\Code Storage','C:\Work')

frmEdit : TfrmEdit

Public declarations

isFlag : Integer