Procedure UprString converts all characters in the specified string to upper case.
PROCEDURE UprString(VAR str : DYNARRAY[] of CHAR);def vs.UprString(str):
return str| Name | Type | Description |
|---|---|---|
| str | DYNARRAY[] of CHAR | Source string. |
revisedString := 'vectorworks';
UprString(revisedString);
{Sets revisedString equal to 'VECTORWORKS'}BEGIN
GetResourceString( gLocTrue, 2103, 6 );
GetResourceString( glocFalse, 2103, 7 );
UprString( gLocTrue );
UprString( gLocFalse );
END;
lenFind := Len(FStr);
tempstr := str;
IF ((lenFind > 0) & (lenStr > 0)) THEN BEGIN
IF NOT(caseSens) THEN BEGIN
UprString(tempstr);UprString(FStr);
END;
IF (recHandle <> NIL) THEN
FOR i := 1 TO numfields(recHandle) DO BEGIN
tmpinput := fldname;
tmpstr := getfldname(recHandle, i);
Uprstring(tmpstr);
Uprstring(tmpinput);
IF (tmpstr = tmpinput) THEN GoodFldName := TRUE;
END;def UCase( str ):
result = vs.UprString( str )Availability: from All Versions