Не удалось преобразовать вариант, если тип (Array Variant), в тип (OleStr) - PullRequest
5 голосов
/ 23 сентября 2019

При попытке динамически связать TfrxBarCodeView из delphi get error Не удалось преобразовать вариант, если тип (вариант массива), в тип (OleStr).

var
     barcode: TfrxComponent;
     value  : String;
begin  
  barcode := frxBarcode.FindObject('BarCode1');

  value  := '184577787878';

  if barcode is TfrxBarCodeView then
     TfrxBarCodeView(barcode).BarCode.Text := value;

в frxBarcode У меня есть:

enter image description here

1 Ответ

5 голосов
/ 23 сентября 2019

Я думаю, вам следует установить текст самого вида штрих-кода вместо текста штрих-кода вида штрих-кода, поэтому:

TfrxBarCodeView(barcode).Text := value;

вместо

TfrxBarCodeView(barcode).BarCode.Text := value;

Попытка добавить ссылку, но онлайн-документации, похоже, не существует.Но я наткнулся на этот фрагмент на форуме FastReports и этот на каком-то, я не знаю, веб-сайте.Оба используют TfrxBarCodeView.Text, а не TfrxBarCodeView.Barcode.Text.

...