procedures with strings in declaration

[Skydec]

I have a very strange problem.

When I use strings in my declaration I get very strange results.

for example

Code: Select all

procedure Uart2_Writeln(var Sin : string[txbufsizeB]);
var cnt : byte;
begin
  for cnt:=0 to strlen(Sin) do
  begin
    Uart2_Write_Char_(Sin[cnt]);
  end;
end;

when I try to start the procedure with :

Code: Select all

procedure Uart2_Writeln(Sin : string[txbufsizeB]);

or

Code: Select all

procedure Uart2_Writeln(Sin : string);

I get an error.

The output from my controller on rs232 is alot of 0 en the text is somewhere within the zeros.

But when I run for example this:

Code: Select all

Uart2_Write_Char_('A');
Uart2_Write_Char_('A');
Uart2_Write_Char_('A');
etc.

it works just fine.

There is soemthing funny about strings.
What do I do wrong? is it a compiler setting?

p.s. txbufsizeB is a constant and does not have any effect on the result.

Thanks in advance

[yo2lio]

Everything it's ok ... but sin is a math function ... rename sin with sin_

Code: Select all

procedure Uart2_Writeln(var Sin_ : string[txbufsizeB]);
var cnt : byte;
begin
  for cnt:=0 to strlen(Sin_) do
  begin
    Uart2_Write_Char_(Sin_[cnt]);
  end;
end; 

[Skydec]

I changed the code a bit for here in my original code sin is actually s.
But what causes the strange behavior?

[Skydec]

Problem located.

It was not the string declaration, but Uart_Send_Char what caused the problem.

I think there is a bug in it, because when I replace this by U2TXREG:= or U1TXREG:= then it works fine.