Bonjour,
J'aimerais récuperer la derniere ligne d'un TMemo afin de l'attribuer à une variable string, ceci est sans doute très simple mais je ne sais pas comment faire pour recuperer la derniere ligne du TMemo.
Merci d'avance pour votre aide .

Réponse acceptée !

Bonsoir elt93,

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  SL: TstringList;
  Fichier, Recup: string;
begin
  try
    Fichier := 'c:\temp\Fich.txt';
    SL := TStringList.Create;
    Memo1.Lines.SaveToFile(Fichier);
    SL.LoadFromFile(Fichier);
    Recup := SL.Strings[SL.count - 1];
    ShowMessage(Recup);
  finally
    SL.Free;
  end;
end;

on peut certainement écrire une fonction..

cantador

Réponse acceptée !
Salut,

Pourquoi utiliser une StringList ?

Recup := Memo1.Lines[Memo1.Lines.Count - 1];

C'est tout

 
@+
Cirec

---

Cantador : Pourquoi utiliser une variable de fichier ? L'utilisateur n'en a pas besoin, il n'en a meme pas parlé ! Pourquoi remplir une TStringList alors que les Lines du memo sont deja des TStrings !
Wow, t'as vraiment cherché super compliqué sur ce coup la !

J'ai modifié la reponse acceptée pour Cirec plutot ^^

Bonjour JulioDelphi,
Oui effectivement la solution de cirec est nettement plus courte, mais ma proposition fonctionne aussi et peut s'avérer utile en cas d'utilisation d'un fichier.
Qt à l'approbation du demandeur, vous ne pouvez connaître exactement son souci et il me semble que c'est à lui de décider si la réponse lui convient ou pas..
Sinon, tu devras passer en revue toutes les propositions acceptées sur le forum, les passer au peigne fin et attribuer les bons points !!

Et là je demande à voir..

Peut-être une petite saute d'humeur de ta part due aux premières chaleurs...

cantador

Nan rien a voir, aucontraire il fait beau tout va bien :p ta réponse n'est pas "mauvaise" mais "pas adaptée" je dirais. allez je vous mets a 2 =)

Bon soleil a tous !

merci Julio

cantador

effectivement, la méthode de cirec est beaucoup plus rapide, mais les deux fonctionnent parfaitement !

personne n'a dit qu'elle ne fonctionnait pas mais il passe inutilement par deux intermédiaire ... une première par le disque et la deuxième par la StringList.
 
@+
Cirec

---