Make your own free website on Tripod.com

File : oci-thick-string_var.ads


with OCI.Thick.OCIString_Var,OCI.Thick.Statement_Pkg;
package OCI.Thick.String_Var is

use Statement_Pkg;

      use OCI.Thick.OCIString_Var;

      type VString is new Variable with null record;
      
      procedure Initialize(Object : in out VString);
      procedure Finalize  (Object : in out VString);

      procedure Set_Value(Var : in out VString; Value : String);
      function Get_Value(Var : VString) return String;
      procedure Set_Length(Var : in out VString; Length : Natural);
      procedure Define(Stmt : Statement; Value : in out VString; Position : Positive);

end OCI.Thick.String_Var