代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3551028
out testoperators.out
unit testoperators;
interface
implementation
function __somenumber: integer;
begin
Result := random(30);
end;
procedure integerarithmetic;
var
lia, lib, lic: integer;
begin
li
www.eeworm.com/read/320003/3551033
out testgenericmethod.out
program testgenericmethod;{$APPTYPE CONSOLE}
uses
SysUtils;
type
tgenerictype = class
fdata: anytype;
function getdata: anytype;
procedure unemethodegenerique
www.eeworm.com/read/320003/3551036
out testclassmethods.out
unit testclassmethods;
interface
type
tfooform = class
private
class var fish: integer;
class function getwibble: integer; static;
public
class function foo: boolean;
www.eeworm.com/read/320003/3551040
out testgenericoperatoras.out
program testgenericoperatoras;{$APPTYPE CONSOLE}
uses
SysUtils;
type
maclasse = class
function contraint(avalue: TObject): x;
function noncontraint(avalue: TObj
www.eeworm.com/read/320003/3551043
out testcaseblock.out
unit testcaseblock;
interface
implementation
uses SysUtils, Controls, Math;
procedure fromborlandsstyleguide;
const
csstart = 1;
csbegin = 2;
cstimeout = 3;
csfoo = 12
www.eeworm.com/read/320003/3551047
out testinline.out
unit testinline;
interface
implementation
procedure fillword(var dest; Count: word; Data: word);
begin
inline($C4 / e / < dest / b / e / < count / b $FC / $F3 / $AB);
end;
end.
www.eeworm.com/read/320003/3551048
out testdelphinetoperatoroverload.out
unit testdelphinetoperatoroverload;
interface
type
tmyclass = class
private
fdata: integer;
public
class operator add(a, b: tmyclass): tmyclass;
class operator implicit(a
www.eeworm.com/read/320003/3551051
out testexclusionflags.out
unit testexclusionflags;
interface
implementation
procedure testspace;
var
a: integer;
begin
a := 3; //jcf:space=off
a :=a+1;//jcf:space=on
end;
procedure testindent;//jcf:inde
www.eeworm.com/read/320003/3551054
out testautomated.out
unit testautomated;
interface
type
tpublicandautomated = class
public
function publicmethod: boolean;
automated
function auomatedmethod: wordbool; dispid 1;
end;
tauto
www.eeworm.com/read/320003/3551055
out testrunondef.out
unit testrunondef;
interface
type
thaslongprocs = class
public
procedure dosomething(var pialongparamter: integer; pbanotherparamter: boolean; pmmorebettermoney: currency);
funct