Delphi ist eine neue visuelle Programmierumgebung, die uns ein praktisches und schnelles Windows-Anwendungsentwicklungstool bietet.
Im Folgenden finden Sie zwei praktische Erfahrungen in der Delphi-Programmierung, die ich gerne mit Ihnen teilen möchte:
1. Textlink-Auszeichnungssprache (HTML) . Die Verwendung der Öffnungsmethode in Windows (wie IE usw.) für den Zugriff auf HTML-Dateien ist vom System zu stark eingeschränkt und nicht flexibel genug. Delphi stellt das THTML-Steuerelement bereit, das HTML-Dateien aufrufen kann, dessen Eigenschaften jedoch nicht im Detail erklären, wie native HTML-Dateien aufgerufen werden. Tatsächlich kann diese Funktion ausgeführt werden, solange das richtige URL-Format verwendet wird. Das Format ist wie folgt:
Datei:∥<host>/<pfad>
Beispiel: Wenn es eine HTML-Datei mit dem Pfad C:HelpHome??Htm gibt, sollte das korrekte URL-Format sein: file:∥C:HelpHome??htm; Daher sollte der Aufruf der HTML-Datei zur Steuerung von HTML1 wie folgt lauten: HTML1??RequestDoc(file:∥c:HelpHome??Htm). Auf diese Weise können Sie selbst ein Programm schreiben, das HTML-Dateien aufruft und so ein unabhängiges Hilfedateisystem bildet.
2. Verwenden Sie SQL, um eine Fuzzy-Abfrage von Felddaten zu implementieren . Ein wichtiges Merkmal von Delphi als leistungsstarkem Tool zur Entwicklung von Datenbankanwendungen ist die Unterstützung der SQL-Programmierung. Im eigentlichen Prozess ist es häufig erforderlich, Fuzzy-Abfragen für bestimmte Felder durchzuführen. Wenn Sie beispielsweise das Feld „Name“ abfragen und „Wang“ eingeben, werden automatisch alle Datensätze mit dem Nachnamen Wang aufgelistet. Tatsächlich kann diese Funktion leicht durch die Kombination der Funktionen von SQL und Delphi erreicht werden. Das Grundprinzip besteht darin, bei der Abfrage den Umfang der Abfrage so zu steuern, dass er zwischen Namen größer als „Abfragezeichenfolge + Chr (0)“ und kleiner als „Abfragezeichenfolge + Chr ($ff)“ und allen Datensätzen liegt, die die Bedingungen erfüllen kann abgefragt werden. Hier sind konkrete Beispiele:
Var
NameStr:String;∥String-Zwischenvariable festlegen
Beginnen
NameStr:='王';
Query1??SQL??Clear{Die SQL-Befehlsanweisung im SQL-Attribut löschen}
Query1??SQL??Add(′Select＊FromCustom??dbwhere(Name1>=N1)and(Name2<=N2)′);∥SQL-Befehlsanweisung
Query1??params[0]??AsString:=NameStr＋chr(0);∥Der Steuerparameter befindet sich in NameStr＋Chr(0)
Query1??params[1]??AsString:=NameStr+chr($ff); zwischen ∥ und NameStr+Chr($ff)
Abfrage1??Öffnen;∥Öffnen Sie die Datenbank und führen Sie eine SQL-Abfrage aus
Ende;