Probleme de recuperation de texte dans memo [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
96
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
-
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.

5 réponses

Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
30
begin
  with TIniFile.Create('
C:\Program Files\Chat\Historique\
'+Edit1.Text+'.ini') do
  try
    Memo1.Text := ReadString('texte','cle');
  finally
    Free;
  end;
end;
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

Memo1.Text := ReadString('texte','cle');
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

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 ?
Messages postés
161
Date d'inscription
dimanche 16 janvier 2005
Statut
Membre
Dernière intervention
26 janvier 2009

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.
Messages postés
96
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
26 octobre 2009
3
 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