[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

today class we are looking at some String routines. Routines to
convert Strings to upper Case, lower Case,etc.

Remember to turn off CHECK String Var PARAMETER LENGTHS With {$V-}
beFore calling the String Procedures. Turn it back on after calling
this proc.

{--[UPPER CASinG StringS]--}

Procedure UPCaseL(Var CString:String);

Var I:Byte;

 begin
   For I:=1 to LENGTH(CString) do CString[I]:=UPCase(CString[I])
 end;

{--[LOWER CASinG CharS]--}

Function DWNCase(DWNCH:Char):Char;

begin
if ('A' <= DWNCH) and (DWNCH <= 'z') then DWNCase:=CHR(orD(DWNCH)+32)
end;

{--[LOWER CASinG StringS]--}

Procedure DWNCaseL(Var CString:String);

Var I:Byte;

begin
  For I:=1 to LENGTH(CString) do CString[I]:=DWNCase(CString[I])
end;

--------------
if you are offended at the subject line, then please don't read the
message. if you think that I, TL, am calling you an idiot because my
subject line said IDIOT PASCAL LESSONS and you read this message...
well, hey, I'm not.
-------------

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]