corrigindo erro na compilação de sistema no delphi 7...
02/03/2006
0
estou compilando minha aplicação no delphi, e ocorre o seguinte erro.
Build
[Warning] DesignIntf.pas(1000): Unsafe type ´VPointer: Pointer´
[Warning] DesignIntf.pas(1005): Unsafe type ´VAnsiString: Pointer´
[Warning] DesignIntf.pas(1007): Unsafe code ´@ operator´
[Error] DesignIntf.pas(1007): There is no overloaded version of ´CreateResFmt´ that can be called with these arguments
[Warning] DesignIntf.pas(1111): Unsafe typecast of ´Pointer´ to ´TPersistent´
[Fatal Error] Sismobi.dpr(192): Could not compile used unit ´DesignIntf.pas´
Bloco:
procedure RegisterPropertiesInCategory(const CategoryName: string;
const Filters: array of const); overload;
var
I: Integer;
begin
if Assigned(RegisterPropertyInCategoryProc) then
for I := Low(Filters) to High(Filters) do
with Filters[I] do
case vType of
vtPointer:
RegisterPropertyInCategoryProc(CategoryName, nil,
PTypeInfo(vPointer), ´´);
vtClass:
RegisterPropertyInCategoryProc(CategoryName, vClass, nil, ´´);
vtAnsiString:
RegisterPropertyInCategoryProc(CategoryName, nil, nil,
string(vAnsiString));
else
raise Exception.CreateResFmt(@sInvalidFilter, [I, vType]);
end;
end;
Especificamente na linha
raise Exception.CreateResFmt(@sInvalidFilter, [I, vType]);
Build
[Warning] DesignIntf.pas(1000): Unsafe type ´VPointer: Pointer´
[Warning] DesignIntf.pas(1005): Unsafe type ´VAnsiString: Pointer´
[Warning] DesignIntf.pas(1007): Unsafe code ´@ operator´
[Error] DesignIntf.pas(1007): There is no overloaded version of ´CreateResFmt´ that can be called with these arguments
[Warning] DesignIntf.pas(1111): Unsafe typecast of ´Pointer´ to ´TPersistent´
[Fatal Error] Sismobi.dpr(192): Could not compile used unit ´DesignIntf.pas´
Bloco:
procedure RegisterPropertiesInCategory(const CategoryName: string;
const Filters: array of const); overload;
var
I: Integer;
begin
if Assigned(RegisterPropertyInCategoryProc) then
for I := Low(Filters) to High(Filters) do
with Filters[I] do
case vType of
vtPointer:
RegisterPropertyInCategoryProc(CategoryName, nil,
PTypeInfo(vPointer), ´´);
vtClass:
RegisterPropertyInCategoryProc(CategoryName, vClass, nil, ´´);
vtAnsiString:
RegisterPropertyInCategoryProc(CategoryName, nil, nil,
string(vAnsiString));
else
raise Exception.CreateResFmt(@sInvalidFilter, [I, vType]);
end;
end;
Especificamente na linha
raise Exception.CreateResFmt(@sInvalidFilter, [I, vType]);
Thiagopedro
Curtir tópico
+ 0
Responder
Posts
02/03/2006
Acacio
Provavelmente tais utilizando componentes que foram feitos no delphi 5 no delphi 6 0u 7, no delphi 5 para criar editores de propriedade ele utiliza
uma outra unit para cria-lo, não me lembro mais o nome e no delphi 6 em diante ele começou a utilizar está unit. Tens que procurar na internet sobre editores de componentes e deplhi 7 ou algo parecido.
uma outra unit para cria-lo, não me lembro mais o nome e no delphi 6 em diante ele começou a utilizar está unit. Tens que procurar na internet sobre editores de componentes e deplhi 7 ou algo parecido.
Responder
Clique aqui para fazer login e interagir na Comunidade :)