呵呵,怎么不行呢,语法上是没问题的呀! With 结构体变量名或对象或类名 do begin 结构体变量名或对象或类的成员 end;如 With Query do begin close; DatabaseName := 'OraKFXT'; Sql.Text := 'Select * from Users'; Open; end;with是要以嵌套的,嵌套时各成员属最近的With
呵呵,打错了,我是说可以嵌套! 如, With Query do begin close; DatabaseName := 'OraKFXT'; with Sql do begin clear; add('Select * from Users'); end; Open; end;
With 结构体变量名或对象或类名 do
begin
结构体变量名或对象或类的成员
end;如
With Query do
begin
close;
DatabaseName := 'OraKFXT';
Sql.Text := 'Select * from Users';
Open;
end;with是要以嵌套的,嵌套时各成员属最近的With
如,
With Query do
begin
close;
DatabaseName := 'OraKFXT';
with Sql do
begin
clear;
add('Select * from Users');
end;
Open;
end;