摘要： 有的时候，我们需要对每一个cxgrid数据显示组件上都 有一个'另存'的字段来执行导出操作。 下面的则是主要代码：var n: integer; //此为局变量。 procedure TForm1.FormCreate(Sender: TObject);var I: Integer; p: Tpanel;begin for i := 0 to Self.ComponentCount -1 do if Self.Components[i] is Tcxgrid then begin p := TPanel.Create(nil); p.Parent := TcxGrid(Self 阅读全文

摘要： delphi的format用法： 一般来说这样写比较些，变量和赋值一目了然。with adoquery dobegin close; SQL.clear; SQL.text := Format('select * from table where A=''%S'' and B =%d',[valueA, valueB]);end;-- 一般来说，%s对应的是字符串，%d对应的则是数字，还有一些别的%6.3f等等。 阅读全文