Procedure string return?

[BackupUser]

Restored from previous forum. Originally posted by cor.

What am I doing wrong?

I want to get a string return from a procedure

Error: trying to write a numeric value into a string

But I do return a string 'appdir' or ....

Code: Select all

Global appdir$
;
appdir$= GetAppDir()
;
Procedure.s GetAppDir()
appdir.s
appdir=Space(255)
GetCurrentDirectory_(255,appdir)
If Right(appdir,1)"\" 
 appdir=appdir+"\" 
EndIf
ProcedureReturn appdir 
EndProcedure

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by PB.

> Error: trying to write a numeric value into a string

Strange... I don't get that error from using your example, so it must
be due to something else in your code. But I'd suggest not using a
procedure anyway, because you only need to get appdir$ once because
it doesn't change during runtime. So just use this at the start of
your app and all will be well:

Code: Select all

Global appdir$
appdir$=space(255) : GetCurrentDirectory_(255,appdir$)
If right(appdir$,1)"\" : appdir$=appdir$+"\" : EndIf

PB - Registered PureBasic Coder

[BackupUser]

Restored from previous forum. Originally posted by cor.

PB,

I think win98se and PB problem again.

Just run the code below and I get the error.

Trying to write a numeric value into a string.

I was using the code you gave me, but i wanted to do some tests with procedure string return.

And it seems it doesn't work on my system

Code: Select all

Declare GetAppDir()
;
Global appdir$
;
appdir$= GetAppDir()
;
End
;
;
Procedure.s GetAppDir()
appdir.s
appdir=Space(255)
GetCurrentDirectory_(255,appdir)
If Right(appdir,1)"\" 
 appdir=appdir+"\" 
EndIf
ProcedureReturn appdir 
EndProcedure

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by merendo.

Write: ProcedureReturn appdir$ ; you forgot the $

Cu @ll, merendo
--
I've been hiding - What am I hiding from???

[BackupUser]

Restored from previous forum. Originally posted by cor.

merendo,

It must be appdir, because that's what I want to return from my procedure.

Cor

Originally posted by merendo

Write: ProcedureReturn appdir$ ; you forgot the $

Cu @ll, merendo
--
I've been hiding - What am I hiding from???

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by PB.

> I think win98se and PB problem again.

No, it's because you used Declare without .s, and so your declaration
is of numeric type.

Change Declare GetAppDir() to Declare.s GetAppDir() and it works.


PB - Registered PureBasic Coder

[BackupUser]

Restored from previous forum. Originally posted by cor.

PB,

Thanks again, that works.

Where did you find the info that Declare.s can be used. I did not find it in the manual!!!

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by PB.

> Where did you find the info that Declare.s can be used.
> I did not find it in the manual!!!

It's in the manual, under the Procedure...EndProcedure link.
It says: Declare[.] name([,,...])

However, Declare is not in the manual's "Index" listing...


PB - Registered PureBasic Coder