1:

aBc _@upper def _@lower GHI                    

1:

aBc DEF ghi                    

1:

aBc DEF _@LOWER GHI                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

 {_@lower}
 if Pos('_@lower ', sParam) > 0 then
 begin
  if Pos(' not ', LowerCase(sParam)) > 0 then
   i := 3
  else
   i := 2;

  if (GetWord(LowerCase(sParam), i) = '_@lower') or
     (GetWord(LowerCase(sParam), i) = '''_@lower') then
  begin
   if Pos(LowerCase('_@upper '), sParam) > 0 then
    l := Pos(LowerCase('_@upper '), sParam)+8
   else
    l := Length(sParam);

   s := Copy(sParam, Pos(LowerCase('_@lower '), sParam), l);
   s1 := AnsiLowerCase(Copy(sParam, Pos(LowerCase('_@lower '), sParam)+8, l));
   sParam := StrReplace(sParam, s, s1, []);
  end;
 end;


 {_@upper}
 if Pos('_@upper ', sParam) > 0 then
 begin
  if Pos(' not ', LowerCase(sParam)) > 0 then
   i := 3
  else
   i := 2;

  if (GetWord(LowerCase(sParam), i) = '_@upper') or
     (GetWord(LowerCase(sParam), i) = '''_@upper') then
  begin
   if Pos(LowerCase('_@lower '), sParam) > 0 then
    l := Pos(LowerCase('_@lower '), sParam)+8
   else
    l := Length(sParam);

   s := Copy(sParam, Pos(LowerCase('_@upper '), sParam), l);
   s1 := AnsiUpperCase(Copy(sParam, Pos(LowerCase('_@upper '), sParam)+8, l));
   sParam := StrReplace(sParam, s, s1, []);
  end;
 end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function Convert(str: String): String;
var
i, j: Integer;
Flag: Integer;
const
  upperstart = '_@upper';
  lowerstart = '_@lower';
begin
setlength(Result, length(Str));
Flag := 0;
i := 0;
j := 0;
  while i < length(str) do
  begin
    inc(i);
    inc(j);

    if (copy(Str, i, length(upperstart)) = upperstart)
    begin
      i := i + length(upperstart);
      Flag := 1;
    end;

    if (copy(Str, i, length(lowerstart)) = lowerstart)
    begin
      i := i + length(lowerstart);
      Flag := -1;
    end;

    case Flag of
      1:
        Result[j] := AnsiUpperCase(Str[i]);
      -1:
        Result[j] := AnsiLowerCase(Str[i]);
      else
        Result[j] := Str[i];
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function ParseFormatString(const AText: String): String;
const
  Directives: array[0..1] of string = ('_@upper ', '_@lower ');
var
  CurrentText, EndPos: PChar;
  i, TempPos, CurrentDirType, NextDirPos: Integer;
begin
  Result := '';
  if AText = '' then
    Exit;
  CurrentText := PChar(AText);
  EndPos := CurrentText + Length(AText);
  CurrentDirType := -1;
  while CurrentText <= EndPos do
  begin
    NextDirPos := Length(AText) + 1;
    i := Low(Directives);
    while i <= High(Directives) do
    begin
      TempPos := Pos(Directives[i], CurrentText);
      if TempPos = 1 then
      begin
        CurrentDirType := i;
        i := Low(Directives);
        Inc(CurrentText, Length(Directives[i]));
        Continue;
      end
      else if (TempPos > 0) and (TempPos <= NextDirPos) then
        NextDirPos := TempPos;
      Inc(i);
    end;
    case CurrentDirType of
      -1:
        Result := Result + Copy(CurrentText, 1, NextDirPos - 1);
      0:
        Result := Result + UpperCase(Copy(CurrentText, 1, NextDirPos - 1));
      1:
        Result := Result + LowerCase(Copy(CurrentText, 1, NextDirPos - 1));
    end;
    Inc(CurrentText, NextDirPos - 1);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

function ConvertUpLow(const s: String): String;
var x, i, ii, z, iStatus : Integer;
const U = '_@upper ';
      L = '_@lower ';
begin
  SetLength(Result,Length(s));
  i := 1;
  iStatus := -1;
  x := Length(s);
  z := 0;
  while i <= x do
    begin
    ii := 0;
    while (s[i+ii] = U[ii+1]) and (i+ii <= x) do
      inc(ii);
    if ii = Length(U) then
      begin
      iStatus := 0;
      inc(i,ii);
      end
      else
        begin
        ii := 0;
        while (s[i+ii] = L[ii+1]) and (i+ii <= x) do
          inc(ii);
        if ii = Length(L) then
          begin
          iStatus := 1;
          inc(i,ii);
          end;
        end;
    inc(z);
    case iStatus of
     -1 : Result[z] := s[i];
      0 : Result[z] := AnsiUpperCase(s[i])[1];
      1 : Result[z] := AnsiLowerCase(s[i])[1];
    end;
    inc(i);
    end;
  SetLength(Result,z);
end;