david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
31 lines
582 B
ObjectPascal
31 lines
582 B
ObjectPascal
unit uStatement;
|
|
|
|
interface
|
|
|
|
type
|
|
TStatement = class(TObject)
|
|
private
|
|
fName: string;
|
|
fSQL: string;
|
|
fDescription: string;
|
|
public
|
|
constructor Create(const aName, aSQL, aDescription: string);
|
|
property Name: string read fName;
|
|
property SQL: string read fSQL;
|
|
property Description: string read fDescription;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TStatement }
|
|
|
|
constructor TStatement.Create(const aName, aSQL, aDescription: string);
|
|
begin
|
|
inherited Create;
|
|
fName := aName;
|
|
fSQL := aSQL;
|
|
fDescription := aDescription;
|
|
end;
|
|
|
|
end.
|