littletest9.out

格式化源码的最新板

unit LittleTest9;

{ This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 unit that caused a parse failure in 2.0 b3 }

interface

procedure SomeThing;

implementation

uses
  DB, DBTables;

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

end.