代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3551247
out testunitlibrary.out
unit TestUnitLibrary library;
{ AFS
This unit compiles but is not semantically meaningfull
it is test cases for the code formatting utility
}
interface
implementation
end.
www.eeworm.com/read/320003/3551248
out testoleparams.out
unit TestOleParams;
{ AFS 11 July 2003
This unit compiles but is not semantically meaningfull
it is test cases for the code formatting utility
}
interface
implementation
uses ComObj;
www.eeworm.com/read/320003/3551249
out testaddbeginend.out
unit TestAddBeginEnd;
interface
implementation
procedure TestIf;
var
Str1: string;
bFoo: boolean;
iFish: integer;
begin
if bFoo then
Str1 := '';
if bFoo then
begi
www.eeworm.com/read/320003/3551250
out testtypedefs.out
unit TestTypeDefs;
{ AFS 16 Jan 2000
This unit compiles but is not semantically meaningfull
it is test cases for the code formatting utility
This unit test type declarations, including re
www.eeworm.com/read/320003/3551251
out testprocblanklines.out
unit TestProcBlankLines;
interface
implementation
procedure Foo;
function Bar: boolean;
begin
Result := False;
end;
begin
begin
end;
end;
procedure Fish;
begin
www.eeworm.com/read/320003/3551252
out testclassvarempty.out
unit TestClassVarEmpty;
{ AFS May 2008
This unit compiles but is not semantically meaningfull
it is test cases for the code formatting utility
This unit tests empty class var sections
as
www.eeworm.com/read/320003/3551255
out testrunonconst.out
unit TestRunOnConst;
{ AFS 4 April 2k
This unit compiles but is not semantically meaningfull
it is test cases for the code formatting utility
line breaking of record consts
test
www.eeworm.com/read/320003/3551256
out testgenerictypenullable.out
program TestGenericTypeNullable;
{
Test code from Trident for generics
}
{$APPTYPE CONSOLE}
uses
SysUtils;
type
// System.Nullable est une structure
// public struct Nullable
www.eeworm.com/read/320003/3551257
out testunitplatform.out
unit TestUnitPlatform platform;
interface
implementation
end.
www.eeworm.com/read/320003/3551258
out testendelse.out
unit TestEndElse;
interface
implementation
var
a, b: integer;
procedure foo;
begin
if (a > b) then
begin
end
else
begin
end;
end;
procedure foo2;
begin
if (a