UC知道delphi源代码分析
来源：百度知道 编辑：UC知道 时间：2024/05/13 19:25:50
procedure TForm1.FormCreate(Sender:TObject);
begin
with Query1 do;
begin
Close;
SQL.Clear; //清空SQL语句
SQL.Add('select*form cj');
Open;
end;
end;
begin
with Query1 do;
begin
Close;
SQL.Clear; //清空SQL语句
SQL.Add('select*form cj');
Open;
end;
end;
没什么错误,把do后边的分号去掉就可以了
procedure TForm1.FormCreate(Sender:TObject);
begin
with Query1 do
begin
Close;
SQL.Clear; //清空SQL语句
SQL.Add('select*form cj');
Open;
end;
end;