名前
題名
▼ takiさん > ▼ 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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link