在delphi中 with ...to 是什么意思

给你个demo看看你就知道with do是干什么用的了。

使用with do的：
with OrderDate do
if Month = 12 then
begin
Month := 1;
Year := Year + 1;
end
else
Month := Month + 1;

不使用with do的：
if OrderDate.Month = 12 then
begin
OrderDate.Month := 1;
OrderDate.Year := OrderDate.Year + 1;
end
else
OrderDate.Month := OrderDate.Month + 1;

使用with do的省略了OrderDate。