Dicas para Delphi - Programação

Dicas para Delphi - Programação

Definição: front-end e back-end
O desenvolvedor de front-end toma o design elaborado e o transforma em algo funcional por meio das linguagens usadas nessa área projetando e construindo os elementos da experiência do usuário na página web ou aplicativo, incluindo botões, menus, páginas, links, gráficos e muito mais.. Executa-se o front-end usando uma combinação de tecnologias, tais como: Hypertext Markup Language (HTML), JavaScript e Cascading Style Sheets (CSS). O perfil do profissionall de front-end deve ter domínio das ferramentas fundamentais para desenvolvimento, que são HTML, CSS e JavaScript entre outras.

O desenvolvedor de back-end, por sua vez, atua na parte dos sistemas e garante que esteja tudo devidamente certo com o servidor. Consiste no servidor que fornece os dados solicitados na aplicação que os canaliza e na base de dados que organiza as informações. O perfil do profissional de back-end deve contar com domínio dos sistemas operacionais de servidores, possibilidade de análises claras das informações e estatísticas com dados de todas as métricas geradas pelo site, entendimento de frameworks e o conhecimento das linguagens de back-end; como PHP, Ruby, JavaScript, Python entre outros.

Quando um cliente procura por produto em um site, por exemplo, ele está interagindo com o front-end. Após colocar o item no carrinho e autorizar a compra, ele está interagindo com o back-end. Todas as informações são, portanto, enviadas pelo servidor.

Atalhos de Teclado da IDE do Delphi
• Ctrl+Shift+I: Indentar multiplas linhas de código de uma única vez em "n" espaços (conforme o que estiver especificado em Tools/Editor Options/General/Block Indent).
• Ctrl+Shift+U: Recuar indentação em "n" espaços (ídem acima).
• Ctrl+Shift+0 a 9: Inserir um Bookmark no editor de código. Ex: Você está na linha 845 e tecla Ctrl+Shift+0 (irá aparecer um pequeno quadrado com o número 0 à esquerda do editor). Você vai para o início da unit e, para voltar para a linha 845, é só teclar Ctrl+0. Tecle novamente Ctrl+Shift+0 para desmarcar.
• Alt+G: Ir para uma determinada linha.
• Ctrl+Shift+Seta para cima ou para baixo: Intercala entre o cabeçalho da procedure/função e a implementação da mesma.
• Ctrl+Shift+C: Class Completion. Este recurso é muito interessante para "auto-completar" uma função/procedure que você irá criar. Ex: Você digita o seguinte cabeçalho de procedure na seção de interface da unit:

Código:


procedure Imprimir(Sender: TObject; Relatorio: String);


Ao teclar Ctrl+Shift+C, automaticamente o Delphi insere na área de Implementation (no final da unit) o "corpo" da procedure, como segue:

Código:


<p>procedure Imprimir(Sender: TObject; Relatorio: String);
<p>begin
<p>end;


Este recurso também funciona da forma inversa, ou seja, se você implementar o "corpo" da procedure/function, e teclar Ctrl+Shift+C, o Delphi irá adicionar o cabeçalho na área de interface da unit.

• Ctrl+Mouse: Clique com o botão esquerdo do mouse mantendo pressionada a tecla Ctrl sobre a chamada a uma procedure/function/variável para localizá-la na unit atual ou em outra unit.
• Ctrl+J (Code Templates): Este recurso também tem uma boa utilidade. Digamos que você, a todo momento, precise usar um "if..then..else". Ao invés de digitar todo comando, você pode teclar Ctrl+J e, localizar o Template (modelo) apropriado na janela que se abre. Tecle enter para aplicar o Template escolhido. Para alterar ou incluir novos templates, vá em Tools/Editor Options/Code Insight.
• Ctrl+O+U: Alterna a caixa (maiúscula/minúscula) do código selecionado.
• Ctrl+K+E: Converter o código selecionado para minúsculas.
• Ctrl+K+F: Converter o código selecionado para maiúsculas.
• Ctrl+E: Ativa a busca incremental. Você pode pressionar Ctrl+E e digitar diretamente a palavra que deseja procurar, sem a necessidade de passar por uma caixa de diálogo especial (Ctrl+F).
• Ctrl+Shift+Setas: Mover o(s) componente(s) selecionado(s) rapidamente no form. O "salto" da movimentação é determinado pelo valor informado em Tools/Environment Options/Grid size X e Y.
• Ctrl+Setas: Move o componente pixel a pixel.
• Shift+Setas: Redimensiona o componente pixel a pixel.

• Se quiser usar o Code Completion, no momento em que digitar o comando e o ponto (Ex. Edit1. ), presione Ctrl+Barra de Espaço para forçar a exibição dos comandos relativos àquele componente.
• Se quiser usar o Code Parameters, para visualizar os tipos de parâmetros usados por uma função, após digitar o nome da função e o parêntesis, pressione Ctrl+Shift+Barra de Espaço (Ex: ZeraCod( ). Isto fará com que um hint apareça, exibindo qual parâmetro deve ser informado naquele momento.
• Quando você move o ponteiro do mouse sobre um componente, uma dica de tela aparece mostrando o nome e o tipo do mesmo (Ex: CdEmp: TEdit).
• Quando você redimensiona um componente, a dica mostra o tamanho (width x height) atuais.
• Quando você move um componente, a dica indica a posição atual (left e top).
• Para selecionar vários componentes, mantenha a tecla Ctrl pressionada enquando arrasta o ponteiro do mouse sobre os mesmos. Esta técnica é muito útil quando se quer selecionar componentes que estão inseridos em um componente do tipo container (Panel, GroupBox, ScrollBox, etc).
• Se você precisa adicionar vários componentes do mesmo tipo num form, mantenha a tecla Shift pressionada e clique sobre o componente desejado na paleta de componentes do Delphi. Agora é só ir clicando no form, onde quer que os novos componentes sejam inseridos. Para desfazer a "trava" do componente, clique no botão que tem um ponteiro de mouse, localizado no lado esquerdo da paleta de componentes.


Abaixo deixaremos algumas dicas para Programação em Delphi.
Estou utilizando atualmente o Delphi 10.3, mas não vamos nos prender a versões para as dicas.

Mensagens de erros mais comuns:

Código:


I) Mensagens de erro de compilação:
1. Fatal: Syntax error, ; expected but VAR found
tradução: erro de sintaxe, ; (ponto e vírgula) esperado mas VAR encontrado
correção: colocar ; no final da linha anterior ao comando VAR
2. Fatal: Syntax error, ; expected but BEGIN found
tradução: erro de sintaxe, ; (ponto e vírgula) esperado mas BEGIN encontrado
correção: colocar ; (ponto e vírgula) no final da linha anterior ao comando BEGIN
3. Fatal: Syntax error, ; expected but ELSE found
tradução: erro de sintaxe, ; (ponto e vírgula) esperado mas ELSE encontrado
correção: tirar ; (ponto e vírgula) do final do comando anterior ao ELSE
4. Fatal: Syntax error, identifier expected but , found
tradução: erro de sintaxe, identificador (de variável) esperado mas , encontrada
correção: tirar a , (vírgula) que deixou sobrando na declaração de variáveis ou colocar a variável
desejada
5. Fatal: Syntax error, ) expected but identifier SOMA found
tradução: erro de sintaxe, ) (parˆentese) esperado mas variável SOMA encontrada
correção: colocar , (vírgula) que está faltando entre a express˜ao e a variável, por exemplo,
incorreto: WRITELN(’soma = ’ SOMA); correto: WRITELN(’soma = ’ , SOMA);
6. Fatal: illegal character ’¸c’
tradução: caracter ilegal ¸c
correção: você colocou ¸c, ou outro caracter ilegal, em algum identificador (nome do programa,
nome de variável), altere o caracter ilegal para um caracter permitido
7. Fatal: String exceeds line
tradução: express˜ao excedeu a linha
correção: fechar com ap´ostrofe a express˜ao dentro do WRITE
8. Error: Identifier not found SOMA
tradução: erro: identificador (de variável) SOMA encontrado
correção: declarar a variável SOMA
9. Error: Identifier not found WHITELN
tradução: erro: identificador (de variável) WHITELN encontrado
correção: escrever corretamente WRITELN
10. Error: Duplicate identifier SOMA
tradução: erro: identificador SOMA duplicado
correção: você declarou duas vari´aveis com o mesmo identificador (nome) ou utilizou o mesmo
identificador para o nome do programa e o nome de uma variável, mudar um dos identificadores.
11. Error: Incompatible types: got BOOLEAN expected S80REAL
tradução: erro: tipos incompat´ıveis: entre l´ogico e real
correção: colocar parˆenteses onde for necess´ario, por exemplo, (A=B) AND (A=C)
1
12. Error: Incompatible types: got S80REAL expected LONGINT
tradução: erro: tipos incompat´ıveis: entre real e inteiro
correção: você tentou colocar um valor real em uma variável inteira, altere a declaração  de vari´aveis
13. Error: Error while linking: file not recognized: File format not recognized
tradução: erro: arquivo não reconhecido (ou diretório não reconhecido)
correção 1: você colocou algum caracter ilegal (¸c, ˜a, ´o, +, -, espa¸co em branco, etc...) no nome
do arquivo fonte, por exemplo, incorreto: disis˜ao.pas, correto: divisao.pas
correção 2: você colocou algum caracter ilegal (¸c, ˜a, ´o, +, -, espa¸co em branco, etc...) no nome
do diretório onde está gravado seu arquivo fonte, por exemplo, incorreto: D: .... Massima , correto: D: ... Mássima

II) Mensagens de advertências, notas e dicas de compilação:
(não s˜ao erros, o programa ser´a compilado apesar delas)
1. Warning: Variable SOMA does not seem to be initialized
tradução: Advertˆencia: variável SOMA não foi inicializada
correção: significa que você não atribuiu valor `a variável SOMA, SOMA não foi inicializada
2. Note: Local variable C not used
tradução: Nota: variável local C não utilizada
observaçao: você declarou a variável C, mas ela não foi utilizada no programa
3. Note: Local variable C is assigned but never used
tradução: Nota: Foi atribu´ıdo um valor `a variável local C, mas nunca foi escrito
observaçao: você não pediu para imprimir o valor da variável C no programa
4. Hint: Use DIV instead to get an integer result
tradução: Dica: Use o comando DIV para calcular um valor inteiro
observaçao: esta dica aparece quando você toma vari´aveis A e B inteiras e executa a divisão
real A/B.
5. compiled successfully
tradução: seu programa foi compilado com sucesso
observaçao: pode executar seu programa

III) Erros durante a execução do programa
1. divisão por 0
observação: a execução será interrompida e não mostrará o resultado
2. raiz quadrada de número negativo
observação: a execução será interrompida e não mostrará o resultado


Abrir Navegador ao clicar em um Label:

Código:


Declare na Cláusula Uses: ShellAPI
No Evento Onclick de um TLabel coloque:

// Abre janela para envio de e-mail's

ShellExecute(Handle,'open','mailto:nome@contato.com.br', '', '',SW_SHOW);

ou então coloque:

//Abre pagina do Internet Explorer

ShellExecute(Handle,'open','http://www.site.com.br','','',1);


Função para remover acentos:

Código:


function TiraAcentos(const Texto: ANSIString): ANSIString;

const

  Acentos   = 'áéíóúÁÉÍÓÚàèìòùÀÈÌÒÙäëïöüÄËÏÖÜãõÃÕâêîôûÂÊÎÔÛçÇñÑ';

  Normais   = 'aeiouAEIOUaeiouAEIOUaeiouAEIOUaoAOaeiouAEIOUcCnN';

var

  a: Integer;

begin

  Result := '';

  for a := 1 to Length(Texto) do

    if Pos(Texto[a], Acentos) > 0 then

      Result := Result + Normais[Pos(Texto[a], Acentos)]

    else                              

      Result := Result + Texto[a];

end;


Comandos com AdoTable e AdoQuery:

Código:


procedure TForm1.BtnInicioClick(Sender: TObject);

begin

  ADOTable1.First;   (posiciona o registro na primeira posição no cadastro)

end;



procedure TForm1.BtnAnteriorClick(Sender: TObject);

begin

  ADOTable1.Prior;  (Retorna uma posição do registro no cadastro)

end;



procedure TForm1.BtnPosteriorClick(Sender: TObject);

begin

  ADOTable1.Next;  (Avança uma posição do registro no cadastro)

end;



procedure TForm1.BtnFinalClick(Sender: TObject);

begin

  ADOTable1.Last;   (posiciona o registro no última posição no cadastro)

end;



procedure TForm1.BtnInserirClick(Sender: TObject);

begin

  ADOTable1.Append;    (adiciona o registro sempre no final do banco de dados)

ou

  ADOTable1.Insert;      (adiciona o registro na posição onde parou o ponteiro do banco de dados)

end;



procedure TForm1.BtnAlterarClick(Sender: TObject);

begin

  ADOTable1.Edit;    (Habilita a edição do registro existente no banco de dados)

end;



procedure TForm1.BtnApagarClick(Sender: TObject);

begin

  if MessageDlg('Deseja apagar o resgistro?', mtConfirmation,  

              [mbYes, mbNo], 0) = mrYes then

  begin

    ADOTable1.Delete;  (Apaga o registro selecionado no banco de dados)

  end;

end;



procedure TForm1.BtnCancelClick(Sender: TObject);

begin

  ADOTable1.Cancel;  (Cancela qualquer atividade de adição ou edição no banco de dados)

end;



procedure TForm1.BtnSalvarClick(Sender: TObject);

begin

  ADOTable1.post;   (Grava o registro banco de dados)

end;



procedure TForm1.EdtPesq1Change(Sender: TObject);   (Pesquisa usando código sem SQL)

begin

//faz pesquisa sem o uso do SQL

adotable1.Locate('nome',EdtPesq1.text,[lopartialkey,locaseinsensitive]);

end;



procedure TForm1.BtnPesq2Click(Sender: TObject);            (Pesquisa usando código com SQL)

begin        

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select nome, cpf, estado from CLIENTE where Nome like ''' + EdtPesq2.Text + '%''');

ADOQuery1.Open;

end;  


>>Como arredondar valores de ponto-flutuante para cima usando a função Ceil().
=>A função Ceil(), presente na unit Math, é útil quando queremos arrendondar valores de ponto-flutuante (valores com casas decimais) para cima, ou seja, para o menor inteiro maior ou igual ao valor fornecido.

Código:


procedure TForm1.Button1Click(Sender: TObject);
var
  valor: Real;
  resultado: Integer;
begin
  // lembre-se de inserir em uses [Math]
 
  valor := 5.3;  // vamos arredondar o valor para cima obtendo o resultado [6]

  resultado := Ceil(valor); // arredondando o resultado

  ShowMessage('O valor arredondado para cima é: ' + IntToStr(resultado));

end;


>>Exportando dados de uma tabela para um Arquivo TXT...

Código:

procedure TForm1.Button3Click(Sender: TObject);
var
  txt : TextFile;
  i:integer;
begin
  AssignFile(txt, 'C:\EXEMPLO\\CONTROLEEXEMPLO.txt');
  ReWrite (txt);
  ADOTable1.First;
  while not ADOTable1.Eof do
  begin
  for i := 0 to ADOTable1.Fields.Count - 1 do
  write(txt, ADOTable1.Fields[i].AsString + ' ');
  writeln(txt, ''); // quebra a linha
  ADOTable1.Next;
  end;
  CloseFile(txt);
end;

Código:

ATALHOS DE TECLADO DA IDE DO DELPHI

F4 - EXECUTA O PROGRAMA A PARTIR DA POSICAO DO CURSOR DO MOUSE;

F5 - ADICIONA UM BREAKPOINT;

F7 - DEBUGA SEU PROJETO ENTRANDO PARA DENTRO DAS SUB-ROTINAS;

F8 - DEBUGA SEU PROJETO APENAS PASSANDO PELAS SUB-ROTINAS;

F9 - EXECUTA SEU PROJETO EM MODO DE DEBUGACAO;

CTRL+SHIFT+I: INDENTAR MULTIPLAS LINHAS DE CODIGO DE UMA UNICA VEZ EM “N” ESPACOS (CONFORME O QUE ESTIVER ESPECIFICADO EM TOOLS/EDITOR OPTIONS/GENERAL/BLOCK INDENT).

CTRL+SHIFT+U: RECUAR INDENTACAO EM “N” ESPACOS (IDEM ACIMA).

CTRL+SHIFT+0 A 9: INSERIR UM BOOKMARK NO EDITOR DE CODIGO. EX: VOCE ESTA NA LINHA 845 E TECLA CTRL+SHIFT+0 (IRA APARECER UM PEQUENO QUADRADO COM O NUMERO 0 A ESQUERDA DO EDITOR). VOCE VAI PARA O INICIO DA UNIT E, PARA VOLTAR PARA A LINHA 845, E SO TECLAR CTRL+0. TECLE NOVAMENTE CTRL+SHIFT+0 PARA DESMARCAR.

CTRL+SHIFT+G - INSERE UMA NOVA “GUID” NA POSICAO DO CURSOR DO MOUSE.

CTRL+SHIFT+Y - DELETA TUDO ATE O FINAL DA LINHA

CTRL+SHIFT+J - CHAMA O “SYNCEDIT”

CTRL+SHIFT+SETA PARA CIMA OU PARA BAIXO: INTERCALA ENTRE O CABECALHO DA PROCEDURE/FUNCAO E A IMPLEMENTACAO DA MESMA.

CTRL+SHIFT+C: CLASS COMPLETION. ESTE RECURSO E MUITO INTERESSANTE PARA “AUTO-COMPLETAR” UMA FUNCAO/PROCEDURE QUE VOCE IRA CRIAR. EX: VOCE DIGITA O SEGUINTE CABECALHO DE PROCEDURE NA SECAO DE INTERFACE DA UNIT:

PROCEDURE IMPRIMIR(SENDER: TOBJECT; RELATORIO: STRING);

AO TECLAR CTRL+SHIFT+C, AUTOMATICAMENTE O DELPHI INSERE NA AREA DE IMPLEMENTATION (NO FINAL DA UNIT) O “CORPO” DA PROCEDURE

ESTE RECURSO TAMBEM FUNCIONA DA FORMA INVERSA, OU SEJA, SE VOCE IMPLEMENTAR O “CORPO” DA PROCEDURE/FUNCTION, E TECLAR CTRL+SHIFT+C, O DELPHI IRA ADICIONAR O CABECALHO NA AREA DE INTERFACE DA UNIT.

CTRL+MOUSE: CLIQUE COM O BOTAO ESQUERDO DO MOUSE MANTENDO PRESSIONADA A TECLA CTRL SOBRE A CHAMADA A UMA PROCEDURE/FUNCTION/VARIAVEL PARA LOCALIZA-LA NA UNIT ATUAL OU EM OUTRA UNIT.

CTRL+J (CODE TEMPLATES): ESTE RECURSO TAMBEM TEM UMA BOA UTILIDADE.

DIGAMOS QUE VOCE, A TODO MOMENTO, PRECISE USAR UM “IF..THEN..ELSE”. AO INVES DE DIGITAR TODO COMANDO, VOCE PODE TECLAR CTRL+J E, LOCALIZAR O TEMPLATE (MODELO) APROPRIADO NA JANELA QUE SE ABRE. TECLE ENTER PARA APLICAR O TEMPLATE ESCOLHIDO. PARA ALTERAR OU INCLUIR NOVOS TEMPLATES, VA EM TOOLS/EDITOR OPTIONS/CODE INSIGHT.

CTRL+E: ATIVA A BUSCA INCREMENTAL. VOCE PODE PRESSIONAR CTRL+E E DIGITAR DIRETAMENTE A PALAVRA QUE DESEJA PROCURAR, SEM A NECESSIDADE DE PASSAR POR UMA CAIXA DE DIALOGO ESPECIAL (CTRL+F).

CTRL+J - CHAMA O “CODE TEMPLATES” A PARTIR DO IDENTIFICADOR QUE O CURSOR ESTA POSICIONADO.

CTRL+T - DELETA O RESTANTE DA PALAVRA A PARTIR DA POSICAO AONDE O CURSOR SE ENCONTRA. POR EXEMPLO, SE VOCE PARAR A CURSOR NA LETRA X DA PALAVRA “EXPERIENCIA”, O TEXTO “PERIENCIA” SERA EXCLUIDO DO TEXTO.

CTRL+E - FAZ UMA BUSCA INCREMENTAL.

CTRL+Y - DELETA A LINHA CORRENTE.

CTRL+O+U: ALTERNA A CAIXA (MAIUSCULA/MINUSCULA) DO CODIGO SELECIONADO.

CTRL+K+E: CONVERTER O CODIGO SELECIONADO PARA MINUSCULAS.

CTRL+K+F: CONVERTER O CODIGO SELECIONADO PARA MAIUSCULAS.

CTRL+K+I: DESLOCA O CODIGO, OU BLOCO, UMA TABULACAO.

CTRL+K+U: DESFAZ O DESLOCAMENTO DO CODIGO, OU BLOCO, UMA TABULACAO.

CTRL+SETAS: MOVE O COMPONENTE PIXEL A PIXEL.

SHIFT+SETAS: REDIMENSIONA O COMPONENTE PIXEL A PIXEL.

CTRL+SHIFT+SETAS: MOVER O(S) COMPONENTE(S) SELECIONADO(S) RAPIDAMENTE NO FORM. O “SALTO” DA MOVIMENTACAO E DETERMINADO PELO VALOR INFORMADO EM TOOLS/ENVIRONMENT OPTIONS/GRID SIZE X E Y.

ALT+[ - MOVER PARA FRENTE.

ALT+] - MOVER PARA TRAZ.

ALT+G: IR PARA UMA DETERMINADA LINHA.

CTRL+F12 - VISUALIZA A UNIT REFERENTE AO FORM CORRENTE OU VISUALIZA O FROM REFERENTE A UNIT CORRENTE.

ALT+G - CHAMA O “GOTO LINE NUMBER” NO EDITOR.

CTRL+SHIFT+R - INICIA OU PARA A GRAVACAO DE UMA MACRO.

CTRL+SHIFT+P - EXECUTA O EDITOR DE MACROS.

CTRL+SPACE - CHAMA O “CODE COMPLETION” QUE CONCLUI O NOME DOS COMANDOS.

CTRL+SHIFT+SPACE - CHAMA O “CODE PARAMETER HINTS”.

CTRL+ENTER - ABRE O ARQUIVO ESPECIFICADO NO CURSOR DO MOUSE (DESDE QUE VOCE PARE O MOUSE SOBRE UM NOME DE ARQUIVO QUE EXISTA).

CTRL+SHIFT+C - DECLARA A PROCEDURE OU FUNCTION NA IMPLEMENTATION OU NA DECLARACAO DE PROCEDURES.

CTRL+SHIFT+UPARROW - NAVEGA PELO METODO.

CTRL+SHIFT+DOWNARROW - NAVIGATE TO METHOD IMPLEMENTATION/DECLARATION.

CTRL+ALT+UPARROW - NAVEGA PARA O METODO ANTERIOR EM ORDEM LEXICA.

CTRL+ALT+DOWNARROW - NAVIGATE PARA O PROXIMO METODO EM ORDEM LEXICA.

CTRL+/ - INCLUI COMENTARIO POR LINHA OU BLOCO SELECIONADO.


Função FormatFloat(String de Formatação,ValorPontoFluatuante):String

Código:



Formata um Valor em Ponto Flutuante usando a String contendo a Máscara de Formatação e retorna uma String.

String de Formatação:
     0 (Zero) - Mostra um zero no lugar caso não haja dígito.
     # (Cancela) - Dígito.
     ,  (Vírgula) - Separador de milhares.
     . (Ponto) - Separador de casas decimais.
     ; (Ponto e Vírgula) - Separador para representação de valores positivos, negativos e zero.
     E+ - Notação Científica.

Obs.: Se o Micro estiver configurado para o sistema brasileiro, durante a execução o ponto e a vírgula aparecerão de forma inversa ao que foi colocado na formatação.

Exemplos 1:

FormatFloat( '#,##0.00' , 12345.7809) 12.345,78
FormatFloat( '#,##0.00' , 78.9) 78,90
FormatFloat( '#,##0.00; (#,##0.00) ; Zero' , -1234.56) (1.234,56)
FormatFloat( '#,##0.00; (#,##0.00) ; Zero' , 0) Zero
Exemplos 2:

String de Formatação Valor 1 Valor 2 Valor 3 Valor 4
nada 1234 -1234 0,5 0
0 1234 -1234 1 0
0.00 1234.00 -1234.00 0,50 0,00
#.## 1234 -1234 ,5
#,##0.00 1.234,00 -1,234.00 0,50 0,00
#,##0.00;(#,##0.00) 1.234,00 (1.234,00) 0,50 0,00
#,##0.00;;Zero 1.234,00 -1.234,00 0,50 Zero
0.000E+00 1,234E+03 -1,234E+03 5,000E-01 0,000E+00
#.###E-0 1,234E3 -1,234E3 5E-1 0E0

Um exemplo de uso do componente [ADOQuery]

Código:

Insira
        ADOConnection1
        ADOQuery1
        DataSouce1
        DBGrid1
        Edit1
        Button1

1
ADOCONNECTION: Faça a coneção do ADOConnection1 com o banco de dados (pelo ConnectionString[...])
                [Connected]    = True
                [name]= ADOConnection1
                [LoginPrompt] = False

2
ADOQUERY:       Ligue a propriedede [connection] do ADOQuery  ao ADOConnection1
                na propriedade SQL digite [SELECT * FROM NOME DA TABELA]
                [Active]= True
                [Name]=ADOQuery1
                [Connection]= ADOConnection1
                [SQL]= Select * from Nome_da_tabela

3
DATASOURCE:     Ligue  a propriedade [DataSet] do DataSource1 ao ADOQuery
                [Name]= DataSource1
                [DataSet]= ADOQuery1

4
DBGRID:         Ligue a propriedade [DataSource] do DBGrid1 ao DataSouce1
                [Name]= DBGrid1
                [DataSource] = DataSource1



Evento do Button1
begin
                 ADOQuery1.Close; {Fecha a query}
                 ADOQuery1.SQL.Clear; {Limpa o conteúdo da propriedade SQL}
                 ADOQuery1.SQL.Add('Select *'); {Selecionar tudo}
                 ADOQuery1.SQL.Add('From Tab_venda'); {Da tabela Tab_venda}
                 ADOQuery1.SQL.Add('Where VenNum = "'+Edit1.Text+'"'); {onde Numerodavenda=}
                 ADOQuery1.Open ;
end;

// SQL.Clear =  limpa a propriedade SQL
// SQL.Add = Adiciona na propriedade SQL