くだすれDelphi(超初心者用)その47

くだすれDelphi(超初心者用)その47 at TECH

331: ◆XcB18Bks.Y
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;

次ページ

続きを表示

1を表示