Fortes Report no Delphi 2006

06/12/2010

0

Ao tentar compilar o Fortes Report 3.70B no Delphi 2006, vem o seguinte erro:

[Pascal Error] RLUtils.pas(910): E2003 Undeclared identifier: 'CharInSet'
[Pascal Error] RLUtils.pas(910): E2015 Operator not applicable to this operand type

E olhando essa unit(RLUtils.pas) verifiquei o seguinte trecho, lá no começo:

{$IFDEF DELPHI7}
//Esta funções existem a partir do Delphi 2009 e foram recriadas para evitar warnings
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload;
{$ENDIF}

e aqui onde é chamada esta função que dá o erro:

function IterateJustification(var AText: string; var AIndex: Integer): Boolean;
function FindSpc: Boolean;
const
SPC = [#32, #9, #13, #10];
begin
Result := False;
while (AIndex > 0) and CharInSet(AText[AIndex], SPC) do
Dec(AIndex);
while AIndex > 0 do
if CharInSet(AText[AIndex], SPC) then
begin
while (AIndex > 0) and CharInSet(AText[AIndex], SPC) do
Dec(AIndex);
if AIndex > 0 then
begin
Insert(#32, AText, AIndex + 1);
Result := True;
end;
Break;
end
else
Dec(AIndex);
end;
begin
Result := FindSpc;
if not Result then
begin
AIndex := Length(AText);
Result := FindSpc;
end;
end;


Alguém tem alguma ideia?
Leandro Carvalho

Leandro Carvalho

Responder

Posts

07/12/2010

Leandro Carvalho

Ninguém?
Responder

07/12/2010

Leonardo Xavier

Você ja tentou desisntalar o fortes report e instala-lo novamente? Pois pode haver arquivos corrompidos neste seu componente.
Responder

17/03/2011

Edgar Brasil

{$IFDEF DELPHI7}
//Esta funções existem a partir do Delphi 2009 e foram recriadas para evitar warnings
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload;
{$ENDIF}

Não sei se ainda precisa da solução,

Mas para Delphi 7 é so adicionar DELPHI7 no campo Conditional Defines na aba Directories/Conditionals das opções do projeto.

Este bloco só é compilado se estiver setado DELPHI7 nas opções do projeto.

Não testei em outra versão do Delphi.

Abraços.
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar