Reverse a string

Chap

Hello,

is there any function to reverse a string

(like: String_1= "ABC", String_2="CBA") ?

In other programming languages there are special functions for that but I haven't figured out a function solving this problem in Nav.

Timo_Lässer

There is no predefined function for that, but you can write it yourself:

J := 0;
FOR I := STRLEN(YourText) DOWNTO 1 DO BEGIN
  J += 1;
  ReverseText[J] := YourText[I];
END;

Chap

Hello Timo,

thanks a lot for your reply.

David_Singleton

Chap wrote:

Hello,

is there any function to reverse a string

(like: String_1= "ABC", String_2="CBA") ?

In other programming languages there are special functions for that but I haven't figured out a function solving this problem in Nav.

Hi Chap.

Navision is not a programming language, its and ERP product with an integrated development environment. Please don't go down the path of looking for C++ and Fortran and Prolog constructs or you will just end out banging your head against a wall.

Work with NAV and you will grow to love it.

mb6606

This code works perfectly well
[code][
J := 0;
FOR I := STRLEN(YourText) DOWNTO 1 DO BEGIN
J += 1;
ReverseText[J] := YourText;
END;
/code]

Any I deas how to make it work with an array? YourText[k])
FOR I := STRLEN(YourText[k]) DOWNTO 1 DO BEGIN
J += 1;
ReverseText[k][J] := YourText;
END;