Delphipage

Présentation

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.

Utilisations

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

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;