変数にコンポーネントを・・・

ペペ 2005-07-26 00:46:29 No: 16595

用意したフラグの値によって指定するコンポーネントを変化させたいです。
つまり、
フラグが1なら、edit1.Text:='abc'
フラグが2なら、edit3.Text:='abc'
フラグが3なら、edit8.Text:='abc'
というようにしたいです。
変数にコンポーネントを入れて、ifかcaseで・・・
と思ったのですがよくわかりません。
ご教授願えないでしょうか？
お願いします。

deldel 2005-07-26 01:51:45 No: 16596

case i of
1:edit1.Text:='abc';
2:edit3.Text:='abc';
3:edit8.Text:='abc';
end;

ってこと？

cscs 2005-07-26 08:11:38 No: 16597

コンポーネント(というよりもインスタンス)を代入させたいのなら

var
  edit: TEdit;
  i: Integer;
begin
  i := ○;
  case i of
    1: edit := edit1;
    2: edit := edit3;
    3: edit := edit8;
  end;
  edit.Text := 'abc';
end;

ってこと？