Convert each word's first letter in Capital
Below is the code
Name DataType Subtype Length
nametext Text
newtext Text
ucase Text
textlen Integer
Convertext Text
nametext := 'first letter of this line going to be converted in Capital.';
WHILE STRPOS(nametext,' ') <> 0 DO BEGIN
newtext := UPPERCASE(COPYSTR(COPYSTR(nametext,1,STRPOS(nametext,' ')-1),1,1));
newtext += LOWERCASE(COPYSTR(nametext,2,STRPOS(nametext,' ')-2)) + ' ';
Convertext += newtext;
textlen := STRLEN(newtext);
nametext := DELSTR(nametext,1,textlen);
END;
ucase := UPPERCASE(COPYSTR(nametext,1,1));
ucase += LOWERCASE(COPYSTR(nametext,2,STRLEN(nametext)));
MESSAGE(Convertext+ucase);
