кто знает как реализовать Title Case в PowerBuilder

Вот написал функцию может кому понадобится а можетр кто поправит

===========================================================================
global type f_titlecase from function_object
end type

forward prototypes
global function string f_titlecase (string as_string)
end prototypes

global function string f_titlecase (string as_string);String ls_rtn
String ls_temp
String ls_char
Integer li_asc
Integer li_length
integer n

ls_temp = Trim(lower(as_string))
li_length = len(ls_temp)

//Upper first letter

ls_rtn = Replace(ls_temp,1,1,Upper(Left(ls_temp,1)))

//Upper first letter after "space" (ASC = 32)

for n = 1 to li_length

ls_char = mid(ls_temp,n,1)
li_asc = Asc (ls_char)

if li_asc = 32 then ls_rtn = Replace(ls_rtn, n + 1,1, Upper(Mid(ls_rtn,n + 1,1)))

next

Return ls_rtn
end function

======================================================================

Написал раньше чем узнал о функции WordCap(string) чтож век живи век учись :)