GetHbArrayVar ()
Publicado: Sab May 24, 2014 12:16 am
Hi,
I'm having problem with GetHbArrayVar function.
It works ok, if in Harbour we have a variable defined like this:
PRIVATE aFormat := { 'PDF', 'PNG', 'JPG' }
and in FR:
var
cFormat: String;
procedure DoSomething();
begin
cFormat := GetHbArrayVar('aFormat', 1);
ShowMessage(cFormat); // shows PDF
end
But not, if we have an array of arrays:
PRIVATE aFormat := {}
AAdd(aFormat, {"PDF", "PDF format"})
AAdd(aFormat, {"JPG", "JPG format"})
and in FR:
var
aFormat: array of Variant;
procedure DoSomething();
begin
aFormat := GetHbArrayVar('aFormat', 1);
ShowMessage(VarToStr(aFormat[1])); // shows empty string and FR crashes
end
Any help appreciated.
Regards,
I'm having problem with GetHbArrayVar function.
It works ok, if in Harbour we have a variable defined like this:
PRIVATE aFormat := { 'PDF', 'PNG', 'JPG' }
and in FR:
var
cFormat: String;
procedure DoSomething();
begin
cFormat := GetHbArrayVar('aFormat', 1);
ShowMessage(cFormat); // shows PDF
end
But not, if we have an array of arrays:
PRIVATE aFormat := {}
AAdd(aFormat, {"PDF", "PDF format"})
AAdd(aFormat, {"JPG", "JPG format"})
and in FR:
var
aFormat: array of Variant;
procedure DoSomething();
begin
aFormat := GetHbArrayVar('aFormat', 1);
ShowMessage(VarToStr(aFormat[1])); // shows empty string and FR crashes
end
Any help appreciated.
Regards,