Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 543 fois - Téléchargée 33 fois
{--------------------------------------------------- Sauvegarde de n'importe quel composant. Le fichier prend le nom du composant avec l'extension '.dat' si FileName est omis. {---------------------------------------------------} procedure SaveComponent(Cmpnt:TComponent;FileName:string=''); var F : TFileStream; begin if FileName='' then FileName:=(Cmpnt as TComponent).Name +'.dat'; F := TFileStream.Create(FileName, fmCreate); try F.WriteComponent(Cmpnt); finally F.destroy; end; end; {--------------------------------------------------- Chargement de n'importe quel composant. Le fichier prend le nom du composant avec l'extension '.dat' si FileName est omis. {---------------------------------------------------} procedure LoadComponent(Cmpnt:TComponent;FileName:string=''); var F : TFileStream; begin if FileName='' then FileName:=(Cmpnt as TComponent).Name +'.dat'; if FileExists(FileName) then begin F := TFileStream.Create(FileName, fmOpenRead); try Cmpnt := F.ReadComponent(Cmpnt) as TComponent; finally F.destroy; end; end; end; {---------------------------------------------------}
"Enregistrement de composants avec WriteComponent/ReadComponent" et
"Enregistrement de composants avec WriteComponentRes/ReadComponentRes".
Les URL sont respectivement :
http://nono40.developpez.com/sources/source0062.html et http://nono40.developpez.com/sources/source0064.html
La mise en flux des composants existe depuis Delphi 1.
Ces méthodes sont utilisées par Delphi lui-même.
En espérant que cela t'aidera.
1/ Qu'est-ce que ces routines apportent de plus que les méthodes WriteComponent, WriteComponentRes, WriteComponentResFile, ReadComponent, ReadComponentRes et ReadComponentResFile ?
2/ Pourquoi effectues-tu un transtypage de Cmpnt en TComponent alors que Cmpnt est déjà du type TComponent ?
Merci pour tes réponses (argumentées si possible).
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.