littletest9.out

来自「格式化源码的最新板」· OUT 代码 · 共 19 行

unit littletest9;

interface

procedure something;

implementation

uses DB, DBTables;

procedure something;
var
  qry: tquery;
begin
  qry.FieldByName('line').AsInteger := 1;
end;

end.