代码搜索：FastScript
找到约 496 项符合「FastScript」的源代码
代码结果 496
www.eeworm.com/read/108103/6186010
js file.js
//**************************}
//{ FastScript v1.0 }
//{ Files demo }
//{**************************/
var fs = new TFileStream("test.txt", fmCreate);
var s = "Testi
www.eeworm.com/read/108103/6186013
js localvar.js
/****************************/
/* FastScript v1.0 */
/* Local variables demo */
/****************************/
var i;
function OK(i)
{
ShowMessage(i);
i = 11;
}
i
www.eeworm.com/read/108103/6186014
js case.js
//****************************/
//* FastScript v1.0 */
//* 'Case' operator demo */
//****************************/
var i, j;
i = 0;
switch (i)
{
case 1: j = 1;
www.eeworm.com/read/108103/6186016
js bmp.js
//**************************}
//{ FastScript v1.0 }
//{ Bitmap demo }
//{**************************/
function MakePattern(b)
{
for (var i = 0; i < b.Width; i++)
f
www.eeworm.com/read/108103/6186023
js forms1.js
//**************************}
//{ FastScript v1.0 }
//{ Forms demo 1 }
//{**************************/
// Form1 is predefined object
// - the main form of this application
www.eeworm.com/read/108103/6186029
vb file.vb
' FastScript v1.0
' Files demo
dim fs, s
fs = new TFileStream("test.txt", fmCreate)
s = "Testing file..."
fs.Write(s, Length(s))
fs.Write(#13#10, 2)
s
www.eeworm.com/read/108103/6186030
vb while.vb
' FastScript v1.0
' While operator demo
dim i, j
j = 1
i = 0
while i < 10
j = j + 1
Inc(i)
wend
ShowMessage(j)
www.eeworm.com/read/108103/6186031
vb bmp.vb
'**************************
' FastScript v1.0
' Bitmap demo
'**************************
sub MakePattern(b)
dim i, j
for i = 0 to b.Width - 1
for j = 0 to b.Hei
www.eeworm.com/read/108103/6186033
vb case.vb
' FastScript v1.0
' 'Case' operator demo
dim i = 0, j
select case i
case 1: j = 1
case 2..10: j = 2: Inc(j)
case else: j = 10
end select
ShowMessage(j)
www.eeworm.com/read/108103/6186041
vb forms1.vb
' FastScript v1.0
' Forms demo 1
' Form1 is predefined object
' - the main form of this application
Form1.Caption = "It works!"
Form1.Font.Style = fsBold + fsIta