Delphi es un entorno de programación visual completamente nuevo que nos proporciona una herramienta de desarrollo de aplicaciones Windows cómoda y rápida.
Las siguientes son dos experiencias prácticas en programación en Delphi que espero compartir con ustedes:
1. Lenguaje de marcado de enlaces de texto (HTML) . El uso del método de apertura en Windows (como IE, etc.) para acceder a archivos HTML está demasiado restringido por el sistema y no es lo suficientemente flexible. Delphi proporciona el control THTML, que puede llamar a archivos HTML, pero sus propiedades no explican en detalle cómo llamar a archivos HTML nativos. De hecho, esta función se puede realizar siempre que se utilice el formato de URL correcto. El formato es el siguiente:
archivo:∥<host>/<ruta>
Por ejemplo: si hay un archivo HTML con la ruta C:HelpHome??Htm, entonces su formato de URL correcto debe ser: archivo:∥C:HelpHome??htm. Por lo tanto, llamar al archivo HTML para controlar HTML1 debería ser: HTML1??RequestDoc(file:∥c:HelpHome??Htm). De esta manera, usted mismo puede escribir un programa para llamar archivos HTML para formar un sistema de archivos de ayuda independiente.
2. Utilice SQL para implementar consultas difusas de datos de campo . Un símbolo importante de Delphi como poderosa herramienta de desarrollo de aplicaciones de bases de datos es que admite programación SQL. En el proceso real, a menudo es necesario realizar consultas difusas en determinados campos. Por ejemplo, al consultar el campo "Nombre", cuando se ingresa "Wang", todos los registros con el apellido Wang se pueden enumerar automáticamente. De hecho, esta función se puede lograr fácilmente combinando las características de SQL y Delphi. El principio básico es: al realizar una consulta, controle el alcance de la consulta para que esté entre nombres mayores que 'cadena de consulta + chr (0)' y menores que 'cadena de consulta + chr ($ff)', y todos los registros que cumplan las condiciones. se puede consultar. Aquí hay ejemplos específicos:
var
NameStr:String;∥Establecer variable intermedia de cadena
Comenzar
NameStr:='王';
Query1??SQL??Clear{Borrar la instrucción del comando SQL en el atributo SQL}
Query1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥Instrucción de comando SQL
Query1??params[0]??AsString:=NameStr＋chr(0);∥El parámetro de control está en NameStr＋Chr(0)
Consulta1??params[1]??AsString:=NameStr+chr($ff) entre ∥ y NameStr+Chr($ff)
Consulta1??Abrir;∥Abrir la base de datos y ejecutar la consulta SQL
Fin (Shaanxi Yang Bo)