代码搜索：OUT
找到约 10,000 项符合「OUT」的源代码
代码结果 10,000
www.eeworm.com/read/320003/3551150
out testcases.out
program testcases;
uses
Forms,
emptytest1 in 'EmptyTest1.pas',
fformtest in 'fFormTest.pas' {FormTest},
littletest1 in 'LittleTest1.pas',
littletest2 in 'LittleTest2.pas',
littlet
www.eeworm.com/read/320003/3551154
out testdelphinetampersandmethod.out
unit testdelphinetampersandmethod;
interface
type
tclass1 = class
private
emptyvalue: system.&object;
public
function testfile: boolean;
constructor Create;
end;
va
www.eeworm.com/read/320003/3551160
out testuseschanges.out
unit testuseschanges;
interface
uses SysUtils, ComCtrls, Classes, Windows, fred, jim, bob;
implementation
uses peter, paul, ralph;
end.
www.eeworm.com/read/320003/3551161
out testforin.out
unit testforin;
interface
implementation
type
tstringarray = array of string;
procedure demo1(const list: tstringarray);
var
s: string;
begin
for s in list do
writeln(s);
www.eeworm.com/read/320003/3551162
out testvarparam.out
unit testvarparam;
interface
implementation
procedure mangledata(var Data);
begin
end;
procedure callmangledata;
var
foo: string;
bar: PChar;
begin
foo := 'hello';
mangleda
www.eeworm.com/read/320003/3551165
out testemptysquarebrackets.out
unit testemptysquarebrackets;
interface
type
tmonkey = (gibbon, baboon, vervet, mandril);
tbarrelofmonkeys = set of tmonkey;
const
tfoo: tbarrelofmonkeys = [];
implementation
e
www.eeworm.com/read/320003/3551166
out testdelphinetkeywords.out
unit testdelphinetkeywords;
interface
implementation
procedure delphinetkeywordabuse;
var
operator: integer;
helper: string;
sealed, static: char;
begin
operator := 12;
sea
www.eeworm.com/read/320003/3551167
out testcharliterals.out
unit testcharliterals;
interface
implementation
uses Dialogs;
procedure chars;
const
fred = #80;
linebreak = #13#10;
somechars = #78#79#80;
hexchars = #$12#$2E#60;
dq
www.eeworm.com/read/320003/3551168
out testgenericoperatoris.out
program testgenericoperatoris;{$APPTYPE CONSOLE}
uses
SysUtils,
Classes;
type
maclasse = class
unchamp: t;
procedure test;
procedure test2;
procedure test3
www.eeworm.com/read/320003/3551171
out testconstrecords.out
unit testconstrecords;
interface
type
tmap = record
s1: string;
i1: integer;
i2: integer;
end;
type
fiveints = array[0..4] of integer;
const
c_foo = 1 + 1;
c