megakill писал(а):
Ребята наглядно объяснить nesco писал(а):
как ты умудряешься сравнивать текст и целое function Compare(Op1,Op2:TData; OpType:byte ):boolean;
var
i:integer;
r:real;
s:string;
begin
Result := false;
case _IsType(op1) of
...............