代码搜索：FastScript
找到约 496 项符合「FastScript」的源代码
代码结果 496
www.eeworm.com/read/108103/6186036
vb is.vb
' FastScript v1.0
' 'is' operator demo
dim o, p
o = new TObject
p = new TPersistent
if o is TObject then
ShowMessage("o is TObject")
end if
if p is TObject
www.eeworm.com/read/108103/6186061
pas is.pas
{**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************}
var
o: TObject;
p: TPersistent;
begin
o := TObject.Create;
p := T
www.eeworm.com/read/108103/6186017
js for.js
//****************************/
//* FastScript v1.0 */
//* 'For' operator demo */
//****************************/
for(var i = 0; i < 10; i++)
if(i == 1) ShowMessage(1);
www.eeworm.com/read/108103/6186025
vb for.vb
' FastScript v1.0
' 'For' operator demo
dim i
for i = 0 to 9
if i = 1 then
ShowMessage(1)
elseif i = 2 then
ShowMessage(2)
elseif i = 3 then
www.eeworm.com/read/108103/6185990
cpp is.cpp
/**************************}
{ FastScript v1.0 }
{ 'is' operator demo }
{**************************/
{
TObject o = new TObject;
TPersistent p = new TPersistent;
if (o is
www.eeworm.com/read/108103/6186008
js if.js
//****************************/
//* FastScript v1.0 */
//* 'If' operator demo */
//****************************/
var i = 10;
if(i == 10) { i = 1; }
if (i == 1) ShowMes
www.eeworm.com/read/108103/6186015
js is.js
//**************************}
//{ FastScript v1.0 }
//{ 'is' operator demo }
//{**************************/
var o = new TObject;
var p = new TPersistent;
if (o is TObjec
www.eeworm.com/read/108103/6186024
vb array.vb
'**************************
' FastScript v1.0
' Arrays demo
'**************************
dim i, j
dim ar[10]
dim s
for i = 0 to 9
ar[i] = IntToStr(i)
next
s =
www.eeworm.com/read/108103/6186037
vb if.vb
' FastScript v1.0
' 'If' operator demo
dim i
i = 10
if i = 10 then i = 1
if i = 1 then
ShowMessage(1)
elseif i = 2 then
ShowMessage(2)
elseif i =
www.eeworm.com/read/108103/6186063
pas for.pas
{**************************}
{ FastScript v1.0 }
{ 'For' operator demo }
{**************************}
var
i: Integer;
procedure OK(n: Integer);
begin
ShowMessage(n);
end