Universidade do Vale do Paraíba
Colé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
1
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.
2
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.
3
Formação de uma Aplicação em Delphi
Projeto
•
•
•
•
UNIT - Unidade
Form - Formulário
Project – Projeto
procedures, functions - Procedimentos e
funções
4
Exemplo do Arquivo(Project)
program Project1;
uses
Forms,
Unit1 in 'UNIT1.PAS' {Form1};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
5
Exemplo do Arquivo Formulário
(*.pas)
unit Unit1;
interface
uses
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.
6
Form (Formulário)
Programação
7
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.
8
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
9
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
10
Tipos de Dados(Real) Ponto
Flutuante
11
Tipos de Dados(String)
• String - 255 Caracteres
• AnsiString - Aproximadamente
• WideString - Aproximadamente
12
Tipos de Dados(Boolean) e
Variante
• Boolean - False ou True
• Tipo Variante (Variant)
• Cria um tipo de dados dinâmico para uma variável
13
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.
14
Componentes
• São conjunto de objetos para criação de
uma aplicação.
• Exemplo : Botões, Caixa de Texto etc.
15
Barra de Componentes
Principais Componentes
16
Propriedades
• Todo o componente é composto por propriedade e
métodos.
• Caixa de Propriedades exemplos:
17
Operadores Relacionais
> - Maior que
< - Menor que
= - Igual a
<> - Diferente de
>= - Maior ou igual
<= - Menor ou Igual
18
Operadores Aritméticos
+ - Soma
- - Subtração
* - Multiplicação
/ - Divisão
div - Divisão de Inteiros
mod - Resto da Divisão
19
Operadores Lógicos(Booleanos)
And - e
Or - ou
Not – Não
20
Estruturas de Controle
• Atribuição
• Repetição
• Condição
21
Atribuição
<Variável> := <Valor/Conteúdo>;
Exemplo :
Var x : real;
x := 1.5;
palavra := ‘Abacaxi’;
22
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;
23
Exemplo bloco com else
if <condição> then
Begin
<Bloco-Instrução-1>;
Aqui não tem (;)
end
else
Begin
<Bloco-Instrução-2>;
End;
24
Exemplo : if()
a := 10;
if(a = 10) then
ShowMessage(“Ok”)
else
ShowMessage(“Valor diferente de 10”);
25
Sintaxe Repetição (For)
For <Variavel> := <Inicial> to <Final> do
<Instrução>;
ou
For <Variavel> := <Inicial> to <Final> do
Begin
<Instrução>;
End;
26
Ou downto quando o (For) é
decrescente
• Exemplo :
For <Variavel> := <Final> downto <Inicial> do
Begin
<Instrução>;
End;
27
Exemplo: For
For i := 1 to 10 do
ShowMessage(IntToStr(i));
O programa acima irá imprimir valores de
um a 10.
28
Estrutura de Repetição com While/do
Exemplo :
While <condição> do
<Instrução>;
ou
While <condição> do
Begin
<Bloco-Instrução>;
end;
29
Exemplo: While.
a:= 1;
While a <= 5 do
begin
a := a + 1;
end;
ShowMessage(a);
30
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.
31
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 > 10
end;
32
Declaração de Variáveis
var - Comando que declara uma
variável.
Sintaxe :
[var <Nome-Variável>] : [<tipo>];
Exemplo :
var x : integer;
33
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!!!).
34
Exemplo da Saída do ShowMessage()
35
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
36
Componente Caixa de
Texto(Edit)
Entrada de dados do tipo String
pelo teclado.
37
Componente Botão de Comandos(Button)
Botão de comandos
38
Componente Form com
(Edit,Button)
39
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.
40
Exemplo :
Label1.Caption = “Testando programa Delphi”;
41
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()
42
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;
43
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).
44
Exemplo : InputBox()
S := InputBox(‘Entrada’,’Digite uma Palavra’,’’);
45
Programa Exemplo :
procedure TForm1.Button1Click(Sender: TObject);
var
i,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;
46