Error: Can't determine which overloaded function to call
{...}case VarType(V1) of varEmpty: strV1:= mess307; varNull: strV1:= mess306; varByte: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 2) + ' )'; // ERROR HERE varSmallInt, varWord: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 4) + ' )'; varInteger, varLongWord: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 8) + ' )'; varInt64, varDecimal: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 16) + ' )'; varDouble, varSingle: strV1:= FloatToStr(V1); varBoolean: strV1:= BoolToStr(V1, True); varString, varStrArg, varOleStr: begin strV1:= V1; typeV1:= XrayMstring; end; varDispatch: pre_analyze_Object; else {...}
{...}firstLine.CellBackColor:= RGB(100, 255, 255); for x:= 0 to oneGrid.ColCount -1 do begin oneCol:= oneGrid.Cols[x]; for y:= 0 to oneCol.Count -1 do begin if oneCol.Strings[y] <> '' then begin myCell:= mySheet.getCellByPosition(x, y); myCell.String:= oneCol.Strings[y]; //ERROR HERE end; if (y mod 20) = 0 then Application.ProcessMessages; end; myColumn:= mySheet.Columns.getByIndex(x); {...}
Fatal: Syntax error, "identifier" expected but "STRING" found
myCell.&String:= oneCol.Strings[y];
I am trying to convert Delphi_OOo_v12en
IntToHex(V1, 2)->IntToHex(Longint(V1), 2)myCell.String:= oneCol.Strings[y];->myCell.&String:= oneCol.Strings[y];tabStopsList[0].DecimalChar:= ',';-> tabStopsList[0].DecimalChar:= olevariant(',');
Result:= OpenOffice.createInstance(serviceName);->Result:= OpenOffice.createInstance(olevariant(serviceName));
I am trying to convert Delphi_OOo_v12en ( http://sourceforge.net/projects/ooomacros/files/Delphi%20OOo/Version%201.2/Delphi_OOo_v12en.zip/download ) project to Lazarus and have the following error message:QuoteError: Can't determine which overloaded function to callon the following line of code:Code: [Select]{...}case VarType(V1) of varEmpty: strV1:= mess307; varNull: strV1:= mess306; varByte: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 2) + ' )'; // ERROR HERE varSmallInt, varWord: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 4) + ' )'; varInteger, varLongWord: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 8) + ' )'; varInt64, varDecimal: strV1:= IntToStr(V1) + ' ( $' + IntToHex(V1, 16) + ' )'; varDouble, varSingle: strV1:= FloatToStr(V1); varBoolean: strV1:= BoolToStr(V1, True); varString, varStrArg, varOleStr: begin strV1:= V1; typeV1:= XrayMstring; end; varDispatch: pre_analyze_Object; else {...} on IntToHex function where V1 is of type Variant. Any idea?