Tvůrce webu je i pro tebe! Postav třeba web. Bez grafika. Bez kodéra. Hned.
wz

Obsah / Utility / TEXT / TextEmpty, TextInit

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

TextEmpty, TextInit - Vyprázdnění textového řetězce, inicializace textového řetězce prázdným řetězcem

Funkce TextEmpty vyprázdní textový řetězec, tj. nastaví jeho obsah na prádný řetězec. Funkce TextInit inicializuje textovou proměnnou na prázdný řetězec.


; -----------------------------------------------------------------------------
;                             Empty text string
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT
; -----------------------------------------------------------------------------

TextEmpty:	call	TextDetach	; detach old text string

; TextInit must follow!

Funkce TextEmpty odpojí původní data textového řetězce od textové proměnné, na niž ukazuje ukazatel v registru EBX, a následně se funkcí TextInit připojí data prázdného řetězec.


; -----------------------------------------------------------------------------
;               Initialize text string with empty text string
; -----------------------------------------------------------------------------
; INPUT:	EBX = pointer to TEXT
; -----------------------------------------------------------------------------

TextInit:	mov	dword [ebx],EmptyTextData ; save pointer to empty text
		ret

Funkce TextInit inicializuje novou textovou proměnnou, na niž ukazuje ukazatel v registru EBX, na prázdný řetězec a to tak, že do proměnné uloží ukazatel na data prázdného řetězce EmptyTextData. Data jsou konstantní, takže není potřeba inkrementovat referenční čítač.

Obsah / Utility / TEXT / TextEmpty, TextInit