[sviog]

Всем привет! Помогите кто может. Нужна из одного класса "Класс1" передать одно значение в другую - "КлассН", при этом эти классы совершенно разные. Слышал что это можно сделать с помощю COM Interface, но никак не получается. Выглядит это примерно так

IMyInterface = interface
['{9ACF899F-C960-4FFB-A3A1-278B7ED94FCA}']
property FirstName : string

TJQueryBuilder = class(TForm, IMyInterface)
???????????

TFormQueryParams = class(TWDBDialog, IMyInterface)
?????????????

Как можно сделать так чтобы в класс TJQueryBuilder FirstName := 'XXX';
а потом в TFormQueryParams ShowMessage(FirstName); покажет 'XXX' ?

[AlexSku]

Может быть, так:

Код:

var
  V1: TJQueryBuilder;
  V2: TFormQueryParams;
...
  V1:= ...Create
  V2:= ...Create
...
  V2.FirstName:= V1.FirstName;
...