Delphi est un nouvel environnement de programmation visuelle qui nous offre un outil de développement d'applications Windows pratique et rapide.
Voici deux expériences pratiques de programmation Delphi que j'espère partager avec vous :
1. Langage de balisage de liens texte (HTML) . L'utilisation de la méthode d'ouverture sous Windows (comme IE, etc.) pour accéder aux fichiers HTML est trop restreinte par le système et n'est pas assez flexible. Delphi fournit le contrôle THTML, qui peut appeler des fichiers HTML, mais ses propriétés n'expliquent pas en détail comment appeler des fichiers HTML natifs. En fait, cette fonction peut être accomplie à condition d'utiliser le format d'URL correct. Le format est le suivant :
fichier :∥<hôte>/<chemin>
Par exemple : S'il existe un fichier HTML avec le chemin C:HelpHome??Htm, alors son format d'URL correct doit être : file:∥C:HelpHome??htm. Par conséquent, l'appel du fichier HTML pour le contrôle HTML1 doit être : HTML1??RequestDoc(file:∥c:HelpHome??Htm). De cette façon, vous pouvez écrire vous-même un programme pour appeler des fichiers HTML afin de former un système de fichiers d'aide indépendant.
2. Utiliser SQL pour implémenter une requête floue sur les données de champ . Un symbole important de Delphi en tant qu'outil puissant de développement d'applications de bases de données est qu'il prend en charge la programmation SQL. Dans le processus réel, il est souvent nécessaire d’effectuer des requêtes floues sur certains champs. Par exemple, si vous interrogez le champ « Nom » et saisissez « Wang », tous les enregistrements portant le nom de famille Wang seront automatiquement répertoriés. En fait, cette fonction peut être facilement réalisée en combinant les fonctionnalités de SQL et Delphi. Le principe de base est le suivant : lors d'une requête, contrôlez la portée de la requête entre les noms supérieurs à "chaîne de requête + chr (0)" et inférieurs à "chaîne de requête + chr ($ff)", et tous les enregistrements qui remplissent les conditions. peut être interrogé. Voici des exemples précis :
Var
NameStr:String;∥Définir la variable intermédiaire de chaîne
Commencer
NameStr:='王';
Query1??SQL??Clear{Effacer l'instruction de commande SQL dans l'attribut SQL}
Query1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥Instruction de commande SQL
Query1??params[0]??AsString:=NameStr＋chr(0);∥Le paramètre de contrôle est dans NameStr＋Chr(0)
Query1??params[1]??AsString:=NameStr+chr($ff); entre ∥ et NameStr+Chr($ff)
Requête1 ? Ouvrir ; ∥Ouvrez la base de données et exécutez la requête SQL
Fin;