CharacterCasing (Delphi)

Description

The following example demostrates the use of ToUpper and ToLower routines to convert an unicode string to upper or to lower case.

Code

procedure TMainForm.btLowerClick(Sender: TObject);
begin
  { Convert the string to lower-case }
  edtText.Text := ToLower(edtText.Text);
end;

procedure TMainForm.btUpperClick(Sender: TObject);
begin
  { Convert the string to upper-case }
  edtText.Text := ToUpper(edtText.Text);
end;

Uses

• System.Character.ToUpper ( fr | de | ja )
• System.Character.ToLower ( fr | de | ja )