Zeichen auf Lowercase etc. testen

[Luckie]

Sharky!!!! Umständlicher geht es nun wirklich nicht. :

Delphi-Quellcode:

function IsLower(chr: Char): Boolean;
begin
  result := chr in ['a'..'z'];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(BoolToStr(IsLower('B'), True));
end;