Probleme de recuperation de texte dans memo [Résolu]

Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
- - Dernière réponse : tilab
Messages postés
97
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
- 15 oct. 2007 à 22:43
Bonjour,
J'essaye de recuperer un texte inscrit dans un fichier ini a fin de le mttre dans un TMemo mais a chaque fois le memo reste vide . Voici le code :

var
FileIni : TIniFile;
texte : string;
nom : string;
begin
nom:= Edit1.Text;
FileIni:= TIniFile.Create('C:\Program Files\Chat\Historique\'+nom+'.ini');
 texte:= FileIni.ReadString('texte','Cle', texte);
 Memo1.Text:=(texte);
 FileIni.Free;
end;

J'espere que quelqu'un pourra m'aider.
Merci d'avance.
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26
3
Merci
begin
  with TIniFile.Create('
C:\Program Files\Chat\Historique\
'+Edit1.Text+'.ini') do
  try
    Memo1.Text := ReadString('texte','cle');
  finally
    Free;
  end;
end;

Dire « Merci » 3

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

Codes Sources 197 internautes nous ont dit merci ce mois-ci

Commenter la réponse de f0xi
Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
0
Merci
Memo1.Text := ReadString('texte','cle');
Commenter la réponse de ewertheimer
Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
0
Merci
Esxcusez moi pour le poste inutile qui precede celui-ci.
Quand j'execute le programme le debogeur me dit que cette ligne ne contient pas assez de paramètres originaux : Memo1.Text := ReadString('texte','cle');
Que dois-je rajouter ?
Commenter la réponse de ewertheimer
Messages postés
163
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009
0
Merci
J'ai trouvé une autre solution à mon probleme : au lieu d'utiliser des fichiers ini j'utilise des fichiers texte. C'est beaucoup plus simple et rapide.
Merci beaucoup pour votre aide.
Commenter la réponse de ewertheimer
Messages postés
97
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
3
0
Merci
 Juste pour tes connaissances il te manque la valeur par défault si l'information est vide.
Memo1.Text := ReadString('texte','cle','[default value]');
Ceci est très pratique pour ne pas devoir coder si l'information est inexistante comme tu devrais le faire avec le fichier texte. Je te conseille de de perdre un peu de temps pour comprendre ces processus car ensuite tu gagneras plusieur fois le temps investi.

Alex
Commenter la réponse de tilab