代码搜索：FastScript
找到约 496 项符合「FastScript」的源代码
代码结果 496
www.eeworm.com/read/414908/11095979
dpk dclfstee7.dpk
// Package file for Delphi 7
package dclfsTee7;
{$R 'fs_ireg.dcr'}
{$DESCRIPTION 'FastScript 1.9 Tee Components'}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IM
www.eeworm.com/read/414908/11096133
dpk dclfsdb9.dpk
// Package file for Delphi 2005
package dclfsDB9;
{$R 'fs_ireg.dcr'}
{$DESCRIPTION 'FastScript 1.9 DB Components'}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$I
www.eeworm.com/read/414908/11096134
dpk dclfsibx5.dpk
// Package file for Delphi 5
package dclfsIBX5;
{$R 'fs_ireg.dcr'}
{$DESCRIPTION 'FastScript 1.9 IBX Components'}
{$ALIGN ON}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$EXTENDEDSYNTAX ON}
{$IM
www.eeworm.com/read/338159/3320072
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/338159/3320079
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/338159/3320077
vb localvar.vb
' FastScript v1.0
' Local variables demo
dim i
sub OK(i)
ShowMessage(i)
i = 11
end sub
i = 10
if i = 10 then OK(1)
OK(i)
www.eeworm.com/read/338159/3320083
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
www.eeworm.com/read/108103/6186032
vb forms.vb
' FastScript v1.0
' Forms demo
dim f, b
sub ButtonClick(Sender)
ShowMessage(Sender.Name)
f.ModalResult = mrOk
end sub
sub ButtonMouseMove(Sender)
b.Cap
www.eeworm.com/read/108103/6186042
vb with.vb
' FastScript v1.0
' With operator demo
dim f, b
sub ButtonClick(Sender)
ShowMessage(Sender.Name)
f.ModalResult = mrOk
end sub
sub ButtonMouseMove(Sender)
b.Cap
www.eeworm.com/read/338159/3320068
vb doloop.vb
' FastScript v1.0
' 'do-loop' operator demo
dim i, j
j = 1
i = 0
do
j = j + 1
Inc(i)
loop while i 10
ShowMessage(j)