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.
|