DelphiRodrigo Vaccari

rvaccari@gmail.com@vaccari

Um pouco de história

• 1995 – Lançamento – 16 bits• 1996 – Versão 32 bits• 2001 – Kylix• 2003 – Delphi 8 .Net• 2006 – CodeGear• 2008 – Embarcadero• 2009 – Prism• 2011 – Versão 64, Mac, iOS, Cloud, FireMonkey

Curiosidades

• Anders Hejlsberg – Criador das linguagens: Delphi, J++, C#

• Lazarus– Free e Multiplataforma

• Projeto ACBr

Sobre

• Visual• Orientada a Objetos• Orientada a eventos• Compilada

Hello World

Delphi x Java x PHP

Função em Java:private double dividePorDois(double numero){

double resultado = numero/2;return resultado;

}

Função em PHP:private function dividePorDois(numero){

$resultado = $numero/2;return $resultado;

}

Função em Delphi:function dividePorDois(numero: integer): Double;var resultado: Double;begin resultado := numero/2; Result := resultado;end

Classes Delphi x Java

Classe em Java:public class Nota {

private double valor;

public Nota(double valor){this.valor = valor;

}

public void setValor(double valor) {this.valor = valor;

}

public double getValor() {return valor;

}}

Classe em Delphi:type TNota = class private FValor: Currency; protected function GetValor: Currency; procedure SetValor(value: Currency); public constructor Create(valor: Currency); published property Valor: Currency read GetValor write SetValor; end;

implementation{ TNota }

constructor TNota.Create(valor: Currency);begin FValor := valor;end;

function TNota.GetValor: Currency;begin Result := FValor;end;

procedure TNota.SetValor(value: Currency);begin FValor := value;end;

Sobre testesDUnitPresente no Delphi desde a versão 2005

uses TestFramework, SysUtils;

type TestCalass = class(TTestCase) strict private public procedure SetUp; override; procedure TearDown; override; publishedend;

interface

uses TestFramework, SysUtils, uCalculadora;type TestTCalculadora = class(TTestCase) strict private FCalculadora: TCalculadora; public procedure SetUp; override; procedure TearDown; override; published procedure TestSomar; end;

implementation

procedure TestTCalculadora.SetUp;begin FCalculadora := TCalculadora.Create;end;

procedure TestTCalculadora.TearDown;begin FCalculadora.Free; FCalculadora := nil;end;

procedure TestTCalculadora.TestSomar;var ReturnValue: Integer; valor2: Integer; valor1: Integer;begin valor1 := 2; valor2 := 2; ReturnValue := FCalculadora.Somar(valor1, valor2); CheckEquals(4, ReturnValue, 'Erro ao efetuar a soma');end;

initialization // Register any test cases with the test runner RegisterTest(TestTCalculadora.Suite);