with Series1, HeapStatus do//为什么这里有两个东西Series1, HeapStatus

Question

with Series1, HeapStatus do//为什么这里有两个东西Series1, HeapStatus//等价与什么
  begin    Add(TotalCommitted, 'Total Committed', clTeeColor);
    Add(TotalAllocated, 'Total Allocated', clTeeColor);
    Add(TotalFree, 'Total Free', clTeeColor);
    Add(FreeSmall, 'Free Small', clTeeColor);
    Add(FreeBig, 'Free Big', clTeeColor);
    Add(Unused, 'Unused', clTeeColor);
    Add(Overhead, 'Overhead', clTeeColor);

Answer 1

//with .. do //开域语句～～
//这种语句是pascal特有的～～procedure TForm1.Button1Click(Sender: TObject);
begin
  with Edit1 do Text := '相当于Edit1.Text';
  with Edit2, Edit3 do Text := '相当于Edit3.Text';
  with Memo1, Edit4 do begin
    Lines.Text := '相当于Memo1.Lines.Text';
    Text := '相当于Edit4.Text';
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  with TForm.Create(nil) do try
    Caption := '理解这段代码，你将理解世界～～';
    ShowModal;
  finally
    Free;
  end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  //这两句话是没有区别的
  Dialogs.ShowMessage(Self.Caption);
  ShowMessage(Caption);
end;//with就是把变量的区域给开放出来
//自己多做做测试，多多思考～～
//伴水能想明白～～难道你会想不明白？～～嘻嘻嘻　不好好看书～～怎么能知道～～　嘻嘻嘻嘻