代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3550854
out testmarcov.out
unit testmarcov;
interface
var
bigs, storesc, searchdepth, mcount, rrate, hyva, huonoja, viimeksi, wmat, bmat,
bonus, movesmade, posvalue: integer;
kpos, positions, pos2: longint;
www.eeworm.com/read/320003/3550855
out testasmops.out
unit testasmops;
interface
uses Windows;
implementation
function asmsqrt(f: single): single; assembler;
asm
FLD f;
FSQRT;
FSTP result;
end;
proced
www.eeworm.com/read/320003/3550856
out testdelphinetrecordprocs.out
unit testdelphinetrecordprocs;
interface
type
tsomerecord = record
i, j, k, l: integer;
function sum: integer;
procedure Clear;
constructor Create(ivalue: integer);
end
www.eeworm.com/read/320003/3550859
out testtryexceptraise.out
unit testtryexceptraise;
interface
implementation
uses SysUtils;
procedure bar;
begin
end;
procedure signalerror;
begin
end;
procedure foo;
begin
try
bar;
except
www.eeworm.com/read/320003/3550861
out testasmcaps.out
unit testasmcaps;
interface
implementation
var
_netgroupdel: pointer;
procedure getprocedureaddress(var p: pointer; const modulename, procname: string);
begin
end;
procedure netgro
www.eeworm.com/read/320003/3550868
out testuses.out
unit testuses;
interface
uses SysUtils, ComCtrls, Classes, Windows;
implementation
uses
activex, testclasslines, testcast;
end.
www.eeworm.com/read/320003/3550869
out testinterfaces.out
unit testinterfaces;
interface
uses Classes;
type
imyiterator = interface(IUnknown)
procedure First; safecall;
procedure Next; safecall;
end;
ientryjournallookupdisp = di
www.eeworm.com/read/320003/3550872
out testdelphinetrecordforward.out
unit testdelphinetrecordforward;
interface
type
trecord1 = record;
trecord2 = record;
trecord3 = record;
trecord1 = record
foo: integer;
bar: string;
fish: double;
www.eeworm.com/read/320003/3550873
out testreturns.out
unit testreturns;
interface
implementation
uses Dialogs;
procedure returnbeforethen;
var
i: integer;
begin
i := random(20);
if i < 5 then
begin
ShowMessage('Fred');
e
www.eeworm.com/read/320003/3550875
out testinterfaceimplements.out
unit testinterfaceimplements;
interface
type
imyinterface = interface
procedure p1;
procedure p2;
end;
tmyclass = class(TObject, IMyInterface)
fmyinterface: imyinterfac