Resumo da Delphi Conference 2010 Brasil

 

Salve, salve amigos,

Andreano Lanusse, descreve um resumo da Delphi Conference Brasil 2010.

Ontem (26/Outubro) realizamos o Delphi Conference 2010 Brazil, o maior e principal evento para desenvolvedores Delphi do Brasil, foram 26 palestras onde os palestrantes abordaram os mais variados temas, como: Delphi XE, iPhone, Android, DataSnap, Cloud Computing, PHP, VCL, MVC, mapeamento objeto relacional, reconhecimento facial, NF-e e mini-cursos e muitos outros temas.

Foram aproximadamente 600 desenvolvedores Delphi no evento, onde tinhamos desenvolvedores em todos os níveis de conhecimento, uma ótima surpresa foi a grande quantidade de novos desenvolvedores Delphi que estavam ali para conhecer mais e acelerar seu conhecimento. O Brasil estava todo representando, desenvolvedores de todos os cantos do Brasil.

Tivemos o Keynote de abertura com o David I (VP de relacionamento com desenvolvedores) onde foi apresentando um preview do compilador 64 bits e de uma aplicação Delphi rodando em Mac, além disso David falou sobre o futuro do Delphi que sem dúvida é brilhante.

Esse ano demos um enfoque muito grande ao DataSnap, grande parte do conteúdo abordava o tema e as tecnologias envolvidas no desenvolvimento de aplicações multicamada, o feedback foi sensacional.

Durante o evento as mensagens no twitter enviadas por aqueles que ali estavam mostravam o sucesso, veja o que a comunidade dizia aqui.

Durante o encerramento vários prêmios foram sorteados: componentes da TMS Software, assinaturas da revista Blase Pascal, assinaturas da ActiveDelphi licença de RAD Studio XE, etc. Além disso tivemos a entrega do prêmio “Delphi Brazil Community Award”, este prêmio é um reconhecimento ao trabalho feito na comunidade Delphi, geralmente homenageamos uma pessoa, mas este ano homenageamos o DUG-RS, grupo de usuários Delphi do Rio Grande do Sul, pois o grande trabalho feito durante o ano envolvia várias pessoas, o prêmio foi muito merecido, parabéns ao DUG-RS.

Nós da Embarcadero só temos a agradecer a todos aqueles que fizeram parte deste evento, a comunidades, aqueles que foram ao evento, nossos parceiros, aos palestrantes e todos aqueles que não puderam estar mas que de alguma forma nos ajudaram, MUITO OBRIGADO!!!!

Abaixo algumas fotos do evento, várias outras foram publicadas na comunidade Delphi Brasil do Facebook

 

Take Care

Dicas Delphi - Preencher com ZEROS à esquerda

Salve, salve amigos

// No Evento OnExit de um componente Edit1 por exemplo

procedure TForm1.Edit1Exit(Sender: TObject);

var x : Integer;

begin
   if (edit1.text<>' ') then
     begin x := strtoint(edit1.Text);
        edit1.Text:= Format('%6.6d',[x]);
        // Definiu o texto como tendo 6 caracteres inteiros, ou seja, 6 números.
        // Basta trocar este valor para mais ou menos de acordo com a sua necessidade.
     end;

//   Na propriedade MaxLength (no object inspector) do edit1,
//   defina também o valor com o mesmo número de caracteres usado na codificação acima.

Take care

Dicas Delphi - Retornar as Iniciais de uma String

Salve, salve amigos,

// função retorna as iniciais de uma String. Ex: 'Saída por Consumo' vai retornar SPC
 

Function retornaIniciais(x: String): String;
var
   i:Integer;
   aux:String;
   iniciais:String;
begin
        iniciais:='';
        aux:=Trim(x);
        if aux<>'' then
        begin
           iniciais:=MidStr(aux,1,1);
           i:=AnsiPos(' ',aux);
            while i>0 do
              begin
                iniciais:=iniciais+MidStr(aux,i+1,1);
                aux:=midstr(aux,1,i-1)+MidStr(aux,i+1,length(aux));
                i:=AnsiPos(' ',aux);
            end;//
            while i>0 then
        end;
        if aux<>'' then
        Result:=UpperCase(iniciais);
end;

Take care

Dicas Delphi - Calculo da Idade

Salve, salve amigos

//Essa dica é um demostrativo de como se calcular a idade de uma pessoa em anos, 

//meses e/ou dias
//1º Declare na uses a unit DateUtils
//2º Insira um Button e um Maskedit no Form
//3º Na propriedade EditMask do Maskedit insira o formato Date e modifique
//no campo Input Mask esse formato para 4 dígitos no ano e dê OK
//4º No evento OnClick do Button insira o código e execute

procedure TForm1.Button1Click(Sender: TObject);
var

Ano, Mes: Integer;
Total_dias: Real; 

 begin

  //Descobrir a idade somente em anos, meses ou dias...

  ShowMessage(IntToStr(YearsBetween(Date, StrToDate(MaskEdit1.Text))) + ' anos');
  ShowMessage(IntToStr(MonthsBetween(Date, StrToDate(MaskEdit1.Text))) + ' meses');
  ShowMessage(IntToStr(DaysBetween(Date, StrToDate(MaskEdit1.Text))) + ' dias');
  //ou
  //Descobrir a idade em anos, meses e dias, complicando um pouco mais...

 Total_dias := DaysBetween(Date, StrToDate(MaskEdit1.Text));

 Ano := StrToInt(Copy(MaskEdit1.Text, 7, 4));
   while Total_dias > 365 do
     begin
        Total_dias := Total_dias - DaysInAYear(Ano);
        Ano := Ano + 1;
     end; 

        Mes := StrToInt(Copy(MaskEdit1.Text, 4, 2)); 

        while Total_dias > 28 do
        begin
                if Total_dias >= DaysInAMonth(Ano, Mes) then
                begin
                        Total_dias := Total_dias - DaysInAMonth(Ano, Mes);
                        Mes := Mes + 1;
                end
                else
                break;
        end;
        Ano := Ano - StrToInt(Copy(MaskEdit1.Text, 7, 4));
        Mes := Mes - StrToInt(Copy(MaskEdit1.Text, 4, 2));

        if StrToDate(MaskEdit1.Text) <= Date then
           ShowMessage(IntToStr(Ano) + ' anos, ' + IntToStr(Mes) + ' meses e ' + 

          FloatToStr(Total_dias) + ' dias')
        else
        ShowMessage('Impossível realizar cálculo! Data > que a data atual!');  

end;

Take care 

Dicas Delphi - Letreiro Digital - Direita para Esquerda

Salve, salve amigos,

// Coloque um Timer, um Panel e um Label dentro do Panel.

// Dê um duplo clique no Timer e digite o código abaixo:}

if label1.left>= -(label1.Width) then

label1.left:=label1.left-1
else

label1.left := Panel1.width;

// Você pode alterar a velocidade do texto na propriedade Interval do Timer, quanto 

//menor o Interval, mais rápido ficará o letreiro.

Take care

Dicas Delphi - Como mudar imagens de acordo com as horas

Salve, salve amigos,

//Altere o intervalo do timer para 200 ou como preferir.
procedure TForm1.Timer1Timer(Sender: TObject);begin
 if date > strtodate('10:00:00') then image1.pictures.loadfranfile('c: estefoto1.jpg');

 if date > strtodate('11:00:00') then image1.pictures.loadfranfile('c: estefoto2.jpg');
end; 

Take care 

Dicas Delphi - Função para inverter um string

Salve, salve amigos,

function Inverte (wStr1: String): String;var i: Integer;begin
        Result := '';
        for i := Length( wStr1 ) downto 1 do Result := Result +
        copy(wStr1,i,1 );end;

Take care