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

Signaler
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
-
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
-
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

1 réponse

Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
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 !