String length

[LJStefan]

Hi All,

Can anybody tell me whats the error is?

Code: Select all

procedure GText(sText : string[40];X,Y: byte);
var
  b : byte;
  l : byte;
begin
  l := Length(stext); // <----Error
  for b := 1 to l-1 do
    begin

    end;

end;

130:20 9 Error in ASM code: Address is out of range "LDI R16, @basicfunc_gtext_param_stext (69)" BasicFunc.apas

Thanks in advance,
Stefan

[anton]

Hi LJStefan,

Try changing the code like this

Code: Select all

procedure GText(var sText : string[40];X,Y: byte); // pass by address !!!
var
  b : byte;
  l : byte;
begin
  l := Length(stext); // <----Error
  for b := 0 to l-1 do // Run from 0 to length - 1 
    begin

    end;

end; 

Anton

[LJStefan]

Hello Anton,

Thanks for your answer.

Now it Works.

[vanja]

String is always sent by reference (always put var before string parameter).