代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3551090
out testtrailingcommaparam.out
unit testtrailingcommaparam;
interface
uses Windows, Messages, SysUtils, variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, StdCtrls;
type
tform1 = class(TForm)
button1:
www.eeworm.com/read/320003/3551091
out testemptycase.out
unit testemptycase;
interface
implementation
procedure monkey(const pi: integer);
const
krukolibidinous = 12;
begin
case pi of
1: ;
2: ;
3: ;
krukolibidinous:
www.eeworm.com/read/320003/3551094
out testdllindex.out
unit testdllindex;
interface
uses Windows;
function spaces(n: cardinal): string;
function restartdialog(wnd: hwnd; reason: PChar; flags: integer): integer;
stdcall; external 'shell32.dll'
www.eeworm.com/read/320003/3551097
out testreturnremoval.out
unit testreturnremoval;
interface
implementation
procedure paramswithtomanyreturns(a, b, c: integer; d: string; e, f, g: double);
begin
end;
procedure varswithtoomanyreturns;
var
a,
www.eeworm.com/read/320003/3551100
out testtpobjects.out
unit testtpobjects;
interface
type
tfoo = object
end;
tbar = object
private
protected
public
end;
tbaz = object li1: integer;
private
li2: integer;
protect
www.eeworm.com/read/320003/3551101
out testgenericinheritance.out
program testgenericinheritahnce;{$APPTYPE CONSOLE}
uses
SysUtils;
type
ttest = class
fdata: integer;
end;
ttest = class
fdata: i;
end;
ttest = class
www.eeworm.com/read/320003/3551106
out testgenericclasshelper.out
program testgenericclasshelper;{$APPTYPE CONSOLE}
uses
SysUtils;
type
tgenerique = class
champ: t
end;
tgeneriqueint = tgenerique;
thelpergeneriqueint = class h
www.eeworm.com/read/320003/3551109
out testdelphinethelperclass.out
unit testdelphinethelperclass;
interface
type
tmyclass = class
public
procedure hellomyclass;
end;
tmyclasshelper = class helper for tmyclass
public
procedure hellomyc
www.eeworm.com/read/320003/3551110
out testgenerics.out
unit testgenerics;
interface
uses SysUtils;
type
tgenerictype = class
fdata: anytype;
function getdata: anytype;
procedure setdata(Value: anytype);
property Da
www.eeworm.com/read/320003/3551111
out testgenericconstraintconstructor.out
program testgenericconstraintconstructor;{$APPTYPE CONSOLE}
uses
SysUtils;
type
tgenericsansconstructeur = class
strict private
fdata: t;
constructor Create;
public