Txt-Uppercase

From Vectorlab
Jump to: navigation, search


Function to return a string as uppercase. The built-in function needs setting a variable and this is sometimes annoying. By Orso B. Schmid


{ Orso *********************************************** }
{ converts to uppercase as function }
FUNCTION T_UpperCase(str: STRING): STRING;
	BEGIN
		UprString(str);
		T_UpperCase := str;
	END;