Bom dia, ao efetuar a compilação do demo ECFTeste para firemonkey no delphi berlin está dando erro na unit ACBrDevice ao efetuar acesso a function Printer
function TACBrDevice.DeduzirTipoPorta(APorta: String): TACBrDeviceType;
var
UPorta: String;
begin
UPorta := UpperCase(APorta);
if APorta = '*' then
Result := dtRawPrinter // usará a impressora default
else if (copy(UPorta, 1, 4) = 'TCP:') then
Result := dtTCP
else if (copy(UPorta, 1, 4) = 'RAW:') then
Result := dtRawPrinter
else if (RightStr(UPorta,4) = '.TXT') or (copy(UPorta, 1, 5) = 'FILE:') then
Result := dtFile
else if (copy(UPorta, 1, 3) = 'COM') or
{$IFDEF LINUX}(pos('/dev/', APorta) = 1){$ELSE}(copy(APorta,1,4) = '\\.\'){$ENDIF} then
Result := dtSerial
else if (pos(UPorta,'USB|DLL') > 0) then
Result := dtHook
else if (Printer.Printers.IndexOf(APorta) >= 0) then
Result := dtRawPrinter
else
begin
if pos(PathDelim, APorta) > 0 then
Result := dtFile
else
Result := dtRawPrinter;
end;
end;
[dcc32 Error] ACBrDevice.pas(1011): E2029 '[' expected but '.' found
[dcc32 Warning] ACBrDevice.pas(1011): W1023 Comparing signed and unsigned types - widened both operands
[dcc32 Error] ACBrDevice.pas(1223): E2003 Undeclared identifier: 'PrinterIndex'
Gostaria de saber se tem alguém passando por isso.. ou se existe algo que possa fazer pra evitar esse erro...
Grato...