criei uma nova package mas quando compilo vem esses erros:
[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 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;
agora não sei o que fazer.
Tem alguma ideia Daniel?