癫狂编程

摘要： //增 procedure TForm1.btnAddClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from AZZ where 排名=(''' + Edit1.Text + ''')'); ADOQuery1.Open... 阅读全文

摘要： 最近写delphi项目，用到的数据集中的dataset，一直修改exception啊，写下过程。 在对数据集进行任何操作之前，首先要打开数据集。要打开数据集，可以把Active属性设为True，例如： CustTable.Active := True; 也可以调用Open函数，例如：CustQuer 阅读全文

摘要： {现在这个函数并没有 var 前缀, 也就是说参数应该不会被修改的} function MyFun(p: PInteger): Integer; {PInteger 是 Integer 的指针类型}begin p^ := p^ * 2; Result := p^;end; 阅读全文