Universidade do Vale do Paraba Colgio Tcnico Antnio
Universidade do Vale do Paraíba Colé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: //www 1. 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. (List. Box)
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 : List. Box 1. items. Add("Maria"); List. Box 1. Items. Add("José"); List. Box 1. Items. Add("Célia");
Saída :
Capturando o Item Selecionado por intermédio da propriedade Item. Index. Exemplo : x : = List. Box 1. Item. Index; Show. Message(Int. To. Str(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 : = List. Box 1. Item. Index; a : = List. Box 1. 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. (Combo. Box).
Atribuindo dados para uma caixa de combinação. Exemplo : Combo. Box 1. Items. Add("Item-1"); Combo. Box 1. Items. Add("Item-2"); Combo. Box 1. Items. Add("Item-3"); Combo. Box 1. Items. Add("Item-4");
Saída :
Removendo dados de uma caixa de Combinação. Método Delete().
Atenção : Todas as propriedades e métodos usados para a caixa de lista (List. Box) valem para a caixa de combinação (Combo. Box 1).
Criando uma caixa de verificação. (Check. Box)
Saida :
Criando botões de rádio. (Radio. Group)
Saída :
Capturando a informação selecionada no botão de rádio.
Criando uma Barra de Rolagem. (Scroll. Bar).
Capturando dados de uma Barra de Rolagem. procedure TForm 1. Scroll. Bar 1 Change(Sender: TObject); var y: Integer; begin y : = Scroll. Bar 1. Position; Label 1. Caption : = Int. To. Str(y); end;
Criando um Painel. (Panel).
Exemplo : (Panel)
Manipulando os Eventos. Evento vem a ser qualquer tipo de operação disparada por um usuário da aplicação desenvolvida.
On. Click - Dispara o código de programa ao selecionar o objeto com o click do mouse. Exemplo: procedure TForm 1. Button 1 Click(Sender: TObject); begin Show. Message(‘Ok, Botão foi Clicado !!’); end;
On. Change - Dispara o código quando um objeto sofre algum tipo de modificação. procedure TForm 1. Edit 1 Change(Sender: TObject); begin if (Edit 1. text <> 'D') and (Edit 1. text <> 'N') and (Edit 1. text <> '') then begin Show. Message('O período deve ser diurno ou noturno. . '); edit 1. Clear; end;
On. Enter - Dispara o código quando o objeto for selecionado. procedure TForm 1. Edit 1 Enter(Sender: TObject); begin Show. Message('Digite D ou N maiusculo !!'); end;
On. Exit - Dispara o código quando o foco abandonar o mesmo. procedure TForm 1. Edit 1 Exit(Sender: TObject); begin Show. Message('Foi Digitado o caracter '+ edit 1. text); end;
On. Dbl. Click - Dispara o código quando for selecionado com um duplo click. procedure TForm 1. Form. Dbl. Click(Sender: TObject); begin Button 1. Left : = Button 1. Left + 5; end;
On. Activate - Dispara o código após ter desenhado o formulário. procedure TForm 1. Form. Activate(Sender: TObject); begin Show. Message('Não Esquecer de verificar a data. . . '); end;
On. Create - Dispara o código antes de desenhar o formulário. procedure TForm 1. Form. Create(Sender: TObject); begin Edit 2. text : = 'Nada na caixa'; end;
On. Mouse. Down- Dispara o código ao soltar o botão de direito do mouse. procedure TForm 1. Form. Mouse. Down(Sender: TObject; Button: TMouse. Button; Shift: TShift. State; X, Y: Integer); var i : integer; begin Label 1. Caption : = 'Houve um clique'; end;
On. Mouse. Move - Dispara o código ao mover o mouse no objeto. procedure TForm 1. Button 1 Mouse. Move(Sender: TObject; Shift: TShift. State; X, Y: Integer); begin Label 1. Caption : = 'Clique aqui para sair'; end;
On. Close - Dispara o código antes de fechar o formúlario. procedure TForm 1. Form. Close(Sender: TObject; var Action: TClose. Action); begin Show. Message('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 : <var. Inteira> : = trunc(<real>); Exemplo : x : = trunc(23. 45); Retorna o truncamento do número para 23.
Sqr() - Eleva um determinado valor ao quadrado. Sintaxe : <var. Real> : = 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 : <valor. Real> : = 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 : <Var. Real> : = 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 : <var. Real> : = Exp(<Valor>); Exemplo : k : = Exp(4. 60); Retorna para o valor de k aproximadamente 100.
Pi - Retorna com valor do número Pi. Sintaxe: <Var. Real> : = Pi; Exemplo : v : = Pi; Retorna para v, valor de pi = 3. 1415926535897932385.
Sin() - Retorna com seno de um ângulo em graus Sintaxe: <Var. Real> : = 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: <Var. Real> : = 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: <Var. Real> : = frac(<Valor>); Exemplo : y : = frac(4. 987); Retorna o valor para y = 0. 987.
log 10() - Retorna o logaritmo na base dez para um valor especificado. Sintaxe: <Var. Real> : = log 10(<Valor>); Exemplo : y : = log 10(100); Retorna o valor para y = 2.
log. N() - Retorna o logaritmo na base N para um valor especificado. Sintaxe: <Var. Real> : = log. N(<base>, <valor>); Exemplo : y : = log. N(10, 100); Retorna o valor para y = 2.
max() - Retorna com o maior entre dois valores. Sintaxe: <Var. Tipo> : = 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: <Var. Tipo> : = 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 uma determinada variável. Sintaxe: <Var. Tipo> : = 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: <Var. Real> : = 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 format. Float() - retorna formatos de valores com separação de milhar e casas decimais. Exemplo : x : = format. Float('#, ##0. 00; (#, ##0. 00)', -123. 00); floattostrf() - retorna formatos de valore com separação de milhar e casas decimais. Exemplo: x : = floattostrf(strtofloat(edit 1. text), ff. Number, 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 Tdate. Time. Exemplo : var x : Tdate. Time; Begin x : = Date; End;
Date. Timeto. Str() - Retorna um valor do tipo Tdate. Time em uma String. Exemplo : var y : String begin y: = date. Time. To. Str(date); Show. Message(y); end;
Day. Of. Week() - Retorna o dia da semana de uma determinada data. Sendo um valor de 1 à 7. Exemplo : var i : integer; begin i : = Day. Of. Week(date); Showmessage(inttostr(i)); end;
Time. To. Str() - converte um hora em formato Tdate. Time para String. Exemplo : var i : String; begin i : =Timeto. Str (Time); Showmessage(i); end;
Str. To. Time() - converte uma String em formato Tdate. Time. Exemplo : var d : Tdate. Time; begin d : =Strto. Time (‘ 00: 20’); Showmessage(Strto. Time(d)); end;
Format. Date. Time() -Retorna uma data e hora formatados de acordo com o formato especificado. Exemplo : var s : string; begin s: = Format. Date. Time('yyyy', date); Show. Message(s); end;
Componente Date. Time. Picker cria um combobox agregado a um calendário. Propriedade date pega a data seleciona ou corrente, ou a hora corrente.
Is. Leap. Year() - Retorna true se ano específicado for bissexto. Var c : Boolean; Begin c : = Is. Leap. Year(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; Show. Message(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); Show. Message(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); Show. Message(s); end; O resultado será humano.
Is. Delimiter() -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 : = Is. Delimiter(s, ', ', 1); if b then Show. Message('ok'); end;
Upper. Case() - Retorna com a string em letras maiúculas. Lower. Case() - Retorna com a String em letras minúsculas. Exemplo : var s : String; begin s : = Upper. Case(‘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, . . ] Of <tipo>;
Exemplo : procedure TForm 1. Button 2 Click(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 Show. Message(inttostr(v[i])); end;
- Slides: 74