Ｌａｚａｒｕｓでmemoを使ったファイルのロード、セーブをしてみた

未分類

Ｌａｚａｒｕｓでmemoを使ったファイルのロード、セーブ

テキストをファイルに格納する場合
memoを使って行うと、内容が見えるのでわかりやすい
文章などを扱う場合には有効である

参考
http://www.osk.3web.ne.jp/~satou/delphi6.htm

ポイント
Memo1.Lines.LoadFromFile( FName );
Memo1.Lines.SaveToFile(FName);
で、Memo1とテキストファイルのロードセーブができる

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption:='save';
  Button2.Caption:='load';
end;

procedure TForm1.Button1Click(Sender: TObject);
var FName:string;
begin
  FName:='test.txt';
//  Memo1.Lines.LoadFromFile( FName );
  Memo1.Lines.SaveToFile(FName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var FName:string;
begin
  FName:='test.txt';
  Memo1.Lines.LoadFromFile( FName );
//  Memo1.Lines.SaveToFile(FName);
end;