Dmitri Kuzmenko пишет:
если хочешь, приведи пример типа

var
 a: string;
 b: integer;
begin
  a:='b';
  SetVar(a):=10; // чтобы в b присвоилось 10 как integer
end

Во время какой-то дискуссии о преимуществах FoxPro понял,
что не вижу никаких особых проблем в реализации:
var
 a,b,c, ...., x,y,z: Variant;

procedure ExecScript(S: String);
begin
...
end;
begin
 a:='b';
 ExecScript('&a=10');
end;

--
Игорь Захребетков

Ответить