代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3550800
out testunitlibrary.out
unit testunitlibrary library;
interface
implementation
end.
www.eeworm.com/read/320003/3550804
out testoleparams.out
unit testoleparams;
interface
implementation
uses comobj;
procedure wordup;
var
msword: variant;
begin
msword := createoleobject('Word.Basic');
msword.appshow;
msword.filenew
www.eeworm.com/read/320003/3550805
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/3550807
out testtypedefs.out
unit testtypedefs;
interface
uses Classes;
type
tfred = integer;
tjim1 = record
i1: integer;
s1: string;
end;
tbob = interface;
tbobdisp = dispinterface;
tma
www.eeworm.com/read/320003/3550808
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/3550809
out testclassvarempty.out
unit testclassvarempty;
interface
type
tmyclass1 = class(TObject)
private
class var
protected
procedure someprotectedmethod;
end;
type
tmyclass2 = class(TObject)
p
www.eeworm.com/read/320003/3550812
out testrunonconst.out
unit testrunonconst;
interface
type
tfnorftype = (efnord1, efnord2, etheotherfnord);
tfnordrecord = record
sword: string;
efnordtype: tfnorftype;
btheother: boolean;
www.eeworm.com/read/320003/3550813
out testgenerictypenullable.out
program testgenerictypenullable;{$APPTYPE CONSOLE}
uses
SysUtils;
type
ttestnullable = class
procedure inverser(arg: system.nullable; valeur: system.nullable);
end;
www.eeworm.com/read/320003/3550814
out testunitplatform.out
unit testunitplatform platform;
interface
implementation
end.
www.eeworm.com/read/320003/3550815
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