代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3551175
out testasmstructs.out
unit testasmstructs;
interface
implementation
uses activex;
const
atvarmask = $3F;
attypemask = $7F;
atbyref = $80;
procedure foo(calldesc: pcalldesc; namedargdispids, Resu
www.eeworm.com/read/320003/3551189
out testlocaltypes.out
unit testlocaltypes;
interface
implementation
uses Dialogs;
procedure fred;
type
tfred = integer;
const
fred = 'hello wold';
var
li: tfred;
begin
ShowMessage('Fred was here
www.eeworm.com/read/320003/3551195
out testpropertylines.out
unit testpropertylines;
interface
type
tterse = class(TObject)
private
fix1: integer;
fix6: integer;
fix5: integer;
fix8: integer;
fix2: integer;
fix3:
www.eeworm.com/read/320003/3551203
out testdelphinetsealedclass.out
unit testdelphinetsealedclass;
interface
uses SysUtils;
type
tmaclass = class(TObject)
champ1: integer;
procedure faitqqchose; virtual;
end;
tsealedclass = class sealed(T
www.eeworm.com/read/320003/3551204
out testesoterickeywords.out
unit testesoterickeywords;
interface
var
fred, vodka: integer;
var
jim2: integer;
threadvar
jim: real;
var
ey: integer;
threadvar
i: integer;
broom: boolean;
www.eeworm.com/read/320003/3551208
out testwith.out
unit testwith;
interface
type
trecordone = record
foo: integer;
bar: string;
end;
trecordtwo = record
baz: integer;
fish: string;
wibble: trecordone;
www.eeworm.com/read/320003/3551212
out testnestedrecords.out
unit testnestedrecords;
interface
type
trsomerecord = record
fifoo: integer;
fsbar: string;
end;
var
fooble: record
fifoo: integer;
fsbar: trsomerecord;
end;
www.eeworm.com/read/320003/3551216
out testlayoutbare.out
unit testlayoutbare;
interface
implementation
function nastyelse(var foo, bar: boolean): integer;
begin
if foo then
Result := -1
else;
end;
function nastyelse2(var foo, bar: b
www.eeworm.com/read/320003/3551217
out testconstbug.out
unit testconstbug;
interface
implementation
procedure a(pb, pc: integer);
begin
end;
var
b, c: integer;
const
effrandlinks = 28;
effrandoben = 15;
effrandunten = effrandob
www.eeworm.com/read/320003/3551230
out testparamspaces.out
unit testparamspaces;
interface
implementation
procedure simpleparams(a: integer; b: string);
begin
end;
procedure paramlists(a, a2, a3: integer; b1, b2, b3: string);
begin
end;
pro