1

Universidade do Vale do ParaíbaColégio Técnico Antônio Teixeira Fernandes

Disciplina Banco de dados - I

Material I-Bimestre

Introdução a linguagem de programação object pascal (Delphi), Estrutura da aplicação, Código Fonte, Tipos de dados, componentes básicos, operadores, Estruturas de

controle, conversão de tipos.

site: http://www1.univap.br/~wagner

Prof. Responsáveis

Wagner Santos C. de Jesus

2

O que é Delphi?

O Delphi é um ambiente de desenvolvimento de aplicações, orientado a objeto, que permite o desenvolvimento de aplicações para os Sistemas operacionais Windows 3.11, Windows 95 e tecnologia NT, etc. com pouca codificação.

Que possui ferramentas de desenvolvimento, como templates e experts de aplicações e formulários, que aumentam muito a produtividade, facilitando a programação da aplicação.

3

Detalhes Técnicos(Delphi)

• É uma ferramenta de programação, dialeto da linguagem Pascal.

• Orientada a Objetos(OOP).

• Ferramenta de RAD(Rapid Aplication Development).

• Programação por Eventos.

• Acesso a bancos de dados.

4

Formação de uma Aplicação em DelphiProjeto

• UNIT - Unidade

• Form - Formulário

• Project – Projeto

• procedures, functions - Procedimentos e funções

5

Exemplo do Arquivo(Project)

program Project1;uses Forms, Unit1 in 'UNIT1.PAS' {Form1};{$R *.RES}begin Application.CreateForm(TForm1, Form1); Application.Run;end.

6

Exemplo do Arquivo Formulário (*.pas)

unit Unit1;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,

Dialogs;type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}{Uses Adicional}{Initialization}end.

7

Form (Formulário)

Programação

8

Tipos de dados

Os tipos de dados definem como deverá ser a informação gravada na memória de um computador. No que diz respeito ao tamanho, tipo e espaço reservado para um determinado dado.

9

Tipos de dados São:

• Números Inteiros • Números de ponto Flutuante• Letras e Números e símbolos – String• Booleano (Verdadeiro ou Falso) e Variante• Data e Hora

10

Tipos de dados(Inteiros)

• Integer - -2.147.438.648 até 2.147.438.647• Byte - 0 até 255• Int64 - • LongInt - -2147.483648 até 2.147.483.647• LongWord - 0 até 4.249.967.295• ShortInt - -128 até 127• SmallInt - -32.768 até 32.767• Word - 0 até 65535416

11

Tipos de Dados(Real) Ponto Flutuante

12

Tipos de Dados(String)

• String - 255 Caracteres

• AnsiString - Aproximadamente

• WideString - Aproximadamente

13

Tipos de Dados(Boolean) e Variante

• Boolean - False ou True• Tipo Variante (Variant)• Cria um tipo de dados dinâmico para uma variável

14

Data e Hora

• O tipo data e hora vem a ser um tipo especial para controles cálculos e ajuste preciso no que diz respeito a data e hora.

TDateTime : Cria a uma variável especial para data e hora.

15

Componentes

• São conjunto de objetos para criação de uma aplicação.

• Exemplo : Botões, Caixa de Texto etc.

16

Barra de ComponentesPrincipais Componentes

17

Propriedades• Todo o componente é composto por propriedade e

métodos.• Caixa de Propriedades exemplos:

18

Operadores Relacionais

> - Maior que

< - Menor que

= - Igual a

<> - Diferente de

>= - Maior ou igual

<= - Menor ou Igual

19

Operadores Aritméticos

+ - Soma

- - Subtração

* - Multiplicação

/ - Divisão

div - Divisão de Inteiros

mod - Resto da Divisão

20

Operadores Lógicos(Booleanos)

And - e

Or - ou

Not – Não

21

Estruturas de Controle

• Atribuição• Repetição • Condição

22

Atribuição

<Variável> := <Valor/Conteúdo>;

Exemplo :

Var x : real;

x := 1.5;

palavra := ‘Abacaxi’;

23

Sintaxe Condição (If/then/else)

if <condição> then <Instrução-1> else <Instrução-2>;

Ou

if <condição> then Begin <Bloco-Instruções>; end;

24

Exemplo bloco com else

if <condição> then Begin <Bloco-Instrução-1>; end else Begin <Bloco-Instrução-2>; End;

Aqui não tem (;)

25

Exemplo : if()

a := 10;

if(a = 10) then

ShowMessage(“Ok”)

else

ShowMessage(“Valor diferente de 10”);

26

Sintaxe Repetição (For)

For <Variavel> := <Inicial> to <Final> do

<Instrução>;

ou

For <Variavel> := <Inicial> to <Final> do

Begin

<Instrução>;

End;

27

Ou downto quando o (For) é decrescente

• Exemplo :

For <Variavel> := <Final> downto <Inicial> do

Begin

<Instrução>;

End;

28

Exemplo: For

For i := 1 to 10 do

ShowMessage(IntToStr(i));

O programa acima irá imprimir valores de

um a 10.

29

Estrutura de Repetição com While/do

Exemplo :

While <condição> do <Instrução>;ouWhile <condição> do Begin <Bloco-Instrução>;end;

30

Exemplo: While.

a:= 1;

While a <= 5 do

begin

a := a + 1;

end;

ShowMessage(a);

31

Estrutura de Repetição com Repeat/Until

Exemplo :

Repeat

<Bloco de Instruções>;

Until <condição>

Atenção : A instrução Repeat não possui o uso dos comandos begin End em seu interior.

32

Exemplo : Repeat

procedure TForm1.Button2Click(Sender: TObject);var a,t : integer;begin a := 1; Repeat t := a * 3; a := a + 1; ShowMessage(IntToStr(t)); Until a > 10end;

33

Declaração de Variáveis

var - Comando que declara uma variável.

Sintaxe :

[var <Nome-Variável>] : [<tipo>];

Exemplo :var x : integer;

34

Procedimento de Saída de Dados

Para enviar dados para uma caixa de mensagens usamos a “procedure”

ShowMessage().

Exemplo :

ShowMessage(‘Testando Programa’);

Obs : A saída será uma caixa de mensagens com a String (Testando Programa!!!).

35

Exemplo da Saída do ShowMessage()

36

Usando Componentes Padrão(Standard)

• Os Componentes mais comuns em uma aplicação são :

• Caixa de Texto.

• Botão de Comandos.

• Formulário.

• Rótulo

37

Componente Caixa de Texto(Edit)

Entrada de dados do tipo String pelo teclado.

38

Componente Botão de Comandos(Button)

Botão de comandos

39

Componente Form com (Edit,Button)

40

Componente Label(Rótulo)

• Um meio de enviar informações para tela.

Obs : Para mudar o rótulo de um label usa-se a propriedade caption.

41

Exemplo :

Label1.Caption = “Testando programa Delphi”;

42

Conversão de tipos de dados

Tipo String para um Inteiro. Função StrToInt()

Tipo Inteiro para uma String. Função InToStr()

Tipo String para um Real. Função StrToFloat()

Tipo Real para String. Função FloatToStr()

43

Exemplo Conversão inteiro para String.

procedure TForm1.Button1Click(Sender: TObject);var a : integer; b : String;begin a := 5; b := IntToStr(a); ShowMessage(b);end;

44

InputBox() - Criando uma caixa de entrada

Sintaxe do InputBox() : <varString> := InputBox(<Str1>,<Str2>,<Str3>);<Str1> - Primeiro argumento string que é o título do

cabeçalho da Janela.<Str2> - Segundo argumento string que contém o título da

caixa de texto.<str3> - Terceiro argumento string que é a seqüência de

caracteres padrão de entrada da caixa.Obs : Retorna com a String digitada pelo usuário, caso

não seja digitado nada será retornado nulo (vazio).

45

Exemplo : InputBox()

S := InputBox(‘Entrada’,’Digite uma Palavra’,’’);

46

Programa Exemplo :

procedure TForm1.Button1Click(Sender: TObject);vari,s,m,p: Integer;nome,nomem :String;begin m := 0; for i := 1 to 5 do begin s := StrtoInt(InputBox('Entrada','Ano Nascimeto:','')); nome := InputBox('Entrada','Nome:',''); p := 2005 - s; if p > m then begin m := p; nomem := nome; end; end; ShowMessage('O mais velho é o '+nomem+ 'Com '+Inttostr(m)+' anos de idade.');end;