死灵法师赛季套装:delphi源代码分析

来源:百度文库 编辑:高校问答 时间:2024/05/12 16:00:29
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;