Obsah / Utility / TEXT / TextDelLast
Zdrojový kód:
INCLUDE\UTIL\TEXT.INC, UTIL\TEXT.ASM
TextDelLast -
Zrušení posledního znaku textu
Funkce TextDelLast zruší
poslední znak textu.
; -----------------------------------------------------------------------------
; Delete last character of text string
; -----------------------------------------------------------------------------
; INPUT: EBX = pointer to TEXT variable
; OUTPUT: CY = memory error (text not changed)
; -----------------------------------------------------------------------------
; ------------- Push registers
TextDelLast: push edx ; push EDX
; ------------- Delete last character
call TextLast ; get last character
call TextDelFrom ; delete text from given position
; ------------- Pop registers
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.
Pomocí funkce TextLast se připraví
pozice posledního znaku v textu a voláním funkce TextDelFrom
se tento znak z textu zruší.
Obsah / Utility / TEXT / TextDelLast
