关于Assigned,AssignField,AssignFile,AssignValues的功能和用法！

Question

连接，相当于付值，
如 table1.fields[0].assignfield(afield)
就是把afield:Tfield这个字段付给table1.fields[0];
但它和table1.fields[0]:=afield是不一样的，
table1.fields[0]:=afield只是传送了指针，而table1.fields[0].assignfield(afield)是将afield的内存符给了table1.fields[0]

Answer 1

还不明白吗？其它的都是一个意思如assignfilevar   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;AssignFile(F, OpenDialog1.FileName)//将所选择的文件和F联接在一起，
也就是把OpenDialog1.FileName的文件付给F,后面操作F就是对OpenDialog1.FileName操作。

Answer 2

Assigned(Edit1) then Edit1.Free; //判断Edit1是否为nil，否则释放