Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 30 de maio de 2016

Delphi Compiler Version

Reações: 
Compiler CompilerVersion Defined Symbol
Delphi 10.1 Berlin 31 VER310
Delphi 10 Seattle 30 VER300
Delphi XE8 29 VER290
Delphi XE7 28 VER280
Delphi XE6 27 VER270
AppMethod 1 26.5 VER265
Delphi XE5 26 VER260
Delphi XE4 25 VER250
Delphi XE3 24 VER240
Delphi XE2 23 VER230
Delphi XE 22 VER220
Delphi 2010 21 VER210
Delphi 2009 20 VER200
Delphi 2007 .NET 19 VER190
Delphi 2007 18.5 VER185
Delphi 2006 18 VER180
Delphi 2005 17 VER170
Delphi 8 .NET 16 VER160
Delphi 7 15 VER150
Delphi 6 14 VER140
Delphi 5 13(*) VER130
Delphi 4 12(*) VER120
Delphi 3 10(*) VER100
Delphi 2 9(*) VER90
Delphi 1 8(*) VER80
(*) These versions did not have a CompilerVersion constant, it was introduced with Delphi 6.

sexta-feira, 6 de maio de 2016

FIREBIRD - Retirar quebra de linha

Reações: 
-- Exemplo: Lista as triggers do banco em apenas uma linha, sem a quebra
select Replace(Cast(t.rdb$trigger_source as Varchar(512)), ASCII_CHAR(13)||ASCII_CHAR(10), ' ')
   from RDB$DEPENDENCIES d
   inner join RDB$TRIGGERS t on t.RDB$TRIGGER_NAME = d.RDB$DEPENDENT_NAME
   and d.RDB$DEPENDED_ON_NAME like 'GEN%'

FIREBIRD - Como localizar o Generator e seus dependentes

Reações: 
Baseado em:https://www.vivaolinux.com.br/dica/Firebird-Como-localizar-GENERATORS-de-uma-tabela

select d.RDB$DEPENDED_ON_NAME, t.RDB$RELATION_NAME, Replace(Cast(t.rdb$trigger_source as Varchar(512)), ASCII_CHAR(13)||ASCII_CHAR(10), ' ')
   from RDB$DEPENDENCIES d
   inner join RDB$TRIGGERS t on t.RDB$TRIGGER_NAME = d.RDB$DEPENDENT_NAME
   and d.RDB$DEPENDED_ON_NAME like 'GEN%'

FIRBIRD - Localizar os Generators e seus valores

Reações: 
execute block
returns (
    out_name char(31),
    out_value bigint)
as
begin
    for select rdb$generator_name from rdb$generators where rdb$system_flag is distinct from 1 into out_name do
    begin
        execute statement 'select gen_id(' || out_name || ', 0) from rdb$database' into out_value;
        suspend;
    end
end

Max Gehringer