请教：Delphi 怎样给机构体内的变量赋值

[KJHM]

赋值TGhzf.A:=Edit1.text时报错：Incompatible types: 'Array' and 'TCaption' 结构体如下：
type
TGhzf = packed record
A: array[0..5] of Char;
B: array[0..19] of Char;
end;
PTGhzf = ^TGhzf;
......

procedure TForm1.Button1Click(Sender: TObject);
begin
TGhzf.A:=Edit1.text;
TGhzf.B:=Edit2.text;
end;

[日立奔腾浪潮微软松下联想]

楼主怎么给类型赋值呢~~~

[BlueStorm]

type
  TGhzf = packed record
    A: array[0..5 ] of Char;
    B: array[0..19] of Char;
  end;
  PTGhzf = ^TGhzf;

var
  Ghzf : TGhzf;
---------------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  Move(Edit1.text[1], Ghzf.A[0], Length(Edit1.text) * Sizeof(Char));
  Move(Edit2.text[1], Ghzf.B[0], Length(Edit2.text) * Sizeof(Char));
end;

[无聊的猪]

procedure TForm1.btn1Click(Sender: TObject); var ghzf: PTGhzf; begin New(ghzf); ghzf.A := '123456'; ghzf.B := 'abcdef'; end;

[堕落恶魔_Delphi]

类型不匹配 怎么可能赋值 别想偷懒 按照2楼方式去赋值, 但是长度要限制为A/B的长度, 否则可能内存溢出

  Move(Edit1.text[1], Ghzf.A[0], Sizeof(Ghzf.A));
  Move(Edit2.text[1], Ghzf.B[0], Sizeof(Ghzf.B));

[KJHM]

现在好了，谢谢大家！