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

Disciplina Banco de Dados I.

Material II-Bimestre

Objetos de Controle, Eventos Funções de Manipulação de data e hora, Manipulação de Strings

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

Prof. Responsáveis

Wagner Santos C. de Jesus

Objetos de Controle

Delphi conta com uma barra de tarefas capaz de permitir a confecção de rotinas mas sofisticadas com relação a parte visual da aplicação.

Usando Objetos principais do Delphi

Criando uma caixa de lista. (ListBox)

Atribuindo dados para caixa de lista.

Usando a propriedade Items.

Permite acrescentar em cada posição da caixa de lista um item enviado pelo métodos Add() que adiciona criando uma nova posição na caixa de texto.

Exemplo :

ListBox1.items.Add("Maria");

ListBox1.Items.Add("José");

ListBox1.Items.Add("Célia");

Saída :

Onde o primeiro item da caixa de lista é 0 e o terceiro 2 eassim por diante. Em caso nenhum item esteja seleciona ovalor será (-1).

Capturando o Item Selecionado por intermédio da propriedade ItemIndex.

Exemplo :

x := ListBox1.ItemIndex;

ShowMessage(IntToStr(x));

Obs : No exemplo acima x será um número de 0 a 2.

Capturando uma "String" da caixa de Lista. Método Strings[].

Exemplo :

x := ListBox1.ItemIndex;

a := ListBox1.Items.Strings[x];

Obs : Irá retorna com a string selecionada na caixa de Lista pelo usuário armazenando o conteúdo na variável (a).

Criando uma Caixa de Combinação. (ComboBox).

Atribuindo dados para uma caixa de combinação.

Exemplo :

ComboBox1.Items.Add("Item-1");

ComboBox1.Items.Add("Item-2");

ComboBox1.Items.Add("Item-3");

ComboBox1.Items.Add("Item-4");

Saída :

Capturando dados de uma caixa de combinação.

AnsiString a := ComboBox1->Text;

Removendo dados de uma caixa de Combinação. Método Delete().

ComboBox1.Items.Add("Item-1"); ComboBox1.Items.Add("Item-2"); ComboBox1.Items.Add("Item-3"); ComboBox1.Items.Add("Item-4"); ComboBox1.Items.Delete(3);

Obs : No exemplo acima o item eliminado será (Item-4). Poiscomo na caixa de lista a caixa de combinação também iniciana posição 0 (Zero).

Atenção : Todas as propriedades e métodos usados para a caixa de lista (ListBox) valem para a caixa de combinação (ComboBox1).

Criando uma caixa de verificação. (CheckBox)

Exemplo :

CheckBox1.Checked := true;

Saida :

Obs : Marca a caixa de verificação quandorecebe verdadeiro e desmarca quando recebefalse, podendo ser usado também (0- nãoselecionado ou 1- Selecionado).

Criando botões de rádio. (RadioGroup)

Exemplo :

RadioGroup1.Items.Add("Masc.");RadioGroup1.Items.Add("Fem.");

Saída :

Capturando a informação selecionada no botão de rádio.

Exemplo :

k := RadioGroup1.ItemIndex; if k =0 then ShowMessage("Masc. Foi Selecionado !!!") else ShowMessage("Fem. Foi Selecionado !!!");

Criando uma Barra de Rolagem. (ScrollBar).

Capturando dados de uma Barra de Rolagem.

Obs : Uma Barra de Rolagem possui como propriedades principaisMax = 100 (determina o valor máximo que será atribuído para abarra e a propriedade Min = 0, o valor mínimo atribuído) e oPosition que retorna o valor selecionado.

procedure TForm1.ScrollBar1Change(Sender: TObject);var y:Integer;begin y := ScrollBar1.Position; Label1.Caption := IntToStr(y);end;

Criando um Painel. (Panel).

Cria um painel para agrupamento de objetos,ou seja tudo o que acontecer em um objetoPanel acontecera também com os outrosvinculados ao mesmo painel.

Exemplo : (Panel)

No exemplo abaixo a programação irá desabilitaros dois botões usando apenas uma única linha semque seja preciso desabilitar cada botão.

Exemplo :

Panel1.Visible = false;

Manipulando os Eventos.

Evento vem a ser qualquer tipo de operação disparada por um usuário da aplicação desenvolvida.

OnClick - Dispara o código de programa ao selecionar o objeto com o click do mouse.

procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(‘Ok, Botão foi Clicado !!’);end;

Exemplo:

OnChange - Dispara o código quando um objeto sofre algum tipo de modificação.

procedure TForm1.Edit1Change(Sender: TObject);begin

if (Edit1.text <> 'D') and (Edit1.text <> 'N') and (Edit1.text <> '') then begin ShowMessage('O período deve ser diurno ou noturno..'); edit1.Clear; end;

end;

OnEnter - Dispara o código quando o objeto for selecionado.

procedure TForm1.Edit1Enter(Sender: TObject);begin ShowMessage('Digite D ou N maiusculo !!');end;

OnExit - Dispara o código quando o foco abandonar o mesmo.

procedure TForm1.Edit1Exit(Sender: TObject);begin ShowMessage('Foi Digitado o caracter '+ edit1.text);end;

OnDblClick - Dispara o código quando for selecionado com um duplo click.

procedure TForm1.FormDblClick(Sender: TObject);begin Button1.Left := Button1.Left + 5;end;

OnActivate - Dispara o código após ter desenhado o formulário.

procedure TForm1.FormActivate(Sender: TObject);begin ShowMessage('Não Esquecer de verificar a data...');end;

OnCreate - Dispara o código antes de desenhar o formulário.

procedure TForm1.FormCreate(Sender: TObject);begin Edit2.text := 'Nada na caixa';end;

OnMouseDown- Dispara o código ao soltar o botão de direito do mouse.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i : integer;begin

Label1.Caption := 'Houve um clique';

end;

OnMouseMove - Dispara o código ao mover

o mouse no objeto.

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Label1.Caption := 'Clique aqui para sair';end;

OnClose - Dispara o código antes de

fechar o formúlario.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ShowMessage('O sistema irá fechar todos os programas e irá sair');end;

Funções e Procedimentos

Função vem a ser um fragmento de código

ao ser executado retornar um valor para o

programa principal.

Funções Numéricas

Abs() - Retornar o valor absoluto de um

número dado.

Exemplo :

x := abs(-3);

retorna com valor 3 para variável x.

Trunc() - retorna com truncamento de número real.Retornando um inteiro.

Sintaxe :

<varInteira> := trunc(<real>);

Exemplo :

x := trunc(23.45);

Retorna o truncamento do número para 23.

Sqr() - Eleva um determinado valor ao quadrado.

Sintaxe :

<varReal> := Sqr(<Valor>);

Exemplo :

y := Sqr(3);

Retorna o valor de y igual 9.

Sqrt() - Retorna com a raiz quadrada de um valor em ponto flutuante.

Sintaxe :

<valor> := Sqrt(<valor>);

Exemplo :

xy = Sqrt(49);

Retorna o valor 7.

Power() - Retorna o resultado de uma base elevada a um expoente.

Sintaxe :

<valorReal> := Power(<Base>,<Exp>);

Exemplo :

x := power(10,2);

Retorna com 100 resultado de 10 ao quadrado.

Ln() - Calcula o logaritmo Natural de um número

Sintaxe :

<VarReal> := Ln(<valor>);

Exemplo :

y := Ln(100);

Retorna o valor de y com 4.605170.

Exp() - Retorna com o valor especificado, ou seja de e elevado a x operação contrária a ln().

Sintaxe :

<varReal> := Exp(<Valor>);

Exemplo :

k := Exp(4.60);

Retorna para o valor de k aproximadamente

100.

Pi - Retorna com valor do número Pi.

Sintaxe:

<VarReal> := Pi;

Exemplo :

v := Pi;

Retorna para v, valor de pi = 3.1415926535897932385.

Sin() - Retorna com seno de um ângulo em graus

Sintaxe:

<VarReal> := Sin(<Valor>);

Exemplo :

v := Sin(30*Pi/180);

Retorna o valor do seno convertido em

radianos o valor será 0.5.

cos() - Retorna com cosseno de um ângulo em graus

Sintaxe:

<VarReal> := cos(<Valor>);

Exemplo :

v := cos(30*Pi/180);

Retorna o valor do seno convertido em

radianos o valor será 0.5.

frac() - Retorna a parte fracionária de um valor dado.

Sintaxe:

<VarReal> := frac(<Valor>);

Exemplo :

y := frac(4.987);

Retorna o valor para y = 0.987.

log10() - Retorna o logaritmo na base dez para um valor especificado.

Sintaxe:

<VarReal> := log10(<Valor>);

Exemplo :

y := log10(100);

Retorna o valor para y = 2.

logN() - Retorna o logaritmo na base N para um valor especificado.

Sintaxe:

<VarReal> := logN(<base>,<valor>);

Exemplo :

y := logN(10,100);

Retorna o valor para y = 2.

max() - Retorna com o maior entre dois valores.

Sintaxe:

<VarTipo> := max(<valor-x>,<valor-y>);

Exemplo :

y := max(100,30);

Retorna o valor para y = 100.

min() - Retorna com o menor entre dois valores.

Sintaxe:

<VarTipo> := min(<valor-x>,<valor-y>);

Exemplo :

y := min(100,30);

Retorna o valor para y = 30.

Obs : A função max(), mim() são

polimorficas.

Inc() - Incrementa um a uma determinada variável.

Sintaxe:

<VarTipo> := Inc(<valor-x>[,<valor-y>]);

Exemplo :

y := Inc(x,3);

Retorna o valor de x = 3, se no caso o x for

igual a zero. / Função dec análoga a função

Inc, decrementando o valor.

odd() - Retorna true se o número dado for um número impar.Sintaxe:

<Varboolean> := odd(<valor>);

Exemplo :

y := odd(13);

Retorna true para o argumanto impar.

random() - Retorna um valor aleatório entre 0 e 1.

Sintaxe:

<VarReal> := random();

Exemplo :

y := random();

Poderá retornar 0,40544938. Obs a função

random deverá ser usada em conjunto com a

função randomize para ativar número

aleatórios.

Formatando dados monetários

formatFloat() - retorna formatos de valores com

separação de milhar e casas decimais.

Exemplo : x := formatFloat('#,##0.00;(#,##0.00)',-123.00);

floattostrf() - retorna formatos de valore com

separação de milhar e casas decimais.

Exemplo:

x := floattostrf(strtofloat(edit1.text),ffNumber,7,2);

Funções de Manipulação de Data e Hora

Formação de data e Hora

Date - Retorna com a data do sistema no formato

TdateTime.

Exemplo :

var

x : TdateTime;

Begin

x := Date;

End;

DateTimetoStr() - Retorna um valor do tipo TdateTime em uma String.

Exemplo :

var y : String

begin

y:= dateTimeToStr(date);

ShowMessage(y);

end;

DayOfWeek() - Retorna o dia da semana de uma determinada data. Sendo um valor de 1 à 7.

Exemplo :

var i : integer;

begin

i := DayOfWeek(date);

Showmessage(inttostr(i));

end;

TimeToStr() - converte um hora em formato TdateTime para String.

Exemplo :

var i : String;

begin

i :=TimetoStr (Time);

Showmessage(i);

end;

StrToTime() - converte uma String em formato TdateTime.

Exemplo :

var

d : TdateTime;

begin

d :=StrtoTime (‘00:20’);

Showmessage(StrtoTime(d));

end;

FormatDateTime() -Retorna uma data e hora formatados de acordo com o formato especificado.

Exemplo :

var s : string;

begin

s:= FormatDateTime('yyyy',date);

ShowMessage(s);

end;

Componente DateTimePicker cria um combobox agregado a um calendário.

Propriedade date pega a data seleciona ou

corrente, ou a hora corrente.

IsLeapYear() - Retorna true se ano específicado for bissexto.

Var

c : Boolean;

Begin

c := IsLeapYear(2002);

End;

Funções de Manipulação de

Caracteres e Strings

Length() - Retorna um número inteiro

equivalente a quantidade de caracteres da

String.

Exemplo : x = length(‘Abacaxi’);

x, Será igual a 7 caracteres.

Uma String em Delphi tambem é um vetor de caracteres.

Portando podemos usar a string como um vetor de caracteres ou seja cada índice representa uma posição da string.

s := 'Testando um programa em delphi';

soma := 0;

for i := 1 to length(s) do

begin

if s[i] = 'a' then

inc(soma);

end;

ShowMessage(inttostr(soma));

Copy() - Pega uma parte da String especificada no argumento.

Exemplo :

var x : String;

begin

x := copy(‘Banana’,2,3);

end;

O valor de x será ‘ana’.

Pos() - Procura por uma sequencia de caracteres em uma outra string. Retornando a primeira ocorrência

Exemplo :

var x : Integer;

begin

x := pos(‘a’,’Mar’);

end;

O valor será x = 2.

Delete() -Remove um substring de um string.

Exemplo :

var s : String;

begin

s := ‘Morango’;

delete(s,3,3);

ShowMessage(s);

end;

O resultado será Mogo.

Insert() - Insere um substring em uma string apartir de uma posição.

Exemplo :

var s : String;

begin

s := ‘umano’;

Insert(‘h’,s,1);

ShowMessage(s);

end;

O resultado será humano.

IsDelimiter() -Retorna true se um determinado caractere de um string estiver como delimitador.

Exemplo :var

s : String;

b : boolean;

begin

s := 'Maria,Ana,Solange,Joao,Marcos';

b := IsDelimiter(s,',',1);

if b then

ShowMessage('ok');

end;

UpperCase() - Retorna com a string em

letras maiúculas.

LowerCase() - Retorna com a String em

letras minúsculas.

Exemplo :

var s : String;

begin

s := UpperCase(‘banana’);

end;

Arrays (vetores)

São variáveis que podem conter mais de um elemento sendo todos eles do mesmo tipo em delphi.

Sintaxe para criação de Array

Var

<nome-var> : Array[ 1..n,1..n,..] Of <tipo>;

procedure TForm1.Button2Click(Sender: TObject);var v : Array[1..5] of integer; i,x : integer;begin x := 3; for i := 1 to 5 do begin v[i] := x; inc(x); end;

for i := 1 to 5 do ShowMessage(inttostr(v[i]));end;

Exemplo :

i V1 32 43 54 65 76 8