Re: Lower case and isalpaha

TC wrote On 11/17/05 08:24,:
> Hi,
> there is a function that make lowercase of char or string?
> And there is a standard function that return true/false if char is a 
> character?

All characters are characters. That's why the're called that.

function isalpha(c: char): boolean;

begin

   isalpha := c in ['A'..'Z', 'a'..'z']

end;

function lcase(c: char): char;

begin

   if c in ['A'..'Z'] then c := chr(ord(c)-ord('A')+ord('a'));

   lcase := c

end;

type string = packed array [1..100];

procedure lcases(var s: string);

var i: integer;

begin

   for i := 1 to 100 do s[i] := lcase(s[i])

end;

Enjoy.