Author Topic: string - duplicate symbol (Read 6645 times)

p2 · « **on:** August 24, 2011, 09:49:49 am »

I'm trying to write a "chat-program" for the TI, but I have a problem:
If I want to write something, I'll have to edit the string!
But how can I save something in a String if ther's alreadsy saved something in it?

Code: [Select]

:DelVar Str00
:"abc" -> Str00

Isn't working

but sometimes, I deed olly to add one letter to String00! How to do that???
It allways tells me DUPLICATE SYMBOL

JosJuice · « **Reply #1 on:** August 24, 2011, 09:59:59 am »

Str, Pic and GDB in Axe can only be set to a value when you're creating a program - you can't change the value of them while running the program. You'll need to use a free piece of RAM instead.

AngelFish · « **Reply #2 on:** August 24, 2011, 10:42:47 am »

Quote from: p2 on August 24, 2011, 09:49:49 am

I'm trying to write a "chat-program" for the TI, but I have a problem:
If I want to write something, I'll have to edit the string!
But how can I save something in a String if ther's alreadsy saved something in it?
Code: [Select]
:DelVar Str00 :"abc" -> Str00Isn't working

but sometimes, I deed olly to add one letter to String00! How to do that???
It allways tells me DUPLICATE SYMBOL

You need to do something like

Code: [Select]

:Zeros(Str1,3)
:"abc"->Str1

To get that to work (Assuming you can store a string to memory in axe). Most Axe variables are *not* like TI-BASIC variables. They're created at compile time, which means that if you were to store more information to them than was originally placed there, you'd either corrupt RAM or overwrite part of your program.

Deep Toaster · « **Reply #3 on:** August 24, 2011, 10:50:06 am »

Quote from: Qwerty.55 on August 24, 2011, 10:42:47 am

Code: [Select]
:Zeros(Str1,3) :"abc"->Str1

That won't work either, because Zeros() already creates the static variable Str1 (three null bytes). Instead, do either this:

Code: (Axe) [Select]

:Copy("abc",Str1,3)or

Code: [Select]

:'a'→{Str1}
:'b'→{Str1}
:'c'→{Str1}

to put "abc" in a Str1 that already exists.

p2 · « **Reply #4 on:** August 24, 2011, 11:38:47 am »

and when I want to add a single letter to a string?
How to do that?

Michael_Lee · « **Reply #5 on:** August 24, 2011, 11:59:57 am »

Try making the length of Str1 much larger then you need it to be -- I don't think it's easy to change the size of a constant after it's declared.

Code: [Select]

Zeros(50)->Str1

Copy("String 1",Str1,8)
Copy("The next string",Str1,15)

Alternatively, you could use either a buffer (like L1, L2, etc.) or an appvar.
This might not work/probably needs tweaking, but try something like:

Code: [Select]

Zeros(700)->L1
"Hello World!"->L1
Text(10,10,L1)
"Goodbye"[00]->L1
Text(10,20,L1)

(The [00] adds a null byte, just in case)

Also, I'm trying to remember -- if you compile as an app, can you rewrite program memory like Str1 or Pic02?

Edit:
Changed 'Zero(pointer,size)' to 'Zero(size)->pointer'

Deep Toaster · « **Reply #6 on:** August 24, 2011, 12:02:53 pm »

Quote from: Michael_Lee on August 24, 2011, 11:59:57 am

Also, I'm trying to remember -- if you compile as an app, can you rewrite program memory like Str1 or Pic02?

Nope, but you can always use safe RAM like L1.

Runer112 · « **Reply #7 on:** August 24, 2011, 12:07:13 pm »

I'm not sure why everyone has been using Zeros(pointer,size) in their code. This is not valid syntax. Zeros() only takes a single argument, and that is size. You want to use Zeros(size)→pointer instead.

Michael_Lee · « **Reply #8 on:** August 24, 2011, 12:23:56 pm »

Quote from: Runer112 on August 24, 2011, 12:07:13 pm

I'm not sure why everyone has been using Zeros(pointer,size) in their code. This is not valid syntax. Zeros() only takes a single argument, and that is size. You want to use Zeros(size)→pointer instead.

Erm, I was copying Deep Thought who (I suspect) was copying Qwerty.

>.>

*Michael hides

yrinfish · « **Reply #9 on:** August 24, 2011, 01:44:31 pm »

Two things, first @DT:

Quote from: Deep Thought on August 24, 2011, 10:50:06 am

Code: [Select]
:'a'→{Str1} :'b'→{Str1} :'c'→{Str1}to put "abc" in a Str1 that already exists.

That should be:

Code: [Select]

:'a'→{Str1}
:'b'→{Str1+1}
:'c'→{Str1+2}

otherwise the first char would be overwritten with a, then b and finally c...

second, to add only one, do this:

Code: [Select]

:'a'→{Str1+<offset>}

AngelFish · « **Reply #10 on:** August 24, 2011, 01:53:04 pm »

Quote from: Runer112 on August 24, 2011, 12:07:13 pm

I'm not sure why everyone has been using Zeros(pointer,size) in their code. This is not valid syntax. Zeros() only takes a single argument, and that is size. You want to use Zeros(size)→pointer instead.

* Qwerty.55 is launching a covert campaign to get Quigibo to change the syntax...

Deep Toaster · « **Reply #11 on:** August 24, 2011, 03:23:26 pm »

Quote from: Runer112 on August 24, 2011, 12:07:13 pm

I'm not sure why everyone has been using Zeros(pointer,size) in their code. This is not valid syntax. Zeros() only takes a single argument, and that is size. You want to use Zeros(size)→pointer instead.

Copied from Qwerty. Wasn't thinking.

Quote from: yrinfish on August 24, 2011, 01:44:31 pm

That should be:
Code: [Select]
:'a'→{Str1} :'b'→{Str1+1} :'c'→{Str1+2}

Again, wasn't thinking

p2 · « **Reply #12 on:** August 25, 2011, 08:55:29 am »

so that should be possible:

Code: [Select]

:{Str1+X}→{Str2+(lenth(Str1)+1)}

I've used a String (Str60) for the Free spaces - To delete a string I now use

Code: [Select]

:Copy(Str60,[i]Str2[/i],90) (90 because str60=90 spaces)

this is my newest code:
(You must read it to understand the program - No (english) description in it!!)

Spoiler For code:

Author Topic: string - duplicate symbol (Read 6645 times)

p2

string - duplicate symbol

JosJuice

Re: string - duplivate symbol

AngelFish

Re: string - duplivate symbol

Deep Toaster

Re: string - duplivate symbol

p2

Re: string - duplicate symbol

Michael_Lee

Re: string - duplicate symbol

Deep Toaster

Re: string - duplicate symbol

Runer112

Re: string - duplicate symbol

Michael_Lee

Re: string - duplicate symbol

yrinfish

Re: string - duplicate symbol

AngelFish

Re: string - duplicate symbol

Deep Toaster

Re: string - duplicate symbol

p2

Re: string - duplicate symbol