Aufruf: Einen Text normieren

STRING = NormiText(tcText AS STRING , tnMaxlen AS NUMBER , tnBit AS INTEGER)

Rückgabe: Einen Text normieren

Rückgabe der Funktion: STRING

Code: Einen Text normieren

PROCEDURE NormiText (tcText AS STRING,tnMaxlen AS NUMBER,tnBit AS INTEGER) AS STRING;
		HELPSTRING "Normiert einen angegebenen Text auf die Anzahl der Zeichen."
	** tctext:		Der Text der normiert werden soll
	** tnmaxlen:	Die Länge der Zeile auf die der Text normiert wird
	** tnbit:		Optionen, falls nicht angegeben, dann 0
	** 				BIT0 - Wert1: Thermos anzeigen
	**				BIT1 - Wert2: frei
	**				BIT2 - Wert4: frei
	**				BIT3 - Wert8: ermittelte Zeichenkette in die Zwischenablage speichern --> .t.=Zwischenablage mit _cliptext abrufbar
	** Rückgabe: der normierte Text
	RETURN My.Functions.Strings.NormalizeText(m.tcText,m.tnMaxlen,m.tnBit)
ENDPROC