HiAsm

Разработчик

Ответов: 26163

Рейтинг: 2127

#1: 2015-07-09 12:01:39 ЛС | профиль | цитата

sla8a писал(а):

И мне припоминается подобное

Это испокон веков так было у этого компонента. Все это прописано в модуле If_arg, который используется в If_Else и Case

function Compare(Op1,Op2:TData; OpType:byte ):boolean;
var
  i:integer;
  r:real;
  s:string;
begin
    Result := false;
     case _IsType(op1) of

Как видно из кода, тип определяется первым аргументом

карма: 22