Alle Macht den Tasten - Formatierte Eingaberoutine für PASCAL

Mancher PASCAL-Programmierer kennt das Problem der Standard-Eingabefunktionen READ und READLN. Will man eine Zahl einiesen und tippe versehentlich eine Buchstabentaste, ist das Programm unzufrieden. Die folgende Routine läßt dieses Manko vergessen, bietet ganz nebenbei noch eine Formatvorgabe und begrenzt auf Wunsch die erlaubten Tasten.

Wer die Dialogboxen von GEM kennt, wird sie sicher zu schätzen wissen. Doch beim Erstellen eigener Programme ist die Handhabung dieser Boxen nicht gerade einfach, vor allem für diejenigen, die sich noch nicht eingehend mit den Resourcen und Objektbäumen beschäftigt haben.

Doch nun zu unserer Routine. Zuerst die Syntax:

Die Routine ist unter ST-Pascal von CCD lauffähig und dient als Ergänzung der PASCAL’schen Standard-Eingabebefehle. Sie läßt sich leicht in eigene Programme einbauen oder sogar als Include-Datei per Compileranweisung automatisch einfügen (z. B. $I Eingabe). Dabei sollte man allerdings folgendes beachten: Am Programmanfang müssen einige, zum Funktionieren unbedingt erforderliche Deklarationen erfolgen. Das sind der Typ ’chmenge’ und die Boolsche Variable ’ftaste’, ohne die die Routine nicht läuft.

Doch nun zu der aus zwei Teilen be-stehendenRoutine: Die Funktion ’GetChar’ wird von der Hauptroutine aufgerufen, ist aber auch getrennt von ihr gut einsetzbar. Deswegen wurde sie auch nicht lokal zur eigentlichen Inputroutine deklariert.

Sie nutzt einen GEMDOS-Aufruf, um auf einen Tastaturdruck ohne Bildschirmecho zu warten. Dieser Aufruf besteht aus zwei Wörtern (32 bit). Im zweiten Wort wird der ASCII-Code der gedrückten Taste zurückgegeben, im ersten ein besonderer Tastaturcode (SCAN-Code), der dann von Bedeutung ist, wenn eine Funktionstaste oder eine Taste aus dem. Pfeilblock gedrückt wurde. In diesem Fall ist der zurückgegebene ASCII-Code nämlich, unabhängig von der betätigten Funktionstaste, immer Null.

Für den Fall, daß eine solche Taste gedrückt wurde, gibt die Routine den Tastaturcode als Char-Wert zurück und setzt zur Unterscheidung von einem ASCII-Code die Variable ’ftaste’ auf true. Ansonsten wird ’ftaste’ auf false gesetzt, und die Routine gibt als Ergebnis das Zeichen zurück.

Die Prozedur ’input’ ist der Hauptteil der Routine. Sie verlangt insgesamt sieben Übergabeparameter. Die ersten drei davon geben die Startposition auf dem Bildschirm sowie die erlaubte Fänge der Eingabe an, wobei die Länge 80 Zeichen nicht überschreiten sollte, da ST-Pascal sonst mit einem STRING-OVERFLOW-Error antwortet. Außerdem sollte die Eingabe nur in einer Zeile stattfinden.

Der Parameter ’default’ gibt einen Standardstring an, der als Eingabevorgabe eingeblendet wird. Somit kann diese Funktion auch einen momentanen Variableninhalt ändern. Der alte Wert wird über ’default’ angezeigt und dann nach Belieben editiert. Dies ist bei einer Dateiverwaltung ein äußerst nützliches Hilfsmittel.

Der alte Wert kann während einer Eingabe durch Drücken von Ctrl-C bzw. UNDO wiederhergestellt werden.

Der fünfte Parameter 'erlaubt’ übergibt in einem ’set of char’ alle Zeichen, die die Prozedur als Eingabe akzeptiert. Alle anderen Zeichen werden durch ein Signal zurückgewiesen. Dadurch kann man beispielsweise nur Zahlen oder bestimmte Buchstaben zulassen.

Der sechste Parameter ’Formatstring’ übergibt der Prozedur einen String, in dem eine Eingabemaske festgelegt wird, in der bestimmte Zeichen nicht überschrieben werden können (ähnlich wie z. B. beim Kontrollfeld die Eingabemasken für Datum und Uhrzeit). Dieser Formatstring kann ruhig ein bißchen schludrig oder als Leerzeichen (”) übergeben werden. Ist die Anzahl der erlaubten Eingabepositionen im Formatstring kleiner als die mit Maxlänge angegebene Anzahl, so fügt das Programm automatisch die entsprechende Anzahl von Hintergrundzeichen ein, und zwar sucht es das erste im Formatstring vorkommende Hintergrundzeichen. Welche Stellen im Formatstring als Hintergrundzeichen interpretiert werden, also überschrieben werden können, wird in der Variable ’editierbar’ festgelegt. Diese Variable habe ich hier nicht als Übergabeparameter vorgesehen, dies ist aber ohne weiteres möglich. Der letzte Parameter ’inputstr’ liefert den Funktionswert der INPUT-Routine. Dabei werden jedoch nur die tatsächlich eingegebenen Zeichen zurückgegeben, die Formatzeichen aus dem Formatstring werden selbstverständlich ignoriert.

In der Prozedur ’input’ sind noch einige weitere Prozeduren enthalten, die kleine Teilaufgaben erfüllen und durch die modulare Schreibweise leicht nachträglich zu ändern sind. So bewegt die Prozedur ’GoPos’ den Cursor an die aktuelle Cursorposition (in der Variable ’curpos’ abgespeichert). Die Prozedur 'Ausgabe' baut die Eingabemaske samt der bisher durchgeführten Eingabe neu auf, was nach jeder akzeptierten Eingabe, die den String verändert, geschieht. Dies ist notwendig, da der Formatstring und die tatsächliche Eingabe, die in der Variablen ’inputstr’ gespeichert ist, getrennt verwaltet werden.

Aus diesem Grunde werden auch die Cursorposition im Formatstring (’curpos’) und die tatsächliche Eingabeposition im Eingabestring (’strpos’) getrennt verwaltet. Mit den Prozeduren ’CursorLinks’ und ’CursorRechts’ wird die neue Cursorposition in der Eingabemaske errechnet. Die tatsächliche Bewegung muß mit ’GoPos’ bzw. 'Ausgabe’ erfolgen. Außerdem muß das tatsächliche Verndern der Schreibposition im Eingabestring separat erfolgen. Die Prozedur ’CharRead’ ist die Einleseroutine von der Tastatur, die Zeichen nur dann akzeptiert, wenn sie eine Kontrollsequenz sind (= ASCII 1-27 und 127), der letzte Tastendruck eine Funktionstaste war oder die Eingabe in dem durch 'erlaubt' vorgegebenen Buchstabenbereich liegt. In der Hauptroutine werden zunächst einmal verschiedene Initialisierungen vorgenommen. So wird der Überschreibmodus (Variable ’replace’) ausgeschaltet, der Formatstring wird überprüft und gegebenenfalls an die tatsächlich erlaubte Länge der Eingabe angepaßt, dem Eingabestring wird der Defaultwert zugewiesen, dieser Wert wird ausgegeben und der Cursor an das Stringende gesetzt.

Die Eingabeschleife selbst besteht aus zwei Teilen, wobei der erste die Kontrollsequenzen und die Funktionstasten abarbeitet, der zweite die Zeicheneingaben erledigt. Die Kommandos und Operationen im ersten Teil sind praktisch selbsterklärend. Etwas sehr interessantes ist dabei anzumerken: Es war möglich, Tastaturcodes für die Funktionstasten und ASCII-Codes für die Kontrollsequenzen zusammen abzuarbeiten, da sich die Zahlenbereiche nicht überschneiden. So gibt z. B. bei der zweiten Option in der case-Schleife die Zahl 3 den ASCII-Code für Ctrl-C wieder und die 97 den Tastaturcode für UNDO.

Am Ende des Hauptprogramms sind noch einige Beispiele für die Verwendung dieser Routine gegeben, wobei mit diesen Beispielen schon die verschiedensten Anwendungen möglich sind, z. B. Datumseingabe, Eingabe eines Dateinamens oder Eingabe bzw. Ändern verschiedener Datensätze. Den Ideen sind hierbei sicherlich keine Grenzen gesetzt. Überlegen Sie doch selbst an welchen Stellen Ihrer eigenen Programme diese Routine einsetzbar wäre.

Viel Erfolg!

Bernhard Kohlhaas