XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
String: String rückwärts lesen
Declare strbuf#

Proc ReverseString

    Parameters s$
    Declare l%,result$
    Let l%=Len(s$)
    Dim strbuf#,Add(l%,1)
    String strbuf#,0=s$
    Dec l%

    While Gt(l%,-1)

        Let result$=result$;Char$(strbuf#,l%,1)
        Dec l%

    Wend

    Dispose strbuf#
    Return result$

EndProc

Beispiel
Cls
ReverseString GetText$(%hwnd)
Print $(0)
ReverseString $(0)
Print $(0)
WaitInput