Creating RadPHP XE2 Native iOS and Android Touch Optimized Applications

Building a Windows and Mac InterBase database application using Delphi a...

Building and Using FireMonkey iOS Components

Delphi Conference 2011 - Download das Palestras

Para quem interessar segue a disponibilização dos downloads do Delphi Conference 2011.

Link para Download

SQLite iOS Application Development with Delphi and FireMonkey

Delphi Conference 2011 - Andreano Lanusse

Neste vídeo Andreano Lanusse comenta sobre os principais temas a serem apresentados no Delphi Conference 2011 e porque participar do maior evento sobre Delphi do Brasil

Delphi Conference 2011 - David Intersimone

Neste vídeo David I convida a comunidade de desenvolvedores Delphi a participar da maior conferência Delphi do Brasil.

Função de Validação de Código de Barras - EAN

função pega na internet, mas testei e funciona.


function ValidaEAN( CodigoBarras:string ): Boolean;
var numero, soma2:string;
    digito:byte;
    soma,s,i,calculo:integer;
begin
  result:= false;


  numero := CodigoBarras;


  while (length(numero) < 13) do
  begin
    numero:= '0'+numero;
  end;


  digito:= StrToInt(copy(numero,length(numero),1));


  delete(numero,length(numero),1);


  if (numero<>'000000000000') then
  begin
    s:=length(numero);
    i:=0;
    calculo := 3;
    soma :=0;
    repeat
       soma:= soma + StrToInt(copy(numero,length(numero)-i,1))* calculo;
      inc(i);
    if calculo =3 then
      calculo := 1
      else
       calculo := 3;
      dec(s);
    until s=0;
    numero:=IntToStr(soma);
    soma2:= copy(numero,length(numero),1);
    if soma2 = '0'then
      Result:= (digito=strtointdef(soma2,0))
    else
      result:= (digito=10-StrToInt(soma2));
    end;
end;

Ativando o Delphi C++ Builder XE2

RAD in Action Series - FireMonkey: Cross-Platform Development by Marco ...

Video - Desenvolvendo iOS usando FireMonkey: Trabalhando com GPS e Compass

Video - Como criar uma Aplicação iPhone usando o RadPHP XE2

Validador de Código de Barras (EAN)

function IsEan(CodigoEan : String) : Boolean;
var
  CheckSum, DigitoOrig : String;
  i, Digito, Longitud  : Integer;
begin
  Longitud := Length(CodigoEan);
 
  // Comprobar que no hay menos o más caracteres de los permitidos (8 ó 13)
  if not ((Longitud <> 8) and (Longitud <> 13)) then
  begin
    // Obtener el d&iacute;gito de control leido en un principio
    DigitoOrig := Copy(CodigoEan, Longitud, 1);
 
    // Quitar el d&iacute;gito de control que se ha obtenido en la lectura para procesar
    // el c&oacute;digo de barras y verificar su correcta lectura.
    CodigoEan := Copy(CodigoEan, 1, Longitud - 1);
 
    CheckSum := '131313131313';
 
    Digito := 0;
 
    for i := 1 to Longitud - 1 do
      Digito := Digito + (StrToInt(Copy(CodigoEan, i, 1)) * StrToInt(Copy(CheckSum, i, 1)));
 
    // Extraer el valor de la derecha.
    Digito := StrToInt(Copy(IntToStr(Digito), Length(IntToStr(Digito)),1));
 
    // Restarlo de 10 si es mayor o igual que 10.
    if Digito > 9 then
      Digito := 10 - Digito;
 
    // Comparar d&iacute;gito de control original con el obtenido y devolver un resultado.
    Result := (Digito = StrToInt(DigitoOrig));
  end
  else
    Result := False;
end;

See What's New in Delphi XE2

VCL Styles in Delphi, C++Builder and RAD Studio XE2

Um dos novos recursos do Delphi XE2 é "Style VCL." Com Style VCL você poderá aplicar com rapidez e facilidade uma "skin" a sua aplicação VCL. Várias opções de estilo estão incluídos, junto com "style designer" que permite criar suas próprias skins. Você pode escolher o estilo padrão de um aplicativo na caixa de diálogo Opções do Projeto:

Para demonstrar esses novos estilos, eu joguei junto um aplicativo simples que tem cada um dos controles visíveis a partir da coleção de controle "Standard" em um único formulário. Aqui está o formulário com o "Windows" de estilo, que é o padrão (clique para ampliar):

Visualização dos estilos padrões :

Aqua Graphite	Aqua Light Slate
Emerald Light Slate	Golden Graphite
Ruby Graphite

Se você não gosta de qualquer uma dessas opções, você pode criar o seu próprio com o designer de estilo :

Style Designer