Le type variant est un type de données qui permet, entre autre,
de contrôler un serveur OLE.
Ce type permet également la manipulation de tout type d'objet
et surtout des tableaux de taille variable et sans type.
Le type variant évite l'utilisation
de routines de conversion. La conversion se fait automatiquement par
rapport au contexte.
Mais ce type de variable prend plus de ressources qu'une variable
de type standard. Donc, il ne faut donc pas en abuser et l'utiliser
correctement.
procedure
TForm1.TrackBar1Change(Sender: TObject);
Var de:variant;
begin
//Sans conversion integer en string
de:=TrackBar1.Position;
Label1.Caption:=de;
end; |
|
Type variant |
[ 02-10-2001 ] |
Petit
programme montrant l'utilisation du type variant.
Télécharger : [6
Ko] [
variant.zip]
Auteur : Yoann
Site internet : http://delphipage.free.fr/
|
|
Les tableaux variants permettent
la création de tableaux dynamiques.
Voici la liste des différentes fonctions des tableaux variants
:
Fonction
|
Description
|
VarArrayCreate |
Elle permet de créer
un tableau avec les bornes spécifiées . |
VarArrayOf |
Elle permet de créer
un tableau de variants de dimension unique avec une liste donnée
d'élements. |
VarArrayRedim |
Elle redimensionne un
tableau de variants en affectant. |
VarArrayDimCount |
Elle renvoie le nombre
de dimensions dans un tableau de variants. |
VarArrayLowCount |
Elle renvoie la limite
basse d'une dimension donnée dans un tableau de variants. |
VarArrayHighBound |
Elle renvoie la limite
haute d'une dimension donnée dans un tableau de variants. |
VarArrayLock |
Elle vérouille
un tableau et renvoie un pointeur sur les données du tableau
de variants. |
VarArrayRef |
Elle renvoie une référence
au tableau de variants spécifié. |
VarArrayUnLock |
Elle déverrouille
un tableau de variants précédemment verrouillé
par VarArrayLock. |
VarIsArray |
Elle teste si l'argument
contient un tableau de variants. |
Création d'un tableau variant |
La fonction VarArrayCreate permet
la création d'un tableau standard.
procedure
TForm1.Button1Click(Sender : TObject);
Var tab:variant;
begin
tab:=VarArrayCreate([1,10],varVariant);
tab[2]:= 'Bonjour';
tab[4]:= 'les delphinautes';
ShowMessage(tab[2]+tab[4]);
end; |
|