Get edited text

Version 6.5

Get edited text Text

Die Funktion Get edited text wird hauptsächlich mit dem Formularereignis On After Keystroke eingesetzt. Damit finden Sie den Text genauso wieder, wie Sie ihn eingegeben haben. Sie können die Funktion auch mit dem Formularereignis On Before Keystroke verwenden. Weitere Informationen zu diesen Formularereignissen finden Sie in der Beschreibung der Funktion Form event.

Diese Funktion gibt in einem Formularobjekt in einem anderen Kontext als Texteingabe einen leeren String zurück.

(1) Folgende Methode wandelt die eingegebenen Zeichen automatisch in Großbuchstaben um:

   If (Form event=On After Keystroke)
      [Trips]Agencies:=Uppercase(Get edited text)
   End if

(2) Folgendes Beispiel zeigt, wie Sie in ein Textfeld eingegebene Zeichen per Programmierung "on the fly" entnehmen. Die Idee dabei ist, alle Wörter des eingegebenen Satzes in ein anderes Textfeld mit Namen "Words" zu setzen. Dazu schreiben Sie in der Objektmethode für dieses Feld folgenden Code:

   If (Form event=On After Keystroke)
      $RealTimeEntry:=Get edited text
      PLATFORM PROPERTIES($platform)
      If ($platform#3) ` MacOS
         Repeat 
            $DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13))
         Until (Position(" ";$DecomposedSentence)=0)
      Else ` Windows
         Repeat 
            $DecomposedSentence:=Replace string($RealTimeEntry;Char(32);Char(13)+Char(10))
         Until (Position(" ";$DecomposedSentence)=0)
      End if
      [Example]Words:=$DecomposedSentence
   End if

Hinweis: Dieses Beispiel ist nicht voll ausgeschöpft, da wir lediglich die Wörter berücksichtigt haben, die durch Leerzeichen (Char (32)) voneinander getrennt sind. Für eine vollständige Lösung müssen Sie weitere Filter hinzufügen, um auch Wörter zu entnehmen, die durch andere Zeichen begrenzt sind, wie z.B. Kommas, Strichpunkte, Apostrophe.

Form event.