Obsah / Utility / TEXT / TextAddSpace
Zdrojový kód:
INCLUDE\UTIL\TEXT.INC, UTIL\TEXT.ASM
TextAddSpace -
Přidání znaku mezery na konec textového řetězce
Funkce TextAddSpace přidá
znak mezery na konec textového řetězce.
; -----------------------------------------------------------------------------
; Add space character to end of text
; -----------------------------------------------------------------------------
; INPUT: EBX = pointer to TEXT
; OUTPUT: CY = memory error or invalid number (text not changed)
; -----------------------------------------------------------------------------
TextAddSpace: push eax ; push EAX
mov al," " ; AL <- space character
call TextAddByte ; add space character to end of text
pop eax ; pop EAX
ret
|
Na vstupu funkce obsahuje registr EBX
ukazatel na textovou proměnnou, ke které se má znak mezery
přidat. Funkce interně volá funkci TextAddByte, které předá
jako parametr znak mezery. V případě chyby paměti je
navrácen chybový příznak CY a obsah textové proměnné se
nezmění.
Obsah / Utility / TEXT / TextAddSpace