多个TEdit控件集体赋值一点心得不限这种，其实也是星期六散分啊~~~~ (50分)

  MyData.Str1 := '1';
  MyData.Str2 := '2';
  MyData.Str3 := '3';
  MyData.Str4 := '4';
  MyData.Str5 := '5';
  MyData.Str6 := '6';
  MyData.Str7 := '7';

  for I := 0 to ComponentCount - 1 do
  begin
    FirstData := @(MyData.Str1);
    if Components[I] is TEdit then
    begin
      Inc(FirstData, (Components[I] as TEdit).Tag);
      (Components[I] as TEdit).Text := FirstData^;
    end;
  end;

var
  MyEdit: ^TEdit;
  I: Byte;
begin
  New(MyEdit);
//  ShowMessage('$' + IntToHex(Integer)
//  ShowMessage(IntToStr(SizeOf(TEdit)));
//  ShowMessage('$' + IntToHex(Integer(MyEdit), 8));
//  ShowMessage('$' + IntToHex(Integer(@Edit1), 8));
  MyEdit := @Edit1;
//  ShowMessage('$' + IntToHex(Integer(MyEdit), 8));
  for I := 0 to 6 do
  begin
    MyEdit^.Text := IntToStr(I);
    Inc(MyEdit);
  end;