掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数ファイルを一括して開く (ID：5833)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 > いちいちクリアせず、ファイルを開くごとにMemo1.Stringに追記してくようなかたちにしたのですが Memo1.String ってなんのことだか分かりませんが、ファイルから読み込んでテキストを継ぎ足していくのなら、以下のようになります。 procedure TForm1.Button1Click(Sender: TObject); var SL:TStringList; begin if not OpenDialog1.Execute then Exit; SL := TStringList.Create; try SL.LoadFromFile(OpenDialog1.FileName); Memo1.SelStart := Length(Memo1.Text); Memo1.SelText := SL.Text; finally SL.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.