複数ファイルを一括して開く

解決

やまだのおろち 2003-11-29 10:23:55 No: 5832

複数のテキストファイルをmemo.stringに開いていきたいのですが
Memo1.Lines.LoadFromFile(OpenDialog1.FileName) ;
とするとボタンを押すごとにmemo1.Linesがクリアされてから新しいファイルを開くようになってしまいます。

いちいちクリアせず、ファイルを開くごとにMemo1.Stringに追記してくようなかたちにしたのですが
どのような方法がありますでしょうか？
for文を使わずにできるだけスピーディーな方法を考えているのですがどうもいい方法が思いつきません。
分かる方にはものすごく簡単なことなのでしょうが検索してみても”コレ！”というものが見当たらなかったためアドバイスしていただけるとありがたいです。
宜しくお願い致します。

Halbow 2003-11-29 10:43:24 No: 5833

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;

Halbow 2003-11-29 10:47:34 No: 5834

こっちの方がいいかもしれません。

procedure TForm1.Button1Click(Sender: TObject);
var
  SL:TStringList;
begin
  if not OpenDialog1.Execute then Exit;
  SL := TStringList.Create;
  try
    SL.LoadFromFile(OpenDialog1.FileName);
    Memo1.Lines.Add(SL.Text);
  finally
    SL.Free;
  end;
end;

やまだのおろち 2003-11-29 11:01:30 No: 5835

＞string
Linesの間違えでした。すみません＆ありがとうございまました