Переменная в FastReport
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString test;
test="привет";
frxReport1->Variables->Variables["var1"] = "\"test\"";
frxReport1->LoadFromFile("D:\\report.fr3");
frxReport1->ShowReport();
}
{
AnsiString test;
test="привет";
frxReport1->Variables->Variables["var1"] = "\"test\"";
frxReport1->LoadFromFile("D:\\report.fr3");
frxReport1->ShowReport();
}
Код:
void __fastcall TForm::frxReportGetValue(const UnicodeString VarName, Variant &Value)
{
AnsiString test = "привет";
if (VarName == "var1")
Value = test;
}
{
AnsiString test = "привет";
if (VarName == "var1")
Value = test;
}
Код:
frxReport1->LoadFromFile("D:\\report.fr3");
frxReport1->Variables->Variables["var1"] = "'test'";
frxReport1->ShowReport();
frxReport1->Variables->Variables["var1"] = "'test'";
frxReport1->ShowReport();
Не получается. Снова возвращает возвращает 19063712. Что делать не знаю, на delpi работает, на Си ++ну никак...