请问Assign是什么属性怎么应用的呢。

Question

请问Assing这个属性有哪些应用。它是怎么一个属性呢。

Answer 1

有这个属性吗 ？
还是问Assign呢 ？

Answer 2

呵呵，是Assign哈。我它们操作Tstringlist，和很多控制的。麻烦举些例子看看。

Answer 3

Assign把目标对象赋值给当前对象

Answer 4

memo2.Assign(memo1)这样子就不行了哦。非得memo2.lines.Assign(memo1.lines).这样才能复制memo1的内容到memo2.还有就是你们怎么看到我这么菜鸟提的问哦。我还要找下子怎么给你们加分呢。呵呵

Answer 5

//Lines为TStrings的procedure TStrings.Assign(Source: TPersistent);
begin
  if Source is TStrings then
  begin
    BeginUpdate;
    try
      Clear;
      FDefined := TStrings(Source).FDefined;
      FNameValueSeparator := TStrings(Source).FNameValueSeparator;
      FQuoteChar := TStrings(Source).FQuoteChar;
      FDelimiter := TStrings(Source).FDelimiter;
      AddStrings(TStrings(Source));
    finally
      EndUpdate;
    end;
    Exit;
  end;
  inherited Assign(Source);
end;

Answer 6

eg1:
procedure TMainInfo.RzGroup2Items0Click(Sender: TObject);
begin
  if not Assigned(SzmxInfo_Frm) then
  SzmxInfo_Frm:=TSzmxInfo_Frm.Create(Self);
  SzmxInfo_Frm.Parent:=MainInfo.main_pnl;
  SzmxInfo_Frm.Align:=alClient;
  SzmxInfo_Frm.BorderIcons:=[];
  SzmxInfo_Frm.Show;
end;eg2:
procedure TMainInfo.RzGroup3Items0Click(Sender: TObject);
begin
  if not Assigned(SzmxInfo_Frm) then
    //SzmxInfo_Frm:=TSzmxInfo_Frm.Create(Self)
    MessageDlg('沒有報表可以預覽!'+#13#13+'請打開收支明細管理界面再進行報表預覽!!!',mtInformation,[mbOK],0)
    else
    SzmxInfo_Frm.OuttoReport;
end;