☆RichTextBoxの読み書き

[Windowsフォームアプリケーション]
RichTextBoxを使ってテキストファイルを読み書きする簡単なサンプルです。

新規フォームにRichTextBox1,Button1,Button2,OpenFileDialog1,SaveFileDialog1を適当に配置します。

uses System.IO;

//読み込み
procedure TWinForm1.Button1_Click(sender: System.Object;
   e: System.EventArgs);
var
 FS: FileStream;
 Path: String;
begin
 if (OpenFileDialog1.ShowDialog =
   System.Windows.Forms.DialogResult.OK) then
 begin
   Path := OpenFileDialog1.FileName;

  //RTF(Rich Text Format)以外の読み込みではエラーになる。
  //RichTextBox1.LoadFile(Path);

  //テキストファイルを読み込む。
  RichTextBox1.LoadFile(Path, RichTextBoxStreamType.PlainText);

  //ストリームを使って読み込む。
  //FS := FileStream.Create(Path, FileMode.Open,
  //     FileAccess.ReadWrite);
  //RichTextBox1.LoadFile(FS, RichTextBoxStreamType.PlainText);
 end;
end;

//書き込み
procedure TWinForm1.Button2_Click(sender: System.Object;
   e: System.EventArgs);
var
 FS: FileStream;
 Path: String;
begin
 if (SaveFileDialog1.ShowDialog =
   System.Windows.Forms.DialogResult.OK) then
 begin
  Path := SaveFileDialog1.FileName;

  //RTF(Rich Text Format)として保存する。
  //RichTextBox1.SaveFile(Path);

  //テキストファイルとして保存する。
  RichTextBox1.SaveFile(Path, RichTextBoxStreamType.PlainText);

  //ストリームを使って保存する。
  //FS := FileStream.Create(Path, FileMode.Create,
  //        FileAccess.ReadWrite);
  //RichTextBox1.SaveFile(FS, RichTextBoxStreamType.PlainText);
 end;
end;

|

その他のカテゴリー

ADO | ADT | API | ArrayList | ASP.NET | BDE | BDP.NET | BdpConnection | Borland Developer Studio 2006 | CAPICOM | class | ClipBoard | CodeEditor | Convert.ToString | Custom component | DBExpress | Delphi 2005 | Delphi 2006 | Delphi 2007 | Delphi XE2 | Delphi7 | Delphi8 | Device Driver | Dialog | Docking | DocuWorks | Docuworks SDK | Drag&Drop | Evernote | EXCEL | Firebird | FireMonkey | Game | General | Generics | Google Earth COM API | Google Maps | Google SketchUp | Graphic | IDE | Imm | Indy | InstallAware Express6 | InterBase Admin | JWW | Microsoft SQL Server | MyBase | OnMouseDown | Oracle XE | Paradox | PreviewHandler | PrintDialog | PrintPreviewDialog | PropertyGrid | PSDファイル | Ribbon Controls | RichTextBox | Servers | SubClass | TAction | TActionList | TAnimate | TButton | TCategoryButtons | TClientDataSet | TComboBox | TComboBoxEx | TCustomEdit | TDBGrid | TDockTabSet | TDrawGrid | TEdit | TExcelApplication | TFont | TForm | third party | TImage | TLabel | TList | TListBox | TListView | TMemo | TOpenDialog | TOutlookApplication | TPageControl | TPanel | TRichEdit | TShellResources | TStringGrid | TTabControl | TToolBar | TToolButton | TTreeView | TWebBrowser | Update | VCL Styles | WinInet | XE2 | XPman | オープン配列パラメータ | グループ化 | トランスレーションマネージャー | ファイル処理 | ファイル名処理 | 動的配列 | 投票 | 文字列処理 | 日本語入力 | 暗号 | | 音声合成利用