关于记录（Recoed）这种数据类型的问题！！！ (50分)

用指针指向第一个字段的

unit RecordFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmRecord = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    btnSetData: TButton;
    procedure btnSetDataClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRecord: TfrmRecord;

implementation

{$R *.dfm}

procedure TfrmRecord.btnSetDataClick(Sender: TObject);
type
  TMyData = record
    Str1: string;
    Str2: string;
    Str3: string;
    Str4: string;
    Str5: string;
    Str6: string;
    Str7: string;
  end;
var
  MyData: TMyData;
  FirstData: ^string;
  I: Integer;
begin
  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;


end;

end.