Re: Препроцессор для PSQL

[freemanzav]

Dmitri Kuzmenko wrote:

> мы про переменные говорим. про ClassName я в курсе,
> но это все равно не то.
>
> если хочешь, приведи пример типа
>
> var
>   a: string;
>   b: integer;
> begin
>    a:='b';
>    SetVar(a):=10; // чтобы в b присвоилось 10 как integer
> end
>

Если свойства класса считать
переменными, то может это подойдет?

uses ... TypInfo;

type TQqq = class( TPersistent)
private
  fb:Integer;
published
  property b:Integer read fb write fb;
end;


var q:TQqq;
a: string;
begin
  q := TQqq.Create();
  a := 'b';
  SetOrdProp(q, a,8562);
  ShowMessage(IntToStr(q.b));