Problème Memo à TSringListRésolu

Question

Bonjours à vous tous,
Pour un projet scolaire je doit sauvegarder le contenu d'un Memo dans un TSringlist.
Je vous présente mon code:

Var
texte:TSringList;
begin
    texte := TStringList.Create;
    Texte := (TmpListeF.ObtenirElement as TFichier).AvoirContenu;
    If texte = nil then
      begin
        Form3.Contenu.Text := '';
        texte.add('');
      end  
    else
       begin  
         Form3.Contenu.Text := texte.Text;
         Form3.ShowModal;
         tmp := Form3.Contenu.Text;
         Texte.Add(tmp) ;
        (TmpListeF.ObtenirElement as tFichier).RajouterContenu(Texte);
       end;

AvoirContenu est une fonction me donne un TStringList
RajouterContenu est procédure qui met en mémoire un TStringList

Je vous remercie d'avance.

JeremyLecouvert · Accepted Answer

Désolé, il faut lire:
  Texte.AddStrings(Memo1.Lines);

(copier/coller abusif!)

Si l'envie te prend de travailler, assied-toi et attend qu'elle te passe! (vieux -et faux!- dicton corse)

JeremyLecouvert · Answer

Salut,

Je ne comprends pas bien ton problème... si quand tu dis Memo, tu parles comme je le pense d'un TMemo, il te suffit de faire:
var
  Texte: TStringList;
begin
  Texte:= TStringList.Create;
  // On affecte le contenu du TMemo au TStringList
  Texte.Assign(Memo1.Lines);
  // sinon, on peut ajouter le contenu du memo en fin de liste
  ListBuffer.AddStrings(Memo1.Lines);
end;



Si l'envie te prend de travailler, assied-toi et attend qu'elle te passe! (vieux -et faux!- dicton corse)

milomax91 · Answer

Merci Beaucoup ça fonctionne,
J'avais déjà essayer addStrings, sauf que mon Texte.Create n'était pas à la bonne place.

Problème Memo à TSringList

3 réponses

Votre réponse

Discussions similaires