Как заставить Delphi выполнять еще более строгую проверка типов? Напрмер - я создаю

Вопрос:

Как заставить Delphi выполнять еще более строгую проверка типов? Напрмер - я создаю пользовательский тип, унаследованный от double и могу передавать его любым функциям, принимающим параметр типа double. Как заставить компилятор проводить более строгую проверку типов и выдавать предупреждение в таких случаях?

Ответ:

См. ответ.

Пример:

type TStrongType = type Double;
type TWeakType = Double;

procedure AddWeakType(var d : TWeakType);
begin
  d := d + 1;
end;

procedure AddStrongType(var d : TStrongType);
begin
  d := d + 1;
end;

procedure AddDoubleType(var d : Double);
begin
  d := d + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  d : Double;
  s : TStrongType;
  w : TWeakType;
begin
  AddDoubleType(d); {compiles fine}
  AddDoubleType(w); {compiles fine}
  AddDoubleType(s); {



[ Назад ]
[ Оглавление ]
[ Далее ]