João, boa tarde!
Desculpe a demora, mas só agora eu voltei pro escritório com tempo pra fazer
isso. Peguei um Copy/Paste do Delphi 2005, serve?
[***** Copy/Paste Begin *****]
function TLargeintField.GetAsVariant: Variant;
begin
if IsNull then
Result := Null else
begin
Result := GetAsLargeInt;
end;
end;
[***** Copy/Paste End *****]
De lambujem, tô passando o GetAsLargeInt e GetValue "tumen":
[***** Copy/Paste Begin *****]
function TLargeintField.GetValue(var Value: Largeint): Boolean;
begin
Result := GetData(@Value);
end;
function TLargeintField.GetAsLargeint: Largeint;
begin
if not GetValue(Result) then Result := 0;
end;
[***** Copy/Paste End *****]
Atte,
Ricardo.
Joao Morais <[EMAIL PROTECTED]> escreveu:
Pessoal,
algum dos presentes poderia mandar um Ctrl+C + Ctrl+V da função
TLargeintField.GetAsVariant, que encontra-se na unit source\vcl\db.pas
do Delphi 6? Gostaria de conhecer a compatibilidade do Int64 do Delphi 6
com Variant.
Obrigado,
Joao Morais
_
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
