Obsah / Utility / TEXT / TextDelFirst

Zdrojový kód: INCLUDE\UTIL\TEXT.INC, UTIL\TEXT.ASM

TextDelFirst - Zrušení prvního znaku textu

Funkce TextDelFirst zruší první znak textu.


; -----------------------------------------------------------------------------
;                     Delete first character of text string
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT variable
; OUTPUT:	CY = memory error (text not changed)
; -----------------------------------------------------------------------------

TextDelFirst:	push	edx		; push EDX
		xor	edx,edx		; EDX <- 0, first position
		call	TextDelChar	; delete first character
		pop	edx		; pop EDX
		ret

Na vstupu funkce obsahuje registr EBX ukazatel na textovou proměnnou. V případě chyby paměti funkce navrátí příznak chyby CY a text zůstane nezměněn.

Funkce volá funkci TextDelChar s nastavenou pozicí na 0, který zajistí zrušení znaku z první pozice textu.

Obsah / Utility / TEXT / TextDelFirst