Delphi 5 para Delphi 6 com alguns erros
Estou compilando um sistema em Delphi 5 para o Delphi 6.
Acrescenteis as units necessárias que pesquisei aqui no forum, porém está dando um erro em uma variável. o pedaço do codigo é:
function VarToStr(V: Variant; DataType: TFieldType): string;
const
BinaryDataTypes: set of TFieldType = [ftBytes, ftVarBytes, ftBlob,
ftGraphic..ftCursor];
begin
try
if VarIsEmpty(V) then
Result := SUnchanged
else if DataType in BinaryDataTypes then
Result := SBinary
else
Result := System.VarToStr(V); [b:83e673a7a3][color=red:83e673a7a3]<<o erro tá nessa variável VarToStr[/color:83e673a7a3][/b:83e673a7a3]
except
on E: Exception do
Result := E.Message;
end;
end;
o que pode tá ocorrendo?
pois ao compilar acusa o erro de:
[Error] RecError.pas(141): Undeclared identifier: ´VarToStr´
Acrescenteis as units necessárias que pesquisei aqui no forum, porém está dando um erro em uma variável. o pedaço do codigo é:
function VarToStr(V: Variant; DataType: TFieldType): string;
const
BinaryDataTypes: set of TFieldType = [ftBytes, ftVarBytes, ftBlob,
ftGraphic..ftCursor];
begin
try
if VarIsEmpty(V) then
Result := SUnchanged
else if DataType in BinaryDataTypes then
Result := SBinary
else
Result := System.VarToStr(V); [b:83e673a7a3][color=red:83e673a7a3]<<o erro tá nessa variável VarToStr[/color:83e673a7a3][/b:83e673a7a3]
except
on E: Exception do
Result := E.Message;
end;
end;
o que pode tá ocorrendo?
pois ao compilar acusa o erro de:
[Error] RecError.pas(141): Undeclared identifier: ´VarToStr´
Nilsonalvernaz
Curtidas 0
Respostas
Gandalf.nho
24/02/2005
Declare na sua cláusula Uses a unit [b:385889318f]Variants[/b:385889318f]
GOSTEI 0
Massuda
24/02/2005
Complementando o que a gandalf.nho escreveu...
Mude a linha que dá erro depara
Mude a linha que dá erro de
Result := System.VarToStr(V);
Result := Variants.VarToStr(V);
GOSTEI 0
Nilsonalvernaz
24/02/2005
Valeu Massuda deu certo, pois já tinha declarado a unit Variants.
8) 8) 8)
8) 8) 8)
GOSTEI 0