字符串的一个非典型问题（求教）

Question

一个由ABCDEF组成的字符串，可能的结果如：
ABC
ABCD
AB
ABCDEF
ABCD
ACD
ABEF
...这个由六个字符组成的字符串中每个字符对应一个edit控件，如：
A 对应控件 EDIT1
B 对应控件 EDIT2
C 对应控件 EDIT3
D 对应控件 EDIT4
E 对应控件 EDIT5
F 对应控件 EDIT6问题：
在一个文本框(strEdit)中输入上述字符串中的任何一组时，点击按钮能够将对应的EDIT控件的背景颜色同时改变？
求教老师

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    A: TEdit;
    B: TEdit;
    C: TEdit;
    edt: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);
var
  Comp:TComponent;
begin
  Comp:=FindComponent(edt.Text);
   if (Comp <> nil) and (Comp is TEdit) then
    TEdit(Comp).Color:=clSkyBlue ;
end;end.

Answer 2

To:liangpei2008 
经测试，您的代码一次只能输入一个字符选中一个Edit控件，我想是输入一组字符，如ABC能够同时改变三个Edit控件的背景色，如何做呢？

Answer 3

procedure TForm1.btn1Click(Sender: TObject);
var
  Comp:TComponent;
  I:Integer;
begin
  for I:=1 to Length(edt.Text)  do
  begin
    Comp:=FindComponent(Copy(edt.Text,I,1));
    if (Comp <> nil) and (Comp is TEdit) then
      TEdit(Comp).Color:=clSkyBlue ;
  end;
end;

Answer 4

var
  str: string;
begin
  str:= trim(strEdit.text);
  for i:= 0 to length(str) - 1 do
    (FindComponent(edit+inttostr(ord(str[i+1])-64)) as tedit).color:= clred;
end;
未测,一般能行

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  i: integer;
begin
  str:= 'AC';
  for i:= 0 to length(str) - 1 do
    (FindComponent('edit'+inttostr(ord(str[i+1])-64)) as tedit).color:= clred;
end;
刚测,可以了

Answer 6

都没弄明白楼主的意思，是不是可以这么理解：假如文本框(strEdit)中输入ABC，则edit1,edit2,edit3，这3个edit的颜色就变化；假如输入的是DEF，则edit4,edit5,edit6，这3个edit的颜色就变化？

Answer 7

用liangpei2008 的方法解决了，dinoalex 也可以，xinxinshou2009 的描述很正确