代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3550963
out testampersand.out
unit testampersand;
interface
implementation
function tester(foo: integer): integer;
begin
Result := foo + 3;
end;
procedure hiddenproc;
var
Width: integer;
begin
Width := &te
www.eeworm.com/read/320003/3550967
out testdelphinetuses.out
unit testdelphinetuses;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, system.Text, system.componentmodel;
const
effrandli
www.eeworm.com/read/320003/3550968
out testpackedobject.out
unit testpackedobject;
interface
type
tpackedobject = packed object
end;
implementation
end.
www.eeworm.com/read/320003/3550969
out testdelphinetclassvar.out
unit testdelphinetclassvar;
interface
type
teomreport = class(TObject)
private
var
rtop20clrefer, rpstoftotalcr, rtop20sl, rpstoftotalsl, rtop20ca, rpstoftotalca: real;
proc
www.eeworm.com/read/320003/3550972
out testderef.out
unit testderef;
interface
implementation
uses Classes;
type
tamoeba = class;
ptamoeba = ^tamoeba;
tamoeba = class(TObject)
private
fsname: string;
function getname
www.eeworm.com/read/320003/3550973
out testnested.out
unit testnested;
interface
implementation
uses SysUtils;
function fred: string;
begin
Result := IntToStr(random(20));
end;
function fred2: string;
function getarandomnumber:
www.eeworm.com/read/320003/3550974
out testdelphinetrecordclassvars.out
unit testdelphinetrecordclassvars;
interface
uses SysUtils, Math;
type
tafish = record
class var astring: string;
private
class var scratch: double;
public
class opera
www.eeworm.com/read/320003/3550976
out testlabelkeyword.out
unit testlabelkeyword;
interface
uses system.Windows.Forms;
type
ttest = class(TObject)
strict private
lblinfo: system.Windows.Forms.label;
end;
implementation
end.
www.eeworm.com/read/320003/3550979
out testsubrangetype.out
unit testsubrangetype;
interface
const
numberofregisters = 10;
numberofpowerfailurechannels = 1;
type
tmychannels = 1..numberofregisters + numberofpowerfailurechannels;
tmyregiste
www.eeworm.com/read/320003/3550982
out testgenericfunctions.out
program testgenericfunctions;{$APPTYPE CONSOLE}
uses
SysUtils;
type
tproceduregenerique = procedure(param1: a);
tprocobjetgenerique = procedure(x, y: b) of object;
tfonctiongen