代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3550912
out testbogusdirectives.out
unit testbogusdirectives;
interface
uses Classes;
var
safecall, dispid: integer;
cdecl, protected: boolean;
const
ReadOnly = 10;
type
Register = class(TObject)
private
www.eeworm.com/read/320003/3550913
out testasmand.out
unit testasmand;
interface
uses SysUtils;
type
tmaclass = class(TObject)
champ1: integer;
procedure faitqqchose(x, y, dx, dy: integer); virtual;
end;
implementation
proc
www.eeworm.com/read/320003/3550914
out testdefaultparams.out
unit testdefaultparams;
interface
function def1(const pival: integer = 42): boolean;
function def2(bv: boolean = False; const pival: integer = 42): boolean;
function def3(bv: boolean = False;
www.eeworm.com/read/320003/3550916
out testdprnobegin.out
{$R RefSync.TLB}library refsync;
uses
uorabaseproductenv in '..\..\CSComp\ProductEnv\uOraBaseProductEnv.pas',
SysUtils,
Classes,
comserv,
preparent in '..\..\CSComp\ParentPackage\Pre
www.eeworm.com/read/320003/3550919
out testasm.out
unit testasm;
interface
procedure procasm1;
procedure procasm2;
procedure procasm3;
implementation
uses Dialogs;
procedure procasm1;
var
li1, li2: integer;
lb: boolean;
begin
www.eeworm.com/read/320003/3550923
out testwarnings.out
unit testwarnings;
interface
type
twhatever = class
public
function memberfoo: integer;
function memberbar: integer;
procedure emptymember;
end;
implementation
uses
www.eeworm.com/read/320003/3550926
out testexternal.out
unit testexternal;
interface
uses Windows;
procedure fred; cdecl;
procedure floattodecimal(var Result: integer; const Value; valuetype: integer; precision, decimals: integer); external;
fun
www.eeworm.com/read/320003/3550927
out testrecords.out
unit testrecords;
interface
type
tonelinerec = record
s1, s2: string;
fifred: integer;
end;
tleftrec = record
f1: integer;
f2: string;
f3: double;
end;
www.eeworm.com/read/320003/3550929
out testpointers.out
unit testpointers;
interface
type
tfred = record
fi1: integer;
fc2: currency;
ganzfeld: string;
end;
ptfred = ^tfred;
pptfred = ^ptfred;
procedure stuff;
www.eeworm.com/read/320003/3550930
out testinitfinal.out
unit testinitfinal;
interface
var
someglobalseed: integer;
fred: TObject;
implementation
uses Classes, SysUtils;
function randomint: integer;
begin
Result := random(1000);
en