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
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
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte