Fórum Como saber o tamanho (size) de campo varchar Firebird? #457316

select CHAR_LENGTH('EMANOEL DEIVISON - FIREBIRD') QtdCaracteres1,
       CHARACTER_LENGTH('EMANOEL DEIVISON - DEVMEDIA') QtdCaracteres2
  FROM RDB$DATABASE

CREATE DOMAIN SYSUSER AS VARCHAR(31) DEFAULT CURRENT_USER;

ALTER DOMAIN SYSUSER TYPE VARCHAR(40);

CREATE TABLE LOANS (
LOAN_DATE DATE,
UPDATED_BY SYSUSER,
LOAN_FEE DECIMAL(15,2));

procedure TForm5.Button1Click(Sender: TObject);
begin
  ShowMessage('O Tamanho do campo é: '+ IntToStr(Length(DataSource1.DataSet.Fields[1].AsString)));
end;

create or alter procedure PERINALDO (
    TAB varchar(60))
returns (
    TABELA char(31),
    CAMPO char(31),
    TAMANHO smallint)
as
BEGIN
  FOR
    SELECT
        B.RDB$RELATION_NAME TABELA,
        B.RDB$FIELD_NAME CAMPO,
        A.RDB$FIELD_LENGTH TAMANHO
    FROM RDB$FIELDS A,
         RDB$RELATION_FIELDS B
    WHERE RDB$RELATION_NAME = :TAB
      AND A.RDB$FIELD_NAME = B.RDB$FIELD_SOURCE
    INTO :TABELA,
         :CAMPO,
         :TAMANHO
  DO
  BEGIN
    SUSPEND;
  END
END

SET TERM ^ ;

create or alter procedure NEW_PROCEDURE (
    TAB varchar(60))
returns (
    TABELA char(31),
    CAMPO char(31),
    TAMANHO smallint)
as
BEGIN
  FOR
    SELECT
        B.RDB$RELATION_NAME TABELA,
        B.RDB$FIELD_NAME CAMPO,
        A.RDB$FIELD_LENGTH TAMANHO
    FROM RDB$FIELDS A,
         RDB$RELATION_FIELDS B
    WHERE RDB$RELATION_NAME = :TAB
      AND A.RDB$FIELD_NAME = B.RDB$FIELD_SOURCE
    INTO :TABELA,
         :CAMPO,
         :TAMANHO
  DO
  BEGIN
    SUSPEND;
  END
END^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE NEW_PROCEDURE TO SYSDBA;

SET TERM ^ ;
 
create or alter procedure NEW_PROCEDURE (
    TAB varchar(60))
returns (
    TABELA varchar(31),
    CAMPO varchar(31),
    TAMANHO smallint)
as
BEGIN
  FOR
    SELECT
        B.RDB$RELATION_NAME TABELA,
        B.RDB$FIELD_NAME CAMPO,
        A.RDB$FIELD_LENGTH TAMANHO
    FROM RDB$FIELDS A,
         RDB$RELATION_FIELDS B
    WHERE RDB$RELATION_NAME = :TAB
      AND A.RDB$FIELD_NAME = B.RDB$FIELD_SOURCE
    INTO :TABELA,
         :CAMPO,
         :TAMANHO
  DO
  BEGIN
    SUSPEND;
  END
END^
 
SET TERM ; ^
 
GRANT EXECUTE ON PROCEDURE NEW_PROCEDURE TO SYSDBA;

unit Unit8;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DBXFirebird, Data.FMTBcd,
  Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, Datasnap.DBClient,
  Datasnap.Provider, Data.SqlExpr;

type
  TfrmConsultaProcedure = class(TForm)
    DBGrid1: TDBGrid;
    edtTabela: TEdit;
    btnTabela: TButton;
    SQLConnection1: TSQLConnection;
    SQLDataSet1: TSQLDataSet;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnTabelaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConsultaProcedure: TfrmConsultaProcedure;

implementation

{$R *.dfm}

procedure TfrmConsultaProcedure.btnTabelaClick(Sender: TObject);
var
  strSQL: String;
begin
  strSQL:='';
  strSQL:=' select TABELA, CAMPO, TAMANHO '+
          '   from SP_RETORNA_TAM_CAMPOS(:TABELA) ';

  With ClientDataSet1 do
  begin
    CommandText:='';
    CommandText:=strSQL;
    Params.ParamByName('TABELA').AsString:=AnsiUpperCase(QuotedStr(edtTabela.Text));
    Open;
  end;
end;

procedure TfrmConsultaProcedure.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SQLConnection1.Connected:=False;
end;

procedure TfrmConsultaProcedure.FormShow(Sender: TObject);
begin
  SQLConnection1.Connected:=True;
end;

end.

 select TABELA, CAMPO, TAMANHO
   from SP_RETORNA_TAM_CAMPOS(:TABELA)

 select NomeDoSchema.SP_RETORNA_TAM_CAMPOS(:TABELA)
   from sys.dual