TCharacterTypes (C++)
Description
The following example demostrates the use of some routines in Character unit that allow to determine the type of a character. When the user types something in the first memo, the second one gets filled with relevant information.
Code
void __fastcall TMainForm::mmTextChange(TObject *Sender)
{
String allText = mmText->Text;
int LDigits = 0;
int LLetters = 0;
int LLower = 0;
int LUpper = 0;
int LNumber = 0;
int LPuct = 0;
int LSep = 0;
int LSymbols = 0;
int LWhites = 0;
/* Calculate all all kinds of charcters in the memo */
for (int i = 1; i <= allText.Length(); ++i)
{
/* Check for digit */
if (TCharacter::IsDigit(allText[i])) LDigits++;
/* Check for number */
if (TCharacter::IsNumber(allText[i])) LNumber++;
/* Check for letter */
if (TCharacter::IsLetter(allText[i])) LLetters++;
/* Check for lower-cased letter */
if (TCharacter::IsLower(allText[i])) LLower++;
/* Check for upper-cased letter */
if (TCharacter::IsUpper(allText[i])) LUpper++;
/* Check for punctuation */
if (TCharacter::IsPunctuation(allText[i])) LPuct++;
/* Check for separators */
if (TCharacter::IsSeparator(allText[i])) LSep++;
/* Check for symbols */
if (TCharacter::IsSymbol(allText[i])) LSymbols++;
/* Check for symbols */
if (TCharacter::IsWhiteSpace(allText[i])) LWhites++;
}
mmRes->Text = Format(String("%d digits; %d numbers; %d letters; ") +
"(%d upper and %d lower); %d puctuation; %d separators; " +
"%d symbols; %d whitespaces",
ARRAYOFCONST((LDigits, LNumber, LLetters, LLower, LUpper, LPuct,
LSep, LSymbols, LWhites))
);
}
Uses
- System.Character.TCharacter.IsDigit ( fr | de | ja )
- System.Character.TCharacter.IsNumber ( fr | de | ja )
- System.Character.TCharacter.IsLetter ( fr | de | ja )
- System.Character.TCharacter.IsLower ( fr | de | ja )
- System.Character.TCharacter.IsUpper ( fr | de | ja )
- System.Character.TCharacter.IsPunctuation ( fr | de | ja )
- System.Character.TCharacter.IsSeparator ( fr | de | ja )
- System.Character.TCharacter.IsSymbol ( fr | de | ja )
- System.Character.TCharacter.IsWhiteSpace ( fr | de | ja )