Newsgroup: it.comp.lang.delphi
Titolo: Delphi 5 e Delphi 6

Scusate l'ignoranza, ma io uso da quel dì Delphi5 ed ormai
mi è quasi impossibile cambiare al 6, al 7 ecc. dovuto a vari problemi di
incompatibilità con i miei programmi distribuiti alla clientela.
Vengo al dunque: ho necessità di utilizzare un componente freeware che
l'autore
dichiara di essere utile per D5 e D6. Inserendo però il comp nella libreria,
mi esce fuori un VARIANT.DCU NOT FOUND
Suppongo che esso sia una unit non presente in D5 ma in D6 sì: c'è qualche
strada
secondo voi per far capire al mio vecchio D5 che quello che cerca si trova
(ne sono convinto...) in qualche unit?
Spero di essere stato chiaro.
Grazie

Credo che se non conosci cosa sta cercando la parte freeware sarą dura.
Chi ti puo aiutare (con queste poche informazioni) č chi distribuisce la
parte freware.
Ciao
Mario -(
mari...@inwind.it
)
P.S. In delphi 7 č presente. Ho appena verificato. le dichiarazioni seguono.
function VarType(const V: Variant): TVarType;
function VarAsType(const V: Variant; AVarType: TVarType): Variant;
function VarIsType(const V: Variant; AVarType: TVarType): Boolean; overload;
function VarIsType(const V: Variant; const AVarTypes: array of TVarType):
Boolean; overload;
function VarIsByRef(const V: Variant): Boolean;
function VarIsEmpty(const V: Variant): Boolean;
procedure VarCheckEmpty(const V: Variant);
function VarIsNull(const V: Variant): Boolean;
function VarIsClear(const V: Variant): Boolean;
function VarIsCustom(const V: Variant): Boolean;
function VarIsOrdinal(const V: Variant): Boolean;
function VarIsFloat(const V: Variant): Boolean;
function VarIsNumeric(const V: Variant): Boolean;
function VarIsStr(const V: Variant): Boolean;
function VarToStr(const V: Variant): string;
function VarToStrDef(const V: Variant; const ADefault: string): string;
function VarToWideStr(const V: Variant): WideString;
function VarToWideStrDef(const V: Variant; const ADefault: WideString):
WideString;
function VarToDateTime(const V: Variant): TDateTime;
function VarFromDateTime(const DateTime: TDateTime): Variant;
function VarInRange(const AValue, AMin, AMax: Variant): Boolean;
function VarEnsureRange(const AValue, AMin, AMax: Variant): Variant;
type
  TVariantRelationship = (vrEqual, vrLessThan, vrGreaterThan, vrNotEqual);
function VarSameValue(const A, B: Variant): Boolean;
function VarCompareValue(const A, B: Variant): TVariantRelationship;
function VarIsEmptyParam(const V: Variant): Boolean;
function VarIsError(const V: Variant; out AResult: HRESULT): Boolean;
overload;
function VarIsError(const V: Variant): Boolean; overload;
function VarAsError(AResult: HRESULT): Variant;
function VarSupports(const V: Variant; const IID: TGUID; out Intf): Boolean;
overload;
function VarSupports(const V: Variant; const IID: TGUID): Boolean; overload;
{ Variant copy support }
procedure VarCopyNoInd(var Dest: Variant; const Source: Variant);
{ Variant array support procedures and functions }
function VarIsArray(const A: Variant): Boolean; overload;
function VarIsArray(const A: Variant; AResolveByRef: Boolean): Boolean;
overload;
function VarArrayCreate(const Bounds: array of Integer; AVarType: TVarType):
Variant;
function VarArrayOf(const Values: array of Variant): Variant;
function VarArrayRef(const A: Variant): Variant;
function VarTypeIsValidArrayType(const AVarType: TVarType): Boolean;
function VarTypeIsValidElementType(const AVarType: TVarType): Boolean;
{ The following functions will handle normal variant arrays as well as
variant arrays references by another variant using byref }
function VarArrayDimCount(const A: Variant): Integer;
function VarArrayLowBound(const A: Variant; Dim: Integer): Integer;
function VarArrayHighBound(const A: Variant; Dim: Integer): Integer;
function VarArrayLock(const A: Variant): Pointer;
procedure VarArrayUnlock(const A: Variant);
function VarArrayAsPSafeArray(const A: Variant): PVarArray;
function VarArrayGet(const A: Variant; const Indices: array of Integer):
Variant;
procedure VarArrayPut(var A: Variant; const Value: Variant; const Indices:
array of Integer);
{ Variant Arrays <--> Dynamic Arrays }
procedure DynArrayToVariant(var V: Variant; const DynArray: Pointer;
TypeInfo: Pointer);
procedure DynArrayFromVariant(var DynArray: Pointer; const V: Variant;
TypeInfo: Pointer);
{ Global constants }
function Unassigned: Variant; // Unassigned standard constant
function Null: Variant; // Null standard constant
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:ci4k35$vp7$1...@lacerta.tiscalinet.it...


 ha scritto nel messaggio
news:ci4k35$vp7$1...@lacerta.tiscalinet.it...



Le variant in D5 erano nella system
Poi sempre crearti una unit vuota (solo interface e implementation) in
D5 e chiamarla Variants.pas, e il gioco è fatto ;-)
-- 
Ore 18.30: premo invio.