TextDelFrom - Zrušení zbytku textu od dané pozice


; -----------------------------------------------------------------------------
;                    Delete rest of text from given position
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT variable
;		EDX = offset of start of deleted text (it may be out of range)
; OUTPUT:	CY = memory error (text not changed)
; NOTES:	It limits offset to a valid range.
; -----------------------------------------------------------------------------

TextDelFrom:	push	ecx		; push ECX
		mov	ecx,TEXTBIGPOS	; ECX <- number of characters to delete
		call	TextDelete	; delete characters from text
		pop	ecx		; pop ECX
		ret

Na vstupu funkce obsahuje registr EBX ukazatel na textovou proměnnou. V registru EDX je pozice (offset) začátku rušené části textu. V případě chyby paměti funkce navrátí příznak chyby CY a text zůstane nezměněn. Funkce omezuje pozici v textu do platných rozsahů.

Funkce volá funkci TextDelete s nastavenou délkou textu na velmi velké číslo TEXTBIGPOS (v registru ECX).