|
▼ 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;
|