Delphi é um ambiente de programação visual totalmente novo que nos fornece uma ferramenta de desenvolvimento de aplicativos Windows conveniente e rápida.
A seguir estão duas experiências práticas em programação Delphi que espero compartilhar com vocês:
1. Linguagem de marcação de link de texto (HTML) . Usar o método de abertura no Windows (como IE, etc.) para acessar arquivos HTML é muito restrito pelo sistema e não é flexível o suficiente. O Delphi fornece o controle THTML, que pode chamar arquivos HTML, mas suas propriedades não explicam em detalhes como chamar arquivos HTML nativos. Na verdade, esta função pode ser realizada desde que o formato de URL correto seja o seguinte:
arquivo:∥<host>/<caminho>
Por exemplo: Se houver um arquivo HTML com o caminho C:HelpHome??Htm então seu formato de URL correto deverá ser: file:∥C:HelpHome??htm; Portanto, chamar o arquivo HTML para o controle HTML1 deve ser: HTML1??RequestDoc(file:∥c:HelpHome??Htm). Dessa forma, você mesmo pode escrever um programa para chamar arquivos HTML para formar um sistema de arquivos de ajuda independente.
2. Use SQL para implementar consultas difusas de dados de campo . Um símbolo importante do Delphi como uma poderosa ferramenta de desenvolvimento de aplicativos de banco de dados é que ele oferece suporte à programação SQL. No processo real, muitas vezes é necessário realizar consultas difusas em determinados campos. Por exemplo, ao consultar o campo “Nome”, ao inserir “Wang”, todos os registros com o sobrenome Wang podem ser listados automaticamente. Na verdade, esta função pode ser facilmente realizada combinando os recursos do SQL e do Delphi. O princípio básico é: ao consultar, controle o escopo da consulta para estar entre nomes maiores que 'query string + chr (0)' e menores que 'query string + chr ($ff)' e todos os registros que atendem às condições pode ser consultado. Aqui estão exemplos específicos:
Var
NameStr:String;∥Definir variável intermediária de string
Começar
NameStr:='王';
Query1??SQL??Clear{Limpa a instrução de comando SQL no atributo SQL}
Consulta1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥Instrução de comando SQL
Query1??params[0]??AsString:=NameStr＋chr(0);∥O parâmetro de controle está em NameStr＋Chr(0)
Query1??params[1]??AsString:=NameStr+chr($ff); entre ∥ e NameStr+Chr($ff)
Query1??Open;∥Abra o banco de dados e execute a consulta SQL
Fim;