Afficher un fichier word dans un mémo

bonjour
dans delphi 10.2 j'aimerais afficher un document word dans un memo mon code

Code:

---

1 2 3 4 5

procedure TForm3.Button1Click(Sender: TObject); begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;

---

merci

Peut-être un OpenDialog plutôt qu'un SaveDialog, et un LoadFromFile plutôt qu'un SaveToFile ?

Bonjour,

Votre code ne sauvegarde pas un fichier word (format spécifique MS ) mais un fichier texte (que vous mettiez une extension .doc ne changera rien)

Faire l'inverse, c'est-à-dire comme demandé, afficher un fichier (texte) dans un mémo se fait, comme l'indique Tourlourou, avec Opendialog et LoadFromFile

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm3.SauverClick(Sender: TObject); begin if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;     procedure TForm3.ChargerClick(Sender: TObject); begin if Opendialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;

---

Mais, encore une fois, il s'agit de fichier texte pas d'un fichier word (extensions doc, docx ...). Pour ce genre de fichier ce n'est pas un Tmemo qu'il faudra. Je vous invite dans ce cas, à lire les FAQs concernant MS Word

Bonjour,

tu risques d'être surpris lors de l'affichage d'un fichier Word dans un Mémo. Fais un test Comme te le dit SergioMaster le format de Word n'est pas du texte pur.

A+
Charly

Bonjour,

Tu peux utiliser TOleContainer qui en sous jacent encapsulera Word.

Tu peux également créer et ouvrir un fichier.rtf que tu peux je pense terminer en .doc, mais effectivement des que Word l'aura toucher, le TRichEdit ne pourra plus l'ouvrir.

Cordialement.

Bonjour à toutes et à tous,

@ aliacces, voici un lien qui pourrai t'intéresser, il faut que Word soit installer :

https://lfe.developpez.com/PasWord/

@+,

cincap