Tstringsの上書きを防止するには？ (ID:12382)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

追加です。内容を保持するには、TStrings の Assign メソッドを使います。
新規で Memo1 Memo2 Button1 〜 Button4 を Form1 において以下のコードを
試してください。内容を保持するには、予め同じクラスのインスタンスを作成
しておかなければなりません。

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    stl:array[0..1] of TStrings;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  stl[0] := TStringList.Create;
  stl[1] := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  stl[0].Free;
  stl[1].Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  stl[0].Assign(Memo1.Lines);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  stl[1].Assign(Memo1.Lines);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.Lines.Assign(stl[0]);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Memo2.Lines.Assign(stl[1]);
end;

←解決時は質問者本人がここをチェックしてください。

戻る