Solivan quando tento incluir a função abaixo da o mesmo erro:
Build
[Error] ACBrHTMLtoXML.pas(30): Undeclared identifier: 'CharInSet'
[Fatal Error] principal.pas(68): Could not compile used unit 'ACBrHTMLtoXML.pas'
e fiz conforme passado:
function RemoveInvalidChar(ADataHora : string) : string;
var
Caracteres : TSysCharSet;
I : Integer;
begin
Caracteres:= ['/', ':', '0'..'9'];
for I := 0 to Length(ADataHora) do
begin
if CharInSet(ADataHora, Caracteres) then
Result := Result + ADataHora;
end;
Insert(' ', Result, 11);
end;
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean;
begin
Result:=C in CharSet;
end;
