Accueil > > > SYSTÈME DE GESTION DE PROPRIÉTÉS/OPTIONS
SYSTÈME DE GESTION DE PROPRIÉTÉS/OPTIONS
Information sur la source
Description
Cette unité permet de gérer facilement un array de propriétés/options. Tout d'abord, il y a le packed record TAnObject qui stocke un tableau avec les paires propriété/valeur, un nom pour éventuelement identifier le set de props/opts dans un tableau de TAnObject et une variable contenant le nombre d'entrées. Vous pouvez évidament ajouter des éléments au besoin. Il y a aussi un autre packed record, TProperty qui lui stocke le nom de la propriété et ça valeur. Vous pouvez Ajouter/Modifier la valeur/Supprimer les entrées.
Source
- //Créé par DeadlyPredator
- //Je ne peux être tenu responsable de tout dommage ou perte éventuellement causé directement ou indirectement par ce code.
- //À COLLER DANS UN FICHIER APPELÉ uOptionContainer.pas
- unit uOptionContainer;
-
- interface
-
- type
- TProperty=packed record
- strName, strValue: String;
- end; PProperty=^TProperty;
-
- type
- TAnObject=packed record
- strName: String;
- iPropCount: Integer;
- axProperties: array of TProperty;
- end; PAnObject=^TAnObject;
-
- procedure ModifyProperty(strName, strValue: String; xObj: PAnObject);
- function GetPropertyValue(strName: String; xObj: PAnObject;out bErr: Boolean):String;
- procedure DeleteProperty(strName: String; xObj: PAnObject);
-
- implementation
-
- procedure ModifyProperty(strName, strValue: String; xObj: PAnObject);
- var
- I: Integer;
- bOK: Boolean;
- begin
- bOk:=False;
- if(xObj.iPropCount>0) then
- begin
- for I:=0 to (xObj.iPropCount-1) do
- begin
- if((xObj.axProperties[I].strName=strName) or (xObj.axProperties[I].strName=#0)) then
- begin
- if(xObj.axProperties[I].strName=#0) then xObj.axProperties[I].strName:=strName;
- xObj.axProperties[I].strValue:=strValue;
- bOK:=True;
- exit;
- end;
- end;
- end;
- if not bOk then
- begin
- xObj.iPropCount:=xObj.iPropCount+1;
- SetLength(xObj.axProperties,xObj.iPropCount);
- xObj.axProperties[xObj.iPropCount-1].strName:=strName;xObj.axProperties[xObj.iPropCount-1].strValue:=strValue;
- end;
- end;
-
- function GetPropertyValue(strName: String; xObj: PAnObject;out bErr: Boolean):String;
- var
- I: Integer;
- bOK: Boolean;
- begin
- bOk:=False;
- if(xObj.iPropCount>0) then
- begin
- for I:=0 to (xObj.iPropCount-1) do
- begin
- if(xObj.axProperties[I].strName=strName) then
- begin
- GetPropertyValue:=xObj.axProperties[I].strValue;
- bOK:=True;
- bErr:=False;
- exit;
- end;
- end;
- end;
- if not bOk then
- begin
- GetPropertyValue:=#0;
- bErr:=True;
- end;
- end;
-
- procedure DeleteProperty(strName: String; xObj: PAnObject);
- var
- I: Integer;
- begin
- if(xObj.iPropCount>0) then
- begin
- for I:=0 to (xObj.iPropCount-1) do
- begin
- if(xObj.axProperties[I].strName=strName) then
- begin
- xObj.axProperties[I].strName:=#0;
- xObj.axProperties[I].strValue:=#0;
- exit;
- end;
- end;
- end;
- end;
-
- end.
-
- //EXEMPLE D'UTILISATION
- procedure PlacerProprietes();
- var
- MonSetDeProps: TAnObject;//Le containeur de propriétés
- bErr: Boolean;//Requis pour s'assurer qu'il n'y a pas de problèmes
- MaValeur: String;//Exemple d'une façon de stocker le résultat
- begin
-
- //Initialisation de la structure
- MonSetDeProps.iPropCount:=0;
-
- //!!!Losrque vous devez passer la structures aux fonctions comme argument, utilisez son pointeur (@)
-
- //Ajout de valeurs dans MonSetDeProps
- ModifyProperty('Valeur inutile','?!?!?',@MonSetDeProps);
- ModifyProperty('Valeur inutile2','!?!?!',@MonSetDeProps);
- ModifyProperty('Taille','100 m',@MonSetDeProps);
- ModifyProperty('Âge','27 ans',@MonSetDeProps);
-
- //Supression de valeurs dans MonSetDeProps
- DeleteProperty('Valeur inutile',@MonSetDeProps);
- DeleteProperty('Valeur inutile2',@MonSetDeProps);
-
- //Suite de l'ajout de valeurs dans MonSetDeProps
- ModifyProperty('Prix','20$',@MonSetDeProps);
- ModifyProperty('Nombre','123456',@MonSetDeProps);
-
- //Obtention de valeurs dans MonSetDeProps
- //Si la propriété n'existe pas, bErr retourne TRUE
- MaValeur:=GetPropertyValue('Taille',@MonSetDeProps,bErr);
- ShowMessage(MaValeur);//Utiliser la valeur...
- MaValeur:=GetPropertyValue('Nombre',@MonSetDeProps,bErr);
- ShowMessage(MaValeur);//Utiliser la valeur...
- MaValeur:=GetPropertyValue('Âge',@MonSetDeProps,bErr);
- ShowMessage(MaValeur);//Utiliser la valeur...
- MaValeur:=GetPropertyValue('Prix',@MonSetDeProps,bErr);
- ShowMessage(MaValeur);//Utiliser la valeur...
-
- //Gestion d'erreur
- MaValeur:=GetPropertyValue('VALEUR_INEXISTANTE!',@MonSetDeProps,bErr);
- if bErr then ShowMessage('Propriété introuvable!'){gèrer le problème} else ShowMessage(MaValeur);{Utiliser la valeur...}
-
- ShowMessage(IntToStr(MonSetDeProps.iPropCount)+' entées');
-
- end;
//Créé par DeadlyPredator
//Je ne peux être tenu responsable de tout dommage ou perte éventuellement causé directement ou indirectement par ce code.
//À COLLER DANS UN FICHIER APPELÉ uOptionContainer.pas
unit uOptionContainer;
interface
type
TProperty=packed record
strName, strValue: String;
end; PProperty=^TProperty;
type
TAnObject=packed record
strName: String;
iPropCount: Integer;
axProperties: array of TProperty;
end; PAnObject=^TAnObject;
procedure ModifyProperty(strName, strValue: String; xObj: PAnObject);
function GetPropertyValue(strName: String; xObj: PAnObject;out bErr: Boolean):String;
procedure DeleteProperty(strName: String; xObj: PAnObject);
implementation
procedure ModifyProperty(strName, strValue: String; xObj: PAnObject);
var
I: Integer;
bOK: Boolean;
begin
bOk:=False;
if(xObj.iPropCount>0) then
begin
for I:=0 to (xObj.iPropCount-1) do
begin
if((xObj.axProperties[I].strName=strName) or (xObj.axProperties[I].strName=#0)) then
begin
if(xObj.axProperties[I].strName=#0) then xObj.axProperties[I].strName:=strName;
xObj.axProperties[I].strValue:=strValue;
bOK:=True;
exit;
end;
end;
end;
if not bOk then
begin
xObj.iPropCount:=xObj.iPropCount+1;
SetLength(xObj.axProperties,xObj.iPropCount);
xObj.axProperties[xObj.iPropCount-1].strName:=strName;xObj.axProperties[xObj.iPropCount-1].strValue:=strValue;
end;
end;
function GetPropertyValue(strName: String; xObj: PAnObject;out bErr: Boolean):String;
var
I: Integer;
bOK: Boolean;
begin
bOk:=False;
if(xObj.iPropCount>0) then
begin
for I:=0 to (xObj.iPropCount-1) do
begin
if(xObj.axProperties[I].strName=strName) then
begin
GetPropertyValue:=xObj.axProperties[I].strValue;
bOK:=True;
bErr:=False;
exit;
end;
end;
end;
if not bOk then
begin
GetPropertyValue:=#0;
bErr:=True;
end;
end;
procedure DeleteProperty(strName: String; xObj: PAnObject);
var
I: Integer;
begin
if(xObj.iPropCount>0) then
begin
for I:=0 to (xObj.iPropCount-1) do
begin
if(xObj.axProperties[I].strName=strName) then
begin
xObj.axProperties[I].strName:=#0;
xObj.axProperties[I].strValue:=#0;
exit;
end;
end;
end;
end;
end.
//EXEMPLE D'UTILISATION
procedure PlacerProprietes();
var
MonSetDeProps: TAnObject;//Le containeur de propriétés
bErr: Boolean;//Requis pour s'assurer qu'il n'y a pas de problèmes
MaValeur: String;//Exemple d'une façon de stocker le résultat
begin
//Initialisation de la structure
MonSetDeProps.iPropCount:=0;
//!!!Losrque vous devez passer la structures aux fonctions comme argument, utilisez son pointeur (@)
//Ajout de valeurs dans MonSetDeProps
ModifyProperty('Valeur inutile','?!?!?',@MonSetDeProps);
ModifyProperty('Valeur inutile2','!?!?!',@MonSetDeProps);
ModifyProperty('Taille','100 m',@MonSetDeProps);
ModifyProperty('Âge','27 ans',@MonSetDeProps);
//Supression de valeurs dans MonSetDeProps
DeleteProperty('Valeur inutile',@MonSetDeProps);
DeleteProperty('Valeur inutile2',@MonSetDeProps);
//Suite de l'ajout de valeurs dans MonSetDeProps
ModifyProperty('Prix','20$',@MonSetDeProps);
ModifyProperty('Nombre','123456',@MonSetDeProps);
//Obtention de valeurs dans MonSetDeProps
//Si la propriété n'existe pas, bErr retourne TRUE
MaValeur:=GetPropertyValue('Taille',@MonSetDeProps,bErr);
ShowMessage(MaValeur);//Utiliser la valeur...
MaValeur:=GetPropertyValue('Nombre',@MonSetDeProps,bErr);
ShowMessage(MaValeur);//Utiliser la valeur...
MaValeur:=GetPropertyValue('Âge',@MonSetDeProps,bErr);
ShowMessage(MaValeur);//Utiliser la valeur...
MaValeur:=GetPropertyValue('Prix',@MonSetDeProps,bErr);
ShowMessage(MaValeur);//Utiliser la valeur...
//Gestion d'erreur
MaValeur:=GetPropertyValue('VALEUR_INEXISTANTE!',@MonSetDeProps,bErr);
if bErr then ShowMessage('Propriété introuvable!'){gèrer le problème} else ShowMessage(MaValeur);{Utiliser la valeur...}
ShowMessage(IntToStr(MonSetDeProps.iPropCount)+' entées');
end;
Conclusion
Faut-il nettoyer le tableau après ou Delphi s'en charge? Pour la suppression, notez bien que ce n'est pas une vrai supression. Cela rend juste cette entrée disponible pour qu'une nouvelle puisse prendre sa place sans avoir besoins d'agrandir. Peut-on supprimer des cellules dans un tableau? Laissez vos comentaires svp.
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
propriété d'un composant à partir de 'components' [ par vib ]
Je désire modifier les propriétés de n'importe quel composant sur une feuille.Je me suis servi de la propriété 'components'de la feuille avec l'index
Probleme de débutant [ par Naxo ]
BonjourAlors moi je me retrouve face à un probleme dont la solution estcertainement très simple mais bon... Après avoir cherché j'ai rien trouvé :|Je
Probleme de débutant [ par Naxo ]
BonjourAlors moi je me retrouve face à un probleme dont la solution estcertainement très simple mais bon... Après avoir cherché j'ai rien trouvé :|Je
changer à l'éxecution l'alias d'un TQuery (propriété DataBaseName?) [ par juan ]
Bjour tous, je fais un programme de gestion d'une base de donnée, et je voudrais que l'utilisateur puisse faire sa sélection sur la base qu'il désire
Form MDI comme en VB [ par Bruto ]
Je suis programmeur Visual Basic et j'essaye de migrer vers Delphi. J'aurai voulu savoir s'il y avait une propriété sur une form qui pourrait la mettr
Problème d'enregistrement d'un editeur de propriété [ par almi ]
Bonjour,J'ai cree un composant qui dispose d'une propriéte TPersisent nomme Params.Cette propriete contient elle meme un ensemble de proprietes scalai
Propriété "Style" d'un ComboBox [ par jack554 ]
Bonjour.Question pour contrôler la saisie dans un ComboBox :Si on positionne le Style d'un TComboBox à csDropDown, l'utilisateur peut taper des valeur
TNSMTP (encore...) + Proxy [ par DeZNiUS ]
Bonjour à tous !Alors voila, dans l'aide Delphi (6 pro), TNMSMTP possède la propriété Proxy et ProxyPort. Pourtant, en réalité, elle n'existe pas ! Ou
Aide avec TTreeView [ par MAsterC ]
Bonjour !Je suis un peu débutant avec le composant TTreeView et dans mon programme j'ai fais une form "options" mais je veux l'avoir du meme style que
Filtre ADOTable [ par MasterNKZ ]
Salut à tous,Voici mon probléme : je dispose d'une base de données sous access et je veux l'exploiter en réalisant un programme sous delphi. Mais des
|
Derniers Blogs
[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|