Lire un fichier ini et inserer son contenu dans un TMemo [Résolu]

Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Dernière intervention
26 janvier 2009
- - Dernière réponse : ni69
Messages postés
1529
Date d'inscription
samedi 12 juin 2004
Dernière intervention
5 juillet 2010
- 2 sept. 2005 à 20:54
Bonjour Mon but serait de lire un fichier ini et d'inserer toutes les donnees dans un TMemo de maniere presentable c'est à dire que le resultat qui sera afficher dans le TMemo sera preferable qu'il n'apparaisse pas sous cette forme :
[Section societe]
NomClé String=M'edeph

[Section nom]
NomClé String=Francis

[Section prenom]
NomClé String=François

[Section adresse]
NomClé String=1 rue rene francois Paris 75015

[Section email]
NomClé String=Eliottwertheimer@aol.com

[Section sexe]
NomClé String=masculin

[Section Bureau]
NomClé String=0146447015

[Section portable]
NomClé String=0674137332

[Section fax]
NomClé String=0146447015

mais sous cette forme :
M'edeph
Francis
François
1 rue rene francois Paris 75015
Eliottwertheimer@aol.com
masculin
0146447015
0674137332
0146447015
Merci d'avance .
J'attends vos reponses le plus rapidement possible
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
1529
Date d'inscription
samedi 12 juin 2004
Dernière intervention
5 juillet 2010
3
Merci
Fais comme ceci :



procedure TForm1.Button1Click(Sender: TObject);
begin
with TIniFile.Create('C:\Program Files\Medeph Agenda\Medeph.Ini') do try
Memo1.Lines.Add(ReadString('Section societe', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section nom', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section prenom', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section adresse', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section email', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section sexe', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section Bureau', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section portable', 'NomClé String', ''));
Memo1.Lines.Add(ReadString('Section fax', 'NomClé String', ''));

finally
Free;
end;
end.

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 99 internautes ce mois-ci

Commenter la réponse de ni69

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.