掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
MS-WORDの文書ファイルを読込んでテキスト表示するには？ (ID：15554)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Form1上で行ってよいのであれば 下記のような関数作って function TForm1.rtf2text(stream:TStream):string; var RichEdit:TRichEdit; begin RichEdit:=TRichEdit.Create(self); RichEdit.Parent:=Form1; stream.Seek(0,soFromBeginning); RichEdit.Lines.LoadFromStream(stream); Result:=RichEdit.Lines.Text; RichEdit.Free; end; さっき書いた function TForm1.LoadDoc8File(FileName: string; var FormatCode:integer):string; 内の if FormatCode =0 then begin Result:=rtf2text(FS); //これに変更 //Result:=''; end else すれば一つの関数で読み込めます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.