CFLAdjustToCasing Procedure

• 3/20/2025
• 2 minutes to read

Interface CFL Casing

procedure to adjust the casing of the text

Signature

CFLAdjustToCasing(InputText: text) OutputText: text

Parameters

InputText text

Returns

text

Example

You can create your own casing with these steps:

1. Create an enumextension on "CFL Casing"

   enumextension 50000 "PascalCase" extends "CFL Casing"
   {
       value(50000; "PascalCase")
       {
           caption = 'PascalCase';
           implementation = "CFL Casing" = "Pascal Case";
      }
   }
   

2. Create a implementing codeunit

   codeunit 50000 "Pascal Case"
   {
       procedure CFLAdjustToCasing(procedure CFLAdjustToCasing(InputText: text) OutputText: text;
       var
           TextParts : list of [text];
           TextPart : text;
       begin
           TextParts := InputText.split(' ');
           foreach TextPart in TextParts do begin
               OutputText += Uppercase(copystr(Textpart),1,1)+lowercase(copystr(TextPart,2));
           end;
       end;
   }