Проблемы с преобразованием типов
procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
var s1,s2,s3:Variant;
i:integer;
begin
if VarToStr(ColumnValues[0]='32') then
begin
i:=1;
Memo.Text:=IntToStr(s);
Memo.color:=clred;
end;
end;
При выполнении выдается ошибка: "invalid variant type conversion"
(Fastr Report 3.0 Delphi6)
var s1,s2,s3:Variant;
i:integer;
begin
if VarToStr(ColumnValues[0]='32') then
begin
i:=1;
Memo.Text:=IntToStr(s);
Memo.color:=clred;
end;
end;
При выполнении выдается ошибка: "invalid variant type conversion"
(Fastr Report 3.0 Delphi6)
Комментарии
if VarToStr(ColumnValues[0]='32') then
наверное, имелось в виду
if VarToStr(ColumnValues[0])='32' then
ИМХО должен видеть что результат VarToStr это строка, а не Boolean, и орать синтаксическую ошибку как это делает нормальный компилятор или интерпретатор ...