Delphi 2007 - Unigui 1.90.0.1568 - Build Error - Urgent!

[Alexandre Trevizoli]

Hello!

How can I solve this error on Build?

Seems like procedure AdjustTr is not complete....

 

 

function TUniBaseEdit.AdjustCase(AValue: TCaption): string;

  procedure AdjustTr(var Value: TCaption; ACase: TEditCharCase);
  var
    I : Integer;
  begin
    for I := 1 to Length(Value) do
      case ACase of
        ecUpperCase:
          begin
            if Value[I] = 'i' then
              Value[I] := 'İ'
            else if Value[I] = 'ı' then
              Value[I] := 'I';
          end;

        ecLowerCase:
          begin
           //
          end;
      end;
  end;

var
  Handled : Boolean;

begin
  if Assigned(FOnCharCaseConversion) then
  begin
    Handled := False;
    FOnCharCaseConversion(Self, AValue, FCharCase, Handled);
    if Handled then
    begin
      Result := AValue;
      Exit;
    end;
  end;

  if FCharCase = ecUpperCase then
  begin
    if FCharCaseConversion = uccTurkish then
      AdjustTr(AValue, ecUpperCase);
    Result := AnsiUpperCase(AValue);
  end
  else if FCharCase = ecLowerCase then
  begin
    if FCharCaseConversion = uccTurkish then
      AdjustTr(AValue, ecLowerCase);
    Result := AnsiLowerCase(AValue);
  end
  else
    Result := AValue;
end;