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

Question

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

Signaler

ewertheimer

Messages postés: 161
Date d'inscription: dimanche 16 janvier 2005
Statut: Membre
Dernière intervention: 26 janvier 2009

- 2 sept. 2005 à 20:39
ni69

Messages postés: 1418
Date d'inscription: samedi 12 juin 2004
Statut: Membre
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

A voir également:

Readstring delphi
Delphi readstring - Meilleures réponses
Visual Basic / VB.NET : Ecrire/lire un fichier ini (activex / dll) - CodeS SourceS - Guide
C / C++ / C++.NET : Ecrire/lire un fichier *.ini en c/c++ - CodeS SourceS - Guide
Visual Basic / VB.NET : Petite classe pour lire les fichiers ini - Guide
C / C++ / C++.NET : Class simple pour lire des fichier *.ini - CodeS SourceS - Guide
Lire un fichier texte et récupérer son contenu dans excel ✓ - Forum - Visual Basic 6

1 réponse

Répondre Posez votre question

ni69 · Accepted Answer · 2005-09-02T20:54:45+0200

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 !

Votre réponse