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

ewertheimer 163 Messages postés dimanche 16 janvier 2005Date d'inscription 26 janvier 2009 Dernière intervention - 2 sept. 2005 à 20:39 - Dernière réponse : ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention
- 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
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 2 sept. 2005 à 20:54
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 !

Merci ni69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 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.