08/08/10 21:15:41
>>329
編集中のテキストにファイルから別のテキストを追加読み込みしたいということですね。
別に文字列リストを用意してそれに読み込んでからMemo1.Linesに追加。
procedure TForm1.Action_AddFromFileExecute(Sender: TObject);
var
Strings: TStringList;
begin
Strings := TStringList.Create;
try
if OpenDialog1.Execute then
begin
// 文字列リストにファイルを読み込む．
Strings.LoadFromFile(OpenDialog1.FileName);
// Memo1のテキストにこの内容を追加．
Memo1.Lines.AddStrings(Strings);
end;
finally
Strings.Free;
end;
end;