韩国什么酒店便宜又好:delphi源代码分析

来源:百度文库 编辑:高考问答 时间:2024/05/09 09:10:58
procedure TForm1.FormCreate(Sender:TObject);
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;