Работа с перегруженными функциями, которые имеют неоднозначные параметры

Возьмите этот небольшой примерный класс (не мой настоящий код, но он раскрывает проблему):

Convert = class(TObject)
  public
    class function ToString(value: Double): String; overload;
    class function ToString(value: TDateTime): String; overload;
  end;

Он компилируется до тех пор, пока вы не попытаетесь использовать функции Double или TDateTime As В:

var
  d: Double;
begin
  d := 99.99;
  ShowMessage(Convert.ToString(d));

Вы получите эту ошибку компиляции: неоднозначный перегруженный вызов на "ToString". Проблема сводится к тому, что TDateTime является типом Double

Мой вопрос: как вы справляетесь с этим типом проблемы?

РЕДАКТИРОВАТЬ - я НЕ ищу решение для приведенного примера

Я нашел 3 Решения до сих пор:

  • Переименуйте одну из двух функций
  • Добавьте параметр "Dummy" к одной из двух функций
  • Измените параметры на типы Var, это имеет тот недостаток, что я больше не могу вызывать эту функцию с константами

Есть ли там какие-либо другие решения?

Ответы

Ответ 1

Перегруженные методы могут быть очень эффективными. Однако, как только появляется намек на двусмысленность, они становятся ответственностью. Хорошим примером этого являются новые перегрузки TStream, введенные в XE3. Не сложно попасть в ловушку, где компилятор выбирает перегрузку, которую вы не ожидали. По крайней мере, в вашем коде компилятор остановился. В этом смысле вам повезло.

Поэтому мой совет, в вашей ситуации, состоит в том, чтобы отказаться от перегрузок. Выразите различные типы ввода в имени метода. Да, это немного более многословно, но вы не ошибетесь, и код будет скомпилирован!

Ответ 2

Ваш опубликованный пример компилируется и выполняется отлично в XE.

В комментарии вы приводите этот пример вместо:

ShowMessage( Convert.ToString( 99.99 ));  // <- gives compiler error 2251

В этом конкретном случае решение должно явно определить тип (я думал):

ShowMessage( Convert.ToString( Double(99.99) )); // <- E2089, Invalid Typecast

Взгляд в документацию:

Это сообщение об ошибке выдается для типов, не разрешенных правилами. Разрешены следующие виды бросков:

     
  •   
  • Порядковый или указательный тип к другому порядку или типу указателя  
  • Символ, строка, массив символов или pchar для строки  
  • Порядковый, действительный, строковый или вариант для варианта  
  • Вариант для порядкового, реального, строкового или варианта  
  • Ссылка на переменные для любого типа того же размера.  

Итак, чтобы явным образом сказать компилятору выбрать перегруженную функцию Double:

ShowMessage( Convert.ToString( Double(Variant(99.99)))); // Ok

Возможно, немного запутанный. Но для другой перегруженной функции это проще:

ShowMessage( Convert.ToString( EncodeDate(2013,1,5));

Update

Чтобы сделать это общее решение, работающее для всех классов, рассмотрите возможность добавления функций класса для решения ваших неоднозначных типов.

Convert = Class(TObject)
  ...
  class function AsDouble( value: Double) : Double; inline; static;
  class function AsTDateTime( value: TDateTime) : TDateTime; inline; static;
end;

class function Convert.AsDouble(value: Double): Double;
begin
  Result := Value;
end;
class function Convert.AsDateTime(value: TDateTime): TDateTime;
begin
  Result := Value;
end;

Теперь вы можете вызвать свою перегруженную функцию класса с помощью констант:

ShowMessage( Convert.ToString( Convert.AsDouble(99.99)));

Ответ 3

Как свернуть все это?:

class function Convert.ToString(value: Variant): String;
begin
   Result := VarToStr(Value);
end;