IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Création dynamique de variables


Sujet :

Delphi

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    31
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 31
    Points : 20
    Points
    20
    Par défaut Création dynamique de variables
    si ce serait aussi simple....

    je trouve rien depuis un bout et pourtant je cherche vrm......Comment on peut cree un variable pendant l'execution du programme...a la guise de l'utilisateur sur le clic d'un simple bouton?

    Merci!

  2. #2
    Expert éminent sénior

    Avatar de sjrd
    Homme Profil pro
    Directeur de projet
    Inscrit en
    Juin 2004
    Messages
    4 517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Suisse

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2004
    Messages : 4 517
    Points : 10 152
    Points
    10 152
    Par défaut
    En tenant à jour un tableau associatif de variants
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    type
      TVarsDynamiques = class
      private
        FNames : TStrings;
        FVariables : array of Variant;
     
        function GetVariables(Name : string) : Variant;
        procedure SetVariables(Name : string; Value : Variant);
      public
        constructor Create;
        destructor Destroy; override;
     
        property Variables[Name : string] : Variant
          read GetVariables write SetVariables; default;
      end;
     
    implementation
     
    constructor TVarsDynamiques.Create;
    begin
      inherited;
      FNames := THashedStringList.Create;
    end;
     
    destructor TVarsDynamiques.Destroy;
    begin
      SetLength(FVariables, 0);
      FNames.Free;
      inherited;
    end;
     
    function TVarsDynamiques.GetVariables(Name : string) : Variant;
    var Index : integer;
    begin
      Index := FNames.IndexOf(Name);
      if Index < 0 then Result := Unassigned else
        Result := FVariables[Index];
    end;
     
    procedure TVarsDynamiques.SetVariables(Name : string; Value : Variant);
    var Index : integer;
    begin
      Index := FNames.IndexOf(Name);
      if Index >= 0 then FVariables[Index] := Value else
      begin
        Index := FNames.Add(Name);
        SetLength(FVariables, Length(FVariables)+1);
        FVariables[Index] := Value;
      end;
    end;
    A toi d'adapter selon tes besoins...
    sjrd, ancien rédacteur/modérateur Delphi.
    Auteur de Scala.js, le compilateur de Scala vers JavaScript, et directeur technique du Scala Center à l'EPFL.
    Découvrez Mes tutoriels.

Discussions similaires

  1. [FLASH 8] Texte dynamique à longueur variable
    Par julien.63 dans le forum ActionScript 1 & ActionScript 2
    Réponses: 3
    Dernier message: 15/01/2007, 21h54
  2. [POO] Déclaration dynamique de variable membre
    Par fredrik dans le forum Langage
    Réponses: 10
    Dernier message: 01/09/2006, 09h12
  3. [VBA-E] Utilisation dynamique de variables
    Par zlavock dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 10/06/2006, 18h35
  4. Réponses: 2
    Dernier message: 15/05/2006, 12h11
  5. [Language]Nom dynamique de Variable
    Par brooks dans le forum Langage
    Réponses: 13
    Dernier message: 14/12/2005, 19h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo