喫茶XRAY [Mr.XRAY掲示板]

▼ Mr.XRAYさん

> procedure TForm1.Button1Click(Sender: TObject);
> begin
>   TFile.WriteAllText('000.txt', Edit1.Text);
> end;
>

フォームを開くたびに入力するのがめんどうで、一時的にEditの内容を
保存したい時ってありますよね。
今まではTStringListを使って保存していたのですが、
TFileを使うとコードが簡単になりますね。

ありがたや、ありがたや。

procedure TForm1.FormHide(Sender: TObject);
var
  sl:TStringList;
  s:string;
begin
{
  s := 'Edit2Text.txt';
  sl := TStringList.Create;
  try
    sl.Text := Edit2.Text;
    sl.SaveToFile(s);
  finally
    FreeAndNil(sl);
  end;
}
  // 代替コード
  TFile.WriteAllText('Edit2Text.txt', Edit2.Text, TEncoding.UTF8);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  sl:TStringList;
  s:string;
begin
{
  s := 'Edit2Text.txt';
  if FileExists(s) then begin
    sl := TStringList.Create;
    try
      sl.LoadFromFile(s);
      Edit2.Text := trim(sl.Text);  // 改行を取り除く
    finally
      FreeAndNil(sl);
    end;
  end;
}
  // 代替コード
  if FileExists('Edit2Text.txt') then begin
    Edit2.Text := TFile.ReadAllText('Edit2Text.txt', TEncoding.UTF8);
  end;
end;