Vymazání obsahu proměnné STRING v BASCOM

Zpráva

michalino · #1 Příspěvek od **michalino** » 18 bře 2010, 10:59

Prosím Vás o radu,

mám takovouto deklaraci:

Dim Vsechny_znaky As String * 40 ' řetězec znaků
Dim Znaky(40) As Byte At Vsechny_znaky Overlay

Jak prosím vymažu obsah proměnné Vsechny_znaky v BASCOMU?

hakamusai · #2 Příspěvek od **hakamusai** » 18 bře 2010, 11:37

Nešlo by to v cyklu ? nedělám v Bascomu,ale v Pascalu.

michalino · #3 Příspěvek od **michalino** » 18 bře 2010, 11:39

Právě nevím...jestli musím mazat každou pozici (každý znak) jeden po druhém nebo jestli to jde vymazat vše najednou...

ale vsadím se, že to bude na jeden řádek...až se za tento dotaz stydím...

AB1 · #4 Příspěvek od **AB1** » 18 bře 2010, 18:21

Kód: Vybrat vše

Vsechny_znaky = ""

michalino · #5 Příspěvek od **michalino** » 19 bře 2010, 12:36

AB1,

děkuji za odpověď....

Zkouším to na simulátoru (Samozřejmě se zapnutou volbou REFRESH VARIABLES, ale nefunguje to..

asi je to tím simulátorem...

AB1 · #6 Příspěvek od **AB1** » 19 bře 2010, 13:38

Zkouším to na simulátoru (Samozřejmě se zapnutou volbou REFRESH VARIABLES, ale nefunguje to..

Ptal jsi se na vymazání proměnné typu string.
To se provede zapsáním nuly do prvního znaku stringu. Nula označuje konec stringu.
Od toho okamžiku je string prázdný. Je zbytečné měnit ostatní znaky.

Zkus v simulátoru

Kód: Vybrat vše

Vsechny_znaky = "ABCDEF"
Print Vsechny_znaky           ' napíše ABCDEF
Vsechny_znaky = ""
Print Vsechny_znaky           ' nenapíše nic

Je třeba si uvědomit, že bajty ve stringu nejdou "úplně vymazat". Bajt musí mít vždy nějakou hodnotu mezi 0 a 255.

Pokud chceš aby všechny znaky ve stringu měly např hodnotu &hff, použij

Kód: Vybrat vše

Dim Vsechny_znaky As String * 40   
Vsechny_znaky = String(40 , &HFF)        'naplň 40 znaků hodnotou &hff

michalino · #7 Příspěvek od **michalino** » 22 bře 2010, 08:41

AB1,

děkuji za pomoc, super, pomohla druhá varianta a funguje to jak má:

Pokud chceš aby všechny znaky ve stringu měly např hodnotu &hff, použij
kód:
Dim Vsechny_znaky As String * 40
Vsechny_znaky = String(40 , &HFF) 'naplň 40 znaků hodnotou &hff

ještě jednou děkuji a přeji Vám hezký den