**RefCPInfo**
ԭͣSetObj('','RefCPInfo=Ʊ,,,Ͷע,ر,رǷͶע,,Ͷע,Ƿ');
˵òƱϢ
עǷͣ:1  :0
	ָ롱Ϊʷݣο-ƱӮҡĲƱã
һ{塰36ѡ7Ʊ}
SetObj('','RefCPInfo=36ѡ7,1,36,7,1,0,0,0,0');
GetName;{õƱ}
{塰˫ɫ򡱲Ʊ}
SetObj('','RefCPInfo=˫ɫ,2,33,6,1,0,16,1,0');
NumCountB;{õ}
1
{塰3DƱ}
SetObj('','RefCPInfo=3D,3,10,3,0,0,0,0,1');
NumHigh;{Ʊ}
9
ģ{塰36ѡ7Ʊ}
SetObj('','RefCPInfo=,11,36,1,1,0,0,0,0');
TBHtoTZH;{رǷͶע}
1
**RefCPData**
ԭͣSetObj('','RefCPData='+g.Ʊָ);
˵òƱ
עƱָݽṹ
  	w:array[0..9] of byte;{ÿռһֽڣ10}
  	issue:integer;{ں,ռ4ֽڵֵ}
һ{ۺ}
	{塰3DƱ}
	SetObj('','RefCPInfo=3D,3,10,3,0,0,0,0,1');

	Ʊݸ:=1;
	ƱṹС:=tof(GetObj('','RefDataSize'));
	sں:='2009180';
	Ʊָ:='';
	{ںȫֱҪӡg.пʡ}

	set(g.Ʊָ , GetMem( tos(g.ƱṹС*g.Ʊݸ) ) );{ڴƱָ}
        SetObj('','RefStockData='+g.Ʊָ);{òƱݣָƱݵڴλ}
        SetObj('','RefDataCount='+tos(g.Ʊݸ) );{ָƱݸ,ͬʱָһڵ}
	g.Ʊ:=g.Ʊݸ-1;
        SetObj('','RefDataIndex='+tos(g.Ʊ) );{0ʼ,=0ʱǵһڵ}

   	Ʊָƫ:=g.Ʊ*g.ƱṹС;
	{赱ǰΪ3DƱΪ0 3 5}
	SetMemValue(g.Ʊָ,tos(Ʊָƫ)     ,1,'0');{1λ}
	SetMemValue(g.Ʊָ,tos(Ʊָƫ+1)   ,1,'3');{2λ}
	SetMemValue(g.Ʊָ,tos(Ʊָƫ+2)   ,1,'5');
	SetMemValue(g.Ʊָ,tos(Ʊָƫ+10)  ,4,sں);

	s:=':'+GetName+'  ں:'+tos(Issue)+'  :'+AllNum;
	ShowMessage(s); {Իʾֵ}

	FreeMem(g.Ʊָ);{ͷ}
**Remove**
ԭͣRemove(Ҫųĺַ)
أ
˵Ͷע벻Ҫųĺʱ10
עкʱֻǰ
һRemove('1 10');{ѡʱѡ110ĺ}
**Contain**
ԭͣContain(Ҫĺַ)
أ
˵Ͷעַʱ10
ע  кʱֻǰ
	ÿÿոֿ 
һContain('1 10');{ѡ110ĺ}
Contain('1 2 3 4 5 6 7 8');{ʽѡ: 1 2 3 4 5 6 7 8}
{עҪĸڿʱͳ˸ʽѡ}
{ѡ1λ뺬110ĺ}
	In(Bit(1),'1 10');
**RemoveB**
ԭͣRemoveB(Ҫųĺַ)
أ
˵Ͷעĺ벻Ҫųĺʱ10
עûкʱ1 
һRemoveB('1 10');{ѡ110ĺ}
**ContainB**
ԭͣContainB(Ҫĺַ)
أ
˵Ͷעĺַʱ10
עÿÿոֿûкʱ1 
һContainB('1 10');{ѡ110ĺ}
ContainB('1 2 3 4 5 6 7 8');{ʽѡ: 1 2 3 4 5 6 7 8}
{עҪĸںʱͳ˸ʽѡ}
{ѡ1λ뺬110ĺ}
	In(BitB(1),'1 10');
**InCount**
ԭͣInCount(ַ,Ӻַ)
أ
˵Ӻַĺַеĸ
һInCount('1 2 3 4','1 2');
2
InCount('1 2','1 2 3 4');
2
InCount('1 1 2 3 4','1 2');
3 {1һ23}
ģInCount('1 2 3 4','1 1 2');
3
壺InCount('1 1 2','1 2 3 4');
3 {1һ2Ӻг} 
InCount('1 2','1 1 2 3 4');
2 {ᳬĸ}
ߣ{ѡ뺬34ĺ} InCount(AllNum,'3 4')>0;
ˣ{ѡ뺬34ĺ}
	InCount(AllNum,'3 4')>=2;
	{൱ Contain('3 4') }
ţ{ѡ뺬34ĺ룬ͬʱ34}
	i:=InCount(AllNum,'3 4');
	b:=(i>0 and i<2);{and}
ʮ{С1}
InCount( RangeStr(NumLow,AllCount/3) , AllNum )  
{	36ѡ7Ϊ,,
	衰С1ĺΪ112
	  С2ĺΪ1324
	  С3ĺΪ2536
	迪Ϊ1 2 3 4 5 6 13
	򿪽1-12ĸΪ7С1=7
	  С2=1С3=0
	עRangeStr(NumLow,AllCount/3)
	غַ1 2 3 4 5 6 7 8 9 10 11 12
	NumLowС1,AllCountͶע36
}
11{С2}
InCount( RangeStr(NumLow+(Round(AllCount/3)),AllCount/3) , AllNum );
{Round}
12{С3}
InCount( RangeStr(NumLow+(Round(AllCount/3)*2),NumHigh-(NumLow+(Round(AllCount/3)*2))+1) , AllNum);
	{дɣ
	i:=NumLow+(Round(AllCount/3)*2); 
	s:=RangeStr(i,NumHigh-i+1); 
	InCount( s , AllNum);
	}
{Ӻַĺһ㲻ظַһΪͶע}
{ĸһӺ}
{غContain()}
**Ƶ**
ԭͣInCount(hzHighNum(0,1,AllCount/3),AllNum)
أ
һ{Ƶ}
	InCount(hzHighNum(0,1,AllCount/3),AllNum);
{ƵĳΧ}
	Between( InCount(hzHighNum(0,1,AllCount/3),AllNum) , 1 , 3 ) ; {13֮}
**Ƶ**
ԭͣInCount(hzHighNum(0,AllCount/3+1,AllCount/3),AllNum)
أ
һInCount(hzHighNum(0,AllCount/3+1,AllCount/3),AllNum);
{ƵĳΧ}
	Between( InCount(hzHighNum(0,AllCount/3+1,AllCount/3),AllNum) , 1 , 3 ) ; {13֮}
**Ƶ**
ԭͣInCount(hzHighNum(0,AllCount/3*2+1,AllCount/3),AllNum)
أ
һInCount(hzHighNum(0,AllCount/3*2+1,AllCount/3),AllNum);
{ƵĳΧ}
	Between( InCount(hzHighNum(0,AllCount/3*2+1,AllCount/3),AllNum) , 1 , 3 ) ; {13֮}
****
ԭͣSumStr(IssueStr(50))
أ
˵ĺַĺ
ע˫IssueStrҵĸ
һ{}SumStr(IssueStr(50));
{1040֮}
	Between( SumStr(IssueStr(50)) , 10 , 40 ) ; 
{}
	SumStr(IssueStr(50)) / NumCount ;
ģ{ظڵĺ12֮}
	Between( InCount(IssueStr(1),'0') , 1 , 2 ) ;
	{ںΪ 1 2 3 4  5  6  7
	   ںΪ 1 2 8 9 10 11 12
	 ôظĺΪ 1 2 ظΪ2
	 ıʽ1()
	 ൱ Between( InCount(Refs(AllNum,1),AllNum) , 1 , 2 ) ;
	}
**λΧ**
ԭͣBetween(Bit(ĳλ),ʼ,)
أ
˵ĳλĺǷڿʼ֮
עǣ1,񣺷0
һ{ѡ1λĺ28֮Ͷע}
	Between(Bit(1),2,8);
{ѡ1λĺ2536֮Ͷע}
	Between(Bit(NumCount),25,36);
{ѡ1λ뺬110ĺ}
	In(Bit(1),'1 10');
**2**
ԭͣCountDiv(2)
أ
˵żĸ
עǣ1,񣺷0
һ{2(ż)}
	CountDiv(2);
{ѡż14֮Ͷע}
	Between(CountDiv(2),1,4);
	{ż}
	s:=tos(NumCount-CountDiv(2));
	s:=s+':';
	s:=s+tos(CountDiv(2));
**С1**
ԭͣInCount( RangeStr(NumLow,AllCount/3) , AllNum )  
أ
һ{С1}
InCount( RangeStr(NumLow,AllCount/3) , AllNum )  
{	36ѡ7Ϊ,,
	衰С1ĺΪ112
	  С2ĺΪ1324
	  С3ĺΪ2536
	迪Ϊ1 2 3 4 5 6 13
	򿪽1-12ĸΪ7С1=7
	  С2=1С3=0
	עRangeStr(NumLow,AllCount/3)
	غַ1 2 3 4 5 6 7 8 9 10 11 12
	NumLowС1,AllCountͶע36
}
{С2}
InCount( RangeStr(NumLow+(Round(AllCount/3)),AllCount/3) , AllNum );
{Round}
{С3}
InCount( RangeStr(NumLow+(Round(AllCount/3)*2),NumHigh-(NumLow+(Round(AllCount/3)*2))+1) , AllNum);
	{дɣ
	i:=NumLow+(Round(AllCount/3)*2); 
	s:=RangeStr(i,NumHigh-i+1); 
	InCount( s , AllNum);
	}
ģ{С1ڷΧ14}
	Between(  InCount( RangeStr(NumLow,AllCount/3) , AllNum )  ,1,4);
壺{С2ڷΧ14}
	Between(  InCount( RangeStr(NumLow+(Round(AllCount/3)),AllCount/3) , AllNum )  ,1,4);
{С3ڷΧAB}
	A:=1;B:=4;
	Between(  InCount( RangeStr(NumLow+(Round(AllCount/3)*2),NumHigh-(NumLow+(Round(AllCount/3)*2))+1) , AllNum)  ,A,B);
**עڲ**
ԭͣSumStr(NearDec)  
أ
˵ĳעÿ(ӵ2ʼ)ȥǰһĲֵ,ֵĺ͡
һ{עڲ}SumStr(NearDec);
{עڲ}SumStr(NearDec)/(NumCount-1);
{עڲڷΧ1030֮}
	Between( SumStr(NearDec) ,10,30);
ģ{עڲ1ĸڷΧ13֮}
	Between( InCount(NearDec,'1') ,1,3);
	{Ƽ㱾ŵĸ}
壺{עڲ0ĸڷΧ13֮}
	Between( InCount(NearDec,'0') ,1,3);
	{Ƽ㱾ظŵĸ}
**λ**
ԭͣSumStr(IssueDec(1))
ע˫IssueDecԲ鿴λ÷
һ{λ}SumStr(IssueDec(1));
{λAB֮}
	A:=-10;B:=30;
	Between(SumStr(IssueDec(1)),A,B);
**PosNum**
ԭͣPosNum 
أ 
˵㿪Ͷעлеλá
һPosNum;{λ}
{36ѡ7Ϊ
	1 2 3 4 5 6 7        λΪ1
	30 31 32 33 34 35 36 λΪ8347680
	ϵĸΪ8347680
Ϊ
	0 0 0 λΪ0
	1 1 2 λΪ112
}
{λڷΧAB֮}
	A:=1;B:=8347680;
	Between(PosNum,A,B);
**ֵ**
ԭͣHigh-Low 
أ 
˵ֵ-Сֵ
һHigh-Low;{ֵ}
**żֲ**
ԭͣDivStr(2)
أַ
˵صַУżΪ0,Ϊ1
һDivStr(2);{żֲ}
1 0 0 1 1 1 0
{赱ǰΪ36ѡ7е9024
	9 10 12 21 29 35 36
}
{ѡ1λżĺ}
	Mod(Bit(1),2)=0;
**IssueStr**
ԭͣIssueStr(ǰڸ)
أַ
˵ַ
עкʱֻǰ
	ĳעÿڵһγֹ
	Ҳʱ-1ʾĳʱΪ0
һIssueStr(50);{,Χǰ50()}
1 5 2 5 9 0 4 {赱ǰΪ36ѡ79024}
IssueStr(-1);{,Χǰе}
{ǰڸ0ʱ൱Ĭֵ50}
{ǰڸΪЧʱϵͳԶǰе}
**IssueDec**
ԭͣIssueDec(ǰڸ)
أַ
˵λַ
עкʱֻǰ
	λĳעÿȥǰÿĲֵγɵַ
	{ںΪ     1 2 3 4 5 6 7
	   ںΪ     1 2 4 8 9 8 6
	 λΪ   0 0 1 4 4 2 -1
	}	
һ{ں1ڵλ}IssueDec(1);
{ں2ڵλ}IssueDec(2);
{ں͵1ڵλ}IssueDec(-1);
ģ{ͬλظ}InCount(IssueDec(1),'0');
壺{λ}SumStr(IssueDec(1));
{λ}SumStr(IssueDec(1))/NumCount;
{ǰڸ0ʱ൱Ĭֵ1}
{ǰڸΪЧʱϵͳԶǰе}
**High**
ԭͣHigh
أ
˵ؿ
עкʱֻǰ
      ѡʱѡŵ
һHigh;{ؿͶע}
High-Low;{ؼֵ}
**Low**
ԭͣLow
أ
˵ؿС
עкʱֻǰ
      ѡʱѡŵС
һLow;{ؿͶעС}
High-Low;{ؼֵ}
**hzHighNum**
ԭͣhzHighNum(ڼλ,ӵڼʼȡ,)
أַ
˵ظƵ
עλʱڼλҪ0
      ڵĺ벻ڼ㷶Χ
      Ĭǰ50кг
һ{ȡƵ}
	hzhighnum(0,1,AllCount/3);
	{AllCountǺ,3Ϊ˷ָе}
{ȡƵ}
	hzhighnum(0,AllCount/3+1,AllCount/3);
{ȡƵ}
	hzhighnum(0,AllCount/3*2+1,AllCount/3);
ģ{ȡǰ50ڵиƵ}
	hzHighNum(0,0,0);{=0ʹȡȫ}
      {мд0ϵͳԶʵĲ1}{֪ʲô0}
      {㷶ΧĬǰ50ڣͨ޸}
{
'кƵʵ
CalaAllNumHz=50
'ÿλƵʵ
CalaBitNumHz=50
}
{༭->Ҽ->༭ʼ Ҳ޸}
壺{ȡλǰ3Ƶ}
	hzHighNum(0,1,3);{ӵ1ʼȡ3}
{ȡ2λĵ4ʼ3Ƶ}
	hzHighNum(2,4,3);{ӵ4ʼȡ3}
	{12,ϵͳֻǰnڵ2λƵ}
{עƵ֮ÿոֿ
磺30 31 9 22 7 17 18 32 19 34 3 2
ΪۣԽǰ油0ո񣬿ӣ}
ߣ{0ĸƵ}
i:=iff(AllCount>10,2,1);{10,͸ʽ2λ,1λ}
s:='Ƶ룺';
sHN:=hzHighNum(0,1,AllCount/3);{ȡƵ}
sHN:=TooStrs(sHN,i);{ÿ밴iĴСǰ油0}
s:=s+TosStrs(sHN,3);{ÿʽ3ַǰ油ո}
**hzHighCount**
ԭͣhzHighCount(ڼλ,ӵڼʼȡ,)
أַ
˵ظƵֵĴ
עλʱڼλҪ0
      ڵĺ벻ڼ㷶Χ
      Ĭǰ50кгĴ
һ{ȡƵ}
	hzHighCount(0,1,AllCount/3);
	{AllCountǺ,3Ϊ˷ָе}
{ȡƵ}
	hzHighCount(0,AllCount/3+1,AllCount/3);
{ȡƵ}
	hzHighCount(0,AllCount/3*2+1,AllCount/3);
{,˫hzHighNum}
**hzParaAll**
ԭͣhzParaAll
أ
˵ؼλƵʲ
עǰhzParaAllڵкĳִĬ50
	༭->Ҽ->༭ʼ޸ĸò
һhzParaAll;
**hzParaBit**
ԭͣhzParaBit
أ
˵ؼÿһλƵʲ
עǰhzParaAllڵĳλĳִĬ50
	༭->Ҽ->༭ʼ޸ĸò
һhzParaBit;
**TooStrs**
ԭͣTooStrs(ַ,ַ)
أַ
˵ַ0磺TooStrs('1 10',2);:01 10
	ַҪתĺ루ÿÿոֿ
	ַ  ÿĳ
	עȲʱǰ0
һTooStrs('1 10',2);
01 10
{Ƶ}
i:=iff(AllCount>10,2,1);{10,͸ʽ2λ,1λ}
s:='Ƶ룺';
sHN:=hzHighNum(0,1,AllCount/3);{ȡƵ}
sHN:=TooStrs(sHN,i);{ÿ밴iĴСǰ油0}
**TooStr**
ԭͣTooStr(,ַ)
أַ
˵ǰ油0
	֣Ҫת
	ַʽĳ
	עȲʱǰ0
һTooStr(8,2);
08
**TosStr**
ԭͣTosStr(,ַ)
أַ
˵ǰ油ո
	֣Ҫת
	ַʽĳ
	עȲʱǰÿո
һ'1'+TosStr(8,2);
1 8
**Between**
ԭͣBetween(,Сֵ,ֵ)
أ
˵ڣĳΧ֮䣩
ע>=Сֵ  <=ֵʱ10
һBetween(8,2,10);
1
Between(8,9,10);
0
{ѡ:1λ39֮}
	Between(Bit(1),3,9);
**NearDec**
ԭͣNearDec
أַ
˵עڲĳעÿ(ӵ2ʼ)ȥǰһĲֵγɵַ
עĳעڵĲγɵַ
һNearDec;
{ĳעΪ2 4 7,עڲΪ2 3
(У2=4-2  3=7-4)
}
{עڲ}SumStr(NearDec);
{עڲ}SumStr(NearDec)/(NumCount-1);
ģ{עڲڷΧ1030֮}
	Between( SumStr(NearDec) ,10,30);
壺{עڲ1ĸڷΧ13֮}
	Between( InCount(NearDec,'1') ,1,3);
	{Ƽ㱾ŵĸ}
{עڲ0ĸڷΧ13֮}
	Between( InCount(NearDec,'0') ,1,3);
	{Ƽ㱾ظŵĸ}
**Dup**
ԭͣDup()
أַ
˵رڵظŻ
ע=0ʱ,ظ;=1ʱ,
һDup(0);{ظ,ͲƱЧ}
	{ĿΪ 1 1 8
	 ظΪ1 1           }
Dup(1);{رڵ}
	{36ѡ79024
		9 10 12 21 29 35 36
	 Ϊ 9 10,35 36     }
Dup(2);{2}
	{򷵻 10 12 }
**InNums**
ԭͣInNums(ַA,ַB)
أַ
˵ظ
һInNums('1 2 3','1 4 6');
1
{ظ}InNums(AllNum, Refs(AllNum,1) );
InNums('1 2 3','01 4 6');{101һ,ǰ治Ҫ0}

**HzStr**
ԭͣHzStr(ַ,ǷƵ,ظ)
أַ
˵غַеĸƵƵ뼰
עǷƵ(1Ƶ 0Ƶ)
      ظ(ؼƵʺĺ)
      ظ0ʱԶΪ
      ظΪ0ʱ,ԶΪ
飺ѡʱøúhzHighNum
һHzStr('5 7 6 5 5 6',0,0);
5 6 7,3 2 1
	{5ǰ,63 2 1ӦĴ}
HzStr('5 7 6 5 5 6',1,0);{ȡƵ뼰}
7 6 5,1 2 3 {ٵ76ǰ}
{hzHighNum(0,0,0):ȡǰ50ڵиƵ}
	sAllNum:=iffs(TBHtoTZH,AllNum,AllNum+' '+AllNumS);{رͶעʱֻȡͶע}
	s:=HzStr(Refss(Refs(sAllNum+' ',1),50),0,AllCount);
	Split(s,1,1,',');{ĵĽһ}
ģ{hzHighNum(0,0,0)Ľ}
	hzHighNum(0,0,0);
壺HzStr('5 7 6 5 5 6',0,3);{7}
5 6 7 1 2 4 3,3 2 1 0 0 0 0 {ͲƱĽ}
      5 6 1 0 2 4 3,3 2 0 0 0 0 0 {ͲƱĽ,˺7}
      {1 2 4 3 0Զĺ}
HzStr('5 7 6 5 5 6',0,10);{10}
5 6 7 2 3 1 8 9 4 10,3 2 1 0 0 0 0 0 0 0{ͲƱĽ}
      5 6 7 2 3 1 0 8 9 4,3 2 1 0 0 0 0 0 0 0 {ͲƱĽ}
**RefStockData**
ԭͣSetObj('','RefStockData='+g.Kָ);
˵ùƱ
һ{ۺ}
	Kݸ:=1;
	K߽ṹС:=tof(GetObj('','RefDataSize'));
	sǰʱ:='1250472720';
	s̼:='6.68';
	sɽ:='7817300';{}
	Kָ:='';
	{ںȫֱҪӡg.пʡ}

	set(g.Kָ , GetMem( tos(g.K߽ṹС*g.Kݸ) ) );{ڴKָ}
        SetObj('','RefStockData='+g.Kָ);{ùƱݣָKݵڴλ}
        SetObj('','RefDataCount='+tos(g.Kݸ) );{ָKݸ,ͬʱָһյ}
	g.K:=g.Kݸ-1;
        SetObj('','RefDataIndex='+tos(g.K) );{0ʼ,=0ʱеһ}

   	Kָƫ:=g.K*g.K߽ṹС;
	SetMemValue(g.Kָ,tos(Kָƫ)   ,4,sǰʱ);
	SetMemValue(g.Kָ,tos(Kָƫ+4) ,40,g.s̼); {̼=̼}
	SetMemValue(g.Kָ,tos(Kָƫ+8) ,40,g.s̼); {߼=̼}
	SetMemValue(g.Kָ,tos(Kָƫ+12),40,g.s̼); {ͼ=̼}
	SetMemValue(g.Kָ,tos(Kָƫ+16),40,g.s̼); {̼=̼}
	SetMemValue(g.Kָ,tos(Kָƫ+20),4,sɽ);{ɽ}
	SetMemValue(g.Kָ,tos(Kָƫ+24),40, tos(tof(sɽ)*tof(g.s̼)) );{ɽ()*̼=ɽ}

	s:='ʱ:'+DateTime+'  ̼:'+FloatToStr(Close,2);
	ShowMessage(s); {Իʾֵ}

	FreeMem(g.Kָ);{ͷ}
**RefDataCount**
ԭͣSetObj('','RefDataCount='+tos(g.ݸ) );{ָݸ,ͬʱָһ¼}
˵ݸ
˫RefStockDataRefCPDataο˵
**RefDataIndex**
ԭͣSetObj('','RefDataIndex='+tos(g.) );{0ʼ,=0ʱָһ¼}
˵ָǰ¼
˫RefStockDataRefCPDataο˵
**Open**
ԭͣOpen
أ
˵̼
**Close**
ԭͣClose
أ
˵̼
**High **
ԭͣHigh
أ
˵߼
עΪƱʱ,ؿ
**Low **
ԭͣLow
أ
˵ͼ
עΪƱʱ,ؿС
**Vol**
ԭͣVol
أ
˵ɽ()
**Amount**
ԭͣAmount
أ
˵ɽ
**DateTime**
ԭͣDateTime
أַ
˵ɽʱ
עʽ2008-08-08 23:59:59
**Round**
ԭͣRound(С)
أ
˵С룬ת
ע
һRound(1.5);
2
Round(1.4);
1
**Intpart**
ԭͣIntpart(С)
أ
˵Сȡ
ע
һIntpart(1.5);
1
**ABS**
ԭͣABS(ֵ)
أ
˵ֵ
һABS(-3.5);
3.5
**SQRT**
ԭͣSQRT(ֵ)
أ
˵ƽ
һSQRT(4);
2
SQRT(-1);
(Ч)
**PI**
ԭͣPI
أ
˵Բ
һPI;
**sin**
ԭͣsin(ֵ)
أ
˵
һsin(PI/2);{PI/2Ӧ90}
1
**cos**
ԭͣcos(ֵ)
أ
˵
һcos(PI);{PIӦ180}
-1
**tan**
ԭͣtan(ֵ)
أ
˵
**exp**
ԭͣexp(ֵ)
أ
˵eΪ׵ָ
һln(exp(8));
8
**ln**
ԭͣln(ֵ)
أ
˵eΪ׵Ķ
һln(exp(8));
8
**log**
ԭͣlog(ֵ)
أ
˵10Ϊ׵Ķ
һlog(100);
2
**IsNull**
ԭͣIsNull(ֵ)
أ
˵ǷЧ(Ч1,0)
һIsNull(3);
0
IsNull(3/0);
1
**Bit**
ԭͣBit(ĳһλ)
أ
˵ؿĳһλ
עʱЧ
һBit(NumCount);{һλ}
25(29ѡ79026 08 15 16 19 22 24 25)
**BitB**
ԭͣBitB(ĳһλ)
أ
˵ؿĺĳһλ
עʱЧ
һ{غһλ}
	BitB(NumCountB);
**Add**
ԭͣAdd(A,B)
أ
˵(һ+)
һAdd(1,2);{൱ 1+2; }
3
{ۺʹ}
s:='';
sCRLF:=Crlf;
s:=s+'1=1ЧEqu(1,1)ֵΪ'+ToStr( Equ(1,1) );
s:=s+sCRLF;
s:=s+'1!=1ЧNoEqu(1,1)ֵΪ'+ToStr( NoEqu(1,1) );
s:=s+sCRLF;
s:=s+'1>=1ЧGEqu(1,1)ֵΪ'+ToStr( GEqu(1,1) );
s:=s+sCRLF;
s:=s+'1<=1ЧLEqu(1,1)ֵΪ'+ToStr( LEqu(1,1) );
s:=s+sCRLF;
s:=s+'1>1ЧGrea(1,1)ֵΪ'+ToStr( Grea(1,1) );
s:=s+sCRLF;
s:=s+'1<1ЧLess(1,1)ֵΪ'+ToStr( Less(1,1) );
s:=s+sCRLF;
s:=s+'''1''=''1''ЧEqus(1,1)ֵΪ'+ToStr( Equs('1','1') );
s:=s+sCRLF;
s:=s+'''1''!=''1''ЧNoEqus(1,1)ֵΪ'+ToStr( NoEqus('1','1') );
s:=s+sCRLF;
s:=s+'1 and 1ЧfnAnd(1,1)ֵΪ'+ToStr( fnAnd(1,1) );
s:=s+sCRLF;
s:=s+'1 or 1ЧfnAnd(1,1)ֵΪ'+ToStr( fnOr(1,1) );
s:=s+sCRLF;
s:=s+'not 1ЧfnNot(1)ֵΪ'+ToStr( fnNot(1) );
s:=s+sCRLF;
**Dec**
ԭͣDec(A,B)
أ
˵(һ-)
һDec(1,2);{൱ 1-2; }
-1
**Mul**
ԭͣMul(A,B)
أ
˵A*B(һ*)
һMul(1,2);{൱ 1*2; }
-1
**Div**
ԭͣDiv(A,B)
أ
˵A/B(һ/)
һDiv(1,2);{൱ 1/2; }
0.5
**Equ**
ԭͣEqu(A,B)
أ
˵A=B(һ=)
һEqu(1,2);{൱ 1=2; }
0
2=2;
1
**NoEqu**
ԭͣNoEqu(A,B)
أ
˵A!=B(һ!=)
һNoEqu(1,2);{൱ 1!=2; }
1
**GEqu**
ԭͣGEqu(A,B)
أ
˵A>=B(һ>=)
һGEqu(1,2);{൱ 1>=2; }
0
**LEqu**
ԭͣLEqu(A,B)
أ
˵A<=B(һ<=)
һLEqu(1,2);{൱ 1<=2; }
1
**fnAnd**
ԭͣfnAnd(A,B)
أ
˵(һAnd)
һfnAnd(1,2);{൱ 1 and 2; }
1
**fnOr**
ԭͣfnOr(A,B)
أ
˵(һOr)
һfnOr(1,2);{൱ 1 or 2; }
1
**fnNot**
ԭͣfnNot(A)
أ
˵(һNot)
һfnNot(0);{൱ Not 0; }
1
**Less**
ԭͣLess(A,B)
أ
˵A<B(һ<)
һLess(1,2);{൱ 1<2; }
1
**Equs**
ԭͣEqus(A,B)
أ
˵A=B(һ=)
һEqus('1','2');{൱ '1'='2'; }
0
**NoEqus**
ԭͣNoEqus(A,B)
أ
˵A!=B(һ!=)
һNoEqus('1','2');{൱ '1'!='2'; }
1
**Min**
ԭͣMin(A,B)
أ
˵رABСֵ
һMin(1,2);
1
**Max**
ԭͣMax(A,B)
أ
˵رABֵ
һMax(1,2);
2
**AddStr**
ԭͣAddStr(A,B)
أַ
˵ַA+Bֵ(һ+)
һAddStr('','');{൱ ''+''}

s:='-ƱӮ';
      AddStr(s,' Ұ');
-ƱӮ Ұ
**AllNum**
ԭͣAllNum
أַ
˵ؿͶע
һAllNum;
8 15 16 19 22 24 25 (29ѡ79026)
**AllNumM**
ԭͣAllNumM
أַ
˵ؿѡ
һAllNumM;
**AllNumS**
ԭͣAllNumS
أַ
˵ؿ   
һAllNumS;   
**GetStr**
ԭͣGetStr(str,len,align,fullchar,pos)
أַ
˵ʽַ
	strΪҪʽַ,\r\nʾس,\tʾTab
	lenΪʽĳ(0ǰַĳ)
	alignΪ뷽ʽ,1ΪҶ,ֵΪ
	fullcharΪַ,1Ϊ0,ֵÿո
	posΪӵڼַʼȡַ(alignй)
	עlen>0ʱ,Ч
һGetStr('װû\r\n           ã',0,0,0,0);   
**NumCount**
ԭͣNumCount
أ
˵Ͷע 
һNumCount;
7 (36ѡ7ʱ7)
{AllCountǰƱͶעʱĺ(36ѡ7ʱ36)}
**NumCountB**
ԭͣNumCountB
أ
˵غ 
һNumCountB;
1 (ѡ˫ɫʱ1)
**NumCountM**
ԭͣNumCountM
أ
˵ѡ
һNumCountM;
**NumCountS**
ԭͣNumCountS
أ
˵ 
һNumCountS;
**Issue**
ԭͣIssue
أ
˵ں
һIssue;
**Row**
ԭͣRow
أ
˵к
һRow;
**Col**
ԭͣCol
أ
˵к
һCol;
{ÿ,}
RefBits(  tos( Bit(Col) )+','  ,NumCount);
**GetID**
ԭͣGetID
أ
˵زƱ
һGetID;
**GetName**
ԭͣGetName
أַ
˵زƱ
һGetName;
**TBHtoTZH**
ԭͣTBHtoTZH
أ
˵رǷͶע
עֻС36ѡ7ŷ1
һTBHtoTZH;		
**FloatToStr**
ԭͣFloatToStr(,Сλ)
أַ
˵ͱתַ
עԶ
	֣Ҫת
	СλҪСλ
һFloatToStr(1.567,0);
2
FloatToStr(1.567,1);
1.6
FloatToStr(3,2);
3.00
**tos**
ԭͣtos()
أַ
˵ͱתַ
עԶ
	֣Ҫת
һtos(1.567);
2
tos(-1.567);
-2
**tof**
ԭͣtof(ַ)
أ
˵ַת
һtof('1.567');
1.567
**iff**
ԭͣiff(,ΪķֵnTrue,ֵnFalse)
أ
˵ֵΪ0ͷnTrue,򷵻nFalse
һiff(2>1,3,4);
3
i:=iff(AllCount>10,2,1);{10,͸ʽ2λ,1λ}
s:='Ƶ룺';
sHN:=hzHighNum(0,1,AllCount/3);{ȡƵ}
sHN:=TooStrs(sHN,i);{ÿ밴iĴСǰ油0}
**iffs**
ԭͣiffs(f,sTrue,sFalse)
أַ
˵fΪʱsTrue,򷵻sFalse
һiffs(2>1,'a','b');
a
**IfCall**
ԭͣIfCall(,)
أ
˵ʱк
һ{޲}
	[MyFun;
	 i:=1+1;
	 ShowMessage('޲:'+tos(i));		
	];
	IfCall(MyFun,2>1);{ʾ2}
	IfCall(MyFun,2<1);{ʾ}
{в}
	[ҵĺ(x,y);
	 ShowMessage('в:'+tos(x+y));		
	];
	IfCall(ҵĺ(1,2),8>7);{ʾ3}
	IfCall(ҵĺ(1,2),8<7);{ʾ3}
{ñʽ}
	[;
	i:=ShowMessage('ñʽ');
	];
	IfCall(i,2>1);{ʾñʽ}
	{ȥ[;͡]ͻʾΡñʽ}
**IfReturn**
ԭͣIfReturn(ֵ,)
أ
˵ʱ˳,ֵ
һ{IfReturnʹ}
	MyFun;
	[MyFun;
		IfReturn( 100 , 2<1); {0}
		ShowMessage('ִ');
		IfReturn( 100 , 2>1); {100,䲻ִ}
		ShowMessage('ִ');
	];	
**SumBit**
ԭͣSumBit
أ
˵λ(кʱֻǰ)
עλĳעÿӵĽ
һSumBit;{Ϊ1 1 2,λΪ4}
{λ൱}SumStr(AllNum);
{λ100150֮}Between(SumBit,100,150);
**SumStr**
ԭͣSumStr(s)
أ
˵ַλ
	ÿÿոָ
һSumStr('1 2 3');
6
{}
	SumStr(IssueStr(50));
{λ} SumStr(AllNum);
	{൱SumBit}
ģ{ѡλ} SumStr(AllNumM);
**SumBitB**
ԭͣSumBitB
أ
˵غλ
עûк򷵻0
һSumBitB;
**CountDiv**
ԭͣCountDiv(n)
أ
˵ÿͶעnõΪ0ĸ
һCountDiv(2);{żĸ}
	{ż}
	s:=tos(NumCount-CountDiv(2));
	s:=s+':';
	s:=s+tos(CountDiv(2));
**CountDivB**
ԭͣCountDivB(n)
أ
˵غÿͶעnõΪ0ĸ
һCountDivB(2);{żĸ}
	{ż}
	s:=tos(NumCountB-CountDivB(2));
	s:=s+':';
	s:=s+tos(CountDivB(2));
**RangeStr**
ԭͣRangeStr(nLow,n)
أַ
˵ԺnLowʼnɵַ
һ{С1ĺ봮}RangeStr(NumLow,AllCount/3);
{36ѡ7ʱ1 2 3...12}
{	עصÿÿոָ}
{С2ĺ봮}
	RangeStr(NumLow+(Round(AllCount/3)),AllCount/3);
{С3ĺ봮}
	RangeStr(NumLow+(Round(AllCount/3)*2),NumHigh-(NumLow+(Round(AllCount/3)*2))+1);
**NumLow**
ԭͣNumLow
أ
˵صǰƱͶעʱС
һNumLow;{36ѡ7ʱ1}
**NumHigh**
ԭͣNumHigh
أ
˵صǰƱͶעʱ
һNumHigh;{36ѡ7ʱ36}
**Highs**
ԭͣHighs(ַ)
أ
˵غַ
һHighs('1 2 10 30');
30
{1:}Highs(AllNum);
{2:}High;
**Lows**
ԭͣLows(ַ)
أ
˵غַС
һLows('1 2 10 30');
1
{1:С}Lows(AllNum);
{2:С}Low;
**AllCount**
ԭͣAllCount
أ
˵صǰƱͶעʱĺ
һAllCount;{36ѡ7ʱ36}
{NumCountͶעʱĺ(36ѡ7ʱ7)}
**Ceiling**
ԭͣCeiling(f)
أ
˵ȡ
һCeiling(1.1);
2
Ceiling(1.5);
2
**Mod**
ԭͣMod(,)
أ
˵
һ{ѡ1λżĺ}
	Mod(Bit(NumCount),2)=0;
{103=1}
	Mod(10,3);
1
**In**
ԭͣIn(,ַ)
أ
˵ַʱ1,0
һIn(1,'1 10 12');
1
In(2,'1 10 12');
0
In(2,'02 3 4');
0 {202,ϵͳΪ,ǰ治Ӧ0}
**StrAndOr**
ԭͣStrAndOr(ַA,ַB,㷨)
أַ
˵ַת
ע㷨(0: 1: 2: 3: 4: 5: 6: 7:ģ 8: 9:)
һ{ۺʹ˵}
s:='';
sCRLF:=Crlf;
s:='ϵͳ㶼ǻڸ㣨Чֻ7λ Ƶģи߾ȵַֻͨʽ';
s:=s+sCRLF;
s:=s+'(1 and 1)=:'+StrAndOr('1','1',0);
s:=s+sCRLF;
s:=s+'(1  or 1)=:'+StrAndOr('1','1',1);
s:=s+sCRLF;
s:=s+'(  not 1)=:'+StrAndOr('1','1',2);
s:=s+sCRLF;
s:=s+'(1  +  1)=:'+StrAndOr('1','1',3);
s:=s+sCRLF;
s:=s+'(1  -  1)=:'+StrAndOr('1','1',4);
s:=s+sCRLF;
s:=s+'(1  *  1)=:'+StrAndOr('1','1',5);
s:=s+sCRLF;
s:=s+'(1  /  1)=:'+StrAndOr('1','1',6);
s:=s+sCRLF;
s:=s+'ģ(mod(1,1)=:'+StrAndOr('1','1',7);
s:=s+sCRLF;
s:=s+'(1 * 2)=:'+StrAndOr('1','1',8);
s:=s+sCRLF;
s:=s+'(2 / 1)=:'+StrAndOr('2','1',9);
s:=s+sCRLF;
**SetVar**
ԭͣSetVar(,ֱֵ)
أ
˵ŵıֵ
һ{ۺ}
{1ӵ100,=5050}
SetVar(1,0);{ȫֱ1ʼֵ=0}
[MyFun;
SetVar(1, GetVar(1) + GetInt(1) );{ȫֱ1ѭֵ}
];
for(MyFun,1,100,1); {1100ѭ}
GetVar(1);
**GetVar**
ԭͣGetVar()
أ
˵õȫֱֵ
{˫SetVar鿴ʹ}
**GetInt**
ԭͣGetInt()
أ
˵õѭֵ
{˫SetVar鿴ʹ}
**For**
ԭͣFor(͵ĺʽ,ʼֵ,ֵֹ,ѭ)
أ
˵ѭһ1GetInt(1)ȡѭֵ
һ{11ӵ100,=5050}
iSum:=0;
[MyFun;
g.iSum:=g.iSum + GetInt(1) ;{ѭֵ}
{ȫֱiSumʱǰҪg.}
];
for(MyFun,1,100,1); {1100ѭ}
iSum;
{21ӵ100,=5050}
[MyFun;
GetInt(1) ;{ѭֵ}
];
i:=for(MyFun,1,100,1); {1100ѭ}
{1002,=200}
i:=for(2,1,100,1); {1100ѭ}
ģ{10ӵ9,=19}
[MyFun;
GetInt(1) ;{ѭֵ}
];
i:=for(MyFun,10,9,1); {109ѭ}
:19
**ForNum**
ԭͣForNum(͵ĺʽ,ַ,ѭ)
أ
˵ѭȡ루GetVars(GetInt(1)) ȡѭֵ
һ{1ÿ,=8}
iSum:=0;
[MyFun;
g.iSum:=g.iSum + tof( GetVars(GetInt(1)) ) ;{ѭֵ}
];
ForNum(MyFun,'1 4 03',1); {ÿѭ}
iSum;
8
{22ӵ4,=9}
[MyFun;
tof( GetVars(GetInt(1)) ) ;{ѭֵ}
];
ForNum(MyFun,'2 3 4',1); {Ӻ24ѭ}
9
{ÿ1}
s:='';
[MyFun;
s:=GetVars(GetInt(1)); {ȡÿ}
s:=tos( tof(s)+1 );{ȡÿټ1}
g.s:=g.s + s+' '; 
{ǰg.ıȫֱ,һsľֲ,
ֵǶ} 
];
ForNum(MyFun,'1 2 03',1); {Ӻ13ѭ}
s;
2 3 4
**Fors**
ԭͣFors(ַ͵ĺʽ,ʼֵ,ֵֹ,ѭ)
أ
˵GetInt(1) ȡѭֵ
һ{10ӵ9}
[MyFun;
tos(GetInt(1))+' ' ;{ѭֵ}
];
Fors(MyFun,0,9,1); {1100ѭ}
{20ӵ9}
	RangeStr(0,10);
**ForNumStr**
ԭͣForNumStr(,ַ,ַ)
أ
˵ѭȡ,غ
һ{ÿ1}
s:='';
[MyFun;
  g.s:=g.s+tos( tof(g.sÿ) +1 ) + ' ' ;
];
sÿ:='';
ForNumStr(MyFun,'2 3 4',sÿ); {ѭȡ}
s;
3 4 5
**ForSplit**
ԭͣForSplit(,Ҫַ,ַ,ַ)
أ
˵ÿַַ,ַ
һ{ÿ1}
s:='';
[MyFun;
  g.s:=g.s+tos( tof(g.sÿ) +1 ) + ' ' ;
];
sÿ:='';
ForSplit(MyFun,'2 3 4',' ',sÿ); {ѭȡ}
s;
3 4 5
{˫ForNumStr鿴Ƶ}
**ForNums**
ԭͣForNums(ַ͵ĺʽ,ַ,ѭ)
أ
˵ѭȡ루GetVars(GetInt(1)) ȡѭֵ
һ{ÿ1}
[MyFun;
tos( tof(GetVars(GetInt(1))) +1 ) + ' ' ;
];
s:=ForNums(MyFun,'2 3 4',1); {Ӻ13ѭ}
3 4 5
**ForMids**
ԭͣForMids(,,Ӵ1,Ӵ2,ַ)
أ
˵ѭȡַ,ظ
һ{ÿ1}
s:='';
[MyFun;
       g.sÿ:=Replace(g.sÿ,'<','',0);
       g.sÿ:=Replace(g.sÿ,'>','',0);
       g.s:=g.s+tos( tof(g.sÿ) +1 ) + ' ' ;
];
sÿ:='';
ForMids(MyFun,'<2><3><4>','<','>',sÿ); {ѭȡÿ}
s;
3 4 5
{˫ForNumStr鿴Ƶ}
**ForFiles**
ԭͣForFiles(,ļ·,·,ļ)
أ
˵ѭȡָļ·ļ(Ŀ¼ļ)
һ{ȡϵͳгļ(*.fls)}
s:= GetObj('0','ParamStr') ;{õĳĿ¼ļ}
sPath:= GetObj(s,'ExtractFilePath') ;{Ŀ¼,\}
s:='';
·:='';
ļ:='';
[MyFun;
       g.s:=iffs(Right(g.ļ,4)='.fls', g.s+g.·+g.ļ+CrlF , g.s) ;
];
ForFiles(MyFun,sPath+'set',·,ļ);
s;
**WhileTrue**
ԭͣWhileTrue()
أ
˵ѭú
עֵΪЧֵʱ˳ѭ
һ{1ӵ100}
	i:=0;n:=0;
	WhileTrue(MyFun);
	[MyFun;
		g.i:=g.i+1;
		g.n:=g.n+g.i;
		iff(g.i=100,break,0);
	];
	n;
5050
**Break**
ԭͣBreak
أ
˵˳ѭ
ע˳ForȺ;WhileTrue˳Чʱ˳
һ{1ӵ100}
	i:=0;n:=0;
	For(MyFun,1,100,1);
	[MyFun;
		g.i:=g.i+1;
		g.n:=g.n+g.i;
		IfCall( Break , g.i=100);
	];
	n;
5050
**MA**
ԭͣMA(,n)
أ
˵Աnڵƽֵ
ע¼nھͷЧ
һ{Աںǰ1ڵ1λƽֵ}
	MA(Bit(1),2);
{൱Bit(1)+Ref(Bit(1),1)}
{ּƽֵķ}
	s1:=tos(  MA(Bit(1),2)  ); 
	s2:=tos(  ( Bit(1)+Ref(Bit(1),1) ) /2  );
{עRefǰ1ڵĵ1λ}
ShowMessage('ƽֵ'+ s1+''+s2  );
{50ڵλ͵ƽֵ}
	MA(SumBit,50);{൱ Sum(SumBit,50)/50 }
**LLV**
ԭͣLLV(,n)
أ
˵ԱnڵСֵ
ע¼nھͷЧ
һ{Աںǰ1ڵ1λСֵ}
	LLV(Bit(1),2);
{ ൱Min( Bit(1),Ref(Bit(1),1) ) }
{עRefǰ1ڵĵ1λ}
{50ڵĵ2λСֵ}
	LLV(Bit(2),50);{50ھͷЧ}
{50ڵλ͵Сֵ}
	LLV(SumBit,50);
**HHV**
ԭͣHHV(,n)
أ
˵Աnڵֵ
ע¼nھͷЧ
һ{Աںǰ1ڵ1λֵ}
	HHV(Bit(1),2);
{ ൱Max( Bit(1),Ref(Bit(1),1) ) }
{עRefǰ1ڵĵ1λ}
{50ڵĵ2λֵ}
	HHV(Bit(2),50);{50ھͷЧ}
{50ڵλ͵ֵ}
	HHV(SumBit,50);
**Sum**
ԭͣSum(,n)
أ
˵Աnڵĺֵ
ע¼nھͷЧ
һ{Աںǰ1ڵ1λֵ}
	Sum(Bit(1),2);
{ ൱Bit(1) + Ref(Bit(1),1) }
{עRefǰ1ڵĵ1λ}
{50ڵĵ2λĺֵ}
	Sum(Bit(2),50);{50ھͷЧ}
{50ڵкżı}
	ż:=Sum( CountDiv(2) ,50);
	:=Sum( NumCount-CountDiv(2) ,50);
	s:=tos(ż)+':'+tos();
**Count**
ԭͣCount(,n)
أ
˵nڱֵΪ0()
ע¼nھͷЧ
һ{Աںǰ49ڵ1λżĸ}
	Count( Mod(Bit(1),2)=0 ,50);
**Ref**
ԭͣRef(,n)
أ
˵ǰnڵıֵ
ע¼nھͷЧ
һ{һڵλ}
	Ref(SumBit,1);
{һڵ1λ}
	Ref(Bit(NumCount),1);
**Refs**
ԭͣRefs(ַͱ,n)
أַ
˵ǰnڵַͱֵ
ע¼nھͷؿַ
һ{һڵĿ}
	Refs(AllNum,1);
{һڵĺ}
	Refs(AllNumB,1);
**Refss**
ԭͣRefss(ַͱ,n)
أַ
˵n()ַͱۼ
ע¼nھͷؿַ
һ{ڵĿ}
	Refss(AllNum+CrLf,2);
{ú:ڵĿ}
	[MyFun;
		AllNum+CrLf;	
	];
	Refss(MyFun,2);
**RefBits**
ԭͣRefBits(ַͱ,n)
أַ
˵nַͱۼ
עn=0ʱn=Ͷע
һ{ö}
	[MyFun;
		iffs(Col=1,'',',') + tos(Bit(Col));
	];
	RefBits(MyFun,NumCount);{0NumCount}
**RefBitw**
ԭͣRefBitw(ַͱ,n)
أַ
˵nַͱֵ
עÿֵǸǵģո⣩
      n=0ʱn=Ͷע
һ{(ǰ50)}
sCrLf:=CrLf;{سз}
iBitLen:=iff( NumLow=0,1,2);{ݲƱСȷĿ}
s:='ںũ '+TooStrs(RangeStr(NumLow,AllCount),iBitLen);{ɱ}
sqh:=GetStr(tos(Issue),4,1,0,0) + '';{ںŵ4ַ+''}
sall:='';
ss:=iffs( NumLow=0 , SetStr(sall,(Bit(Col)+1)*2-1,' '+TooStr(Bit(Col),1))  , SetStr(sall,Bit(Col)*3-2,' '+TooStr(Bit(Col),2))  );{ÿĴСӦλʾ}
ss:=refss(Refbitw(sqh+ss,0)+sCrLf,50);{ʾ50}
s:=s+sCrLf;
s:=s+ss;
**SetStr**
ԭͣSetStr(ַͱ,λ,ַ)
أַ
˵ַͱֵ
һSetStr('1 2',5,'3 4');{ڵ5ַ3 4}
1 2 3 4
s:='';s:=SetStr(s,1,'1 2');
s:=SetStr(s,5,'3 4');
1 2 3 4
**CrLf**
ԭͣCrLf
أַ
˵سз
һ'ѣ'+CrLf+'      ã';
**Trim**
ԭͣTrim
أַ
˵ɾǰո
һTrim('  ');

**UpperCase**
ԭͣUpperCase
أַ
˵תɴд
һUpperCase('hello');
HELLO
{APIתɴд}
	CallAPIs('user32.dll','CharUpperA','str;str','hello');
HELLO
{APIַݸĳɴд}
	s:='hello';
	pchar:=GetObj(s,'pchar');{õַsĵַ}
	CallAPIs('user32.dll','CharUpperA','int', pchar );
	s;
HELLO
**LowerCase**
ԭͣLowerCase
أַ
˵תСд
һLowerCase('Hello');
hello
**set**
ԭͣset(ַ,)
أַ
˵ֵַ,ֵ
ע2.23ϰ汾Զתɸú
      2.22汾£FreeTempStrӰ죬ȡ:=ĸֵʽȫ
һ{ֵַ}
	s:='';
	set( s,'' );{൱ s:='' }
	s;

**Length**
ԭͣLength(ַ)
أ
˵ַĳ
һLength('');{һռֽ}
4
Length('hello');
5
**Copy**
ԭͣCopy(ַ,ʼλ,)
أַ
˵ȡַ
һCopy('',3,2);{һռֽ}

**MidS**
ԭͣMidS(ַ,ʼַ,ַ,Ƿұȡ,ǷִСд)
أַ
˵ȡмַ
עǷұȡ(1 0)  ǷִСд(1 0)
      ߽磺ǷִСд+2	
һMidS('<a> </a>','<a>','</a>',0,0);
 
MidS('<a>Ӣ</a> <a>ʱ</a><a>-ƱӮ</a>','<a>','</a>',1,0);
-ƱӮ
**Right**
ԭͣRight(ַ,ұ߸)
أַ
˵ұȡַ
һRight('ѡ.ҵĹʽ.fls',4);
.fls
**PosEx**
ԭͣPosEx(ַ,ַ,ʼλ)
أ
˵ַ,λ;Ҳ0
һPosEx('',',,',5);
6
**PosR**
ԭͣPosR(ַ,ַ,ʼλ)
أ
˵ұַ߲,λ;Ҳ0
עʼλ=0һַʼ
һPosR('',',',0);
6
**Chr**
ԭͣChr(ASCII)
أַ
˵ASCIIתӦַ
һ{سз}Chr(13)+Chr(10);{൱CrLf}
{Tab}Chr(9);
{˸}Chr(8);
ģ{0123456789}
	Fors( Chr(47+GetInt(1)) ,1,10,1);
0123456789
**Ord**
ԭͣOrd(ַ)
أ
˵ַĵһַתASCII
һOrd('0');
48
**RegExp**
ԭͣRegExp(ַ,ʽ,,ǷԴСд)
أ
˵ʽȡֵַ,ƥ
עַϡΪַʱϵͳԶµַ϶,ԼҪͷţRegExpForRegExpsðȫ
      ǷԴСдǣ43  0ֵ
      1µĶԴСд	
      3µĶԴСд
      4µĶԴСд
һ{ȡе}
	s:=''''',''''';
	stַ:='';
	RegExp(stַ,'''(.*?)''',s,0);
	s:=GetObj(stַ,'Text');{õ}
	SetObj(stַ,'Free');{ͷ}
	s:=Replace(s,'''','',0); {'滻ɿմ}

      
**ForRegExps**
ԭͣForRegExps(ú,ʽ,,ǷԴСд,ѭ)
أַ
˵ʽѭȡֵ,صÿַϲһ
      GetVar(1)ȡƥ  GetVars(GetInt(1))ȡÿƥַ
עѭţһ1
      ǷԴСдǣ43  0ֵ
      1µĶԴСд	
      3µĶԴСд
      4µĶԴСд
ע⣺µʽΪ˿Ƕ̲߳
һ{ȡе}
{עַĵҪʾ}
s:=''''',''''';{ַΪ'',''}
ss:='';
[ҵĺ;
g.ss:=g.ss + GetVars(GetInt(1)) + CrLf ; {ȡÿַCrLfǻسз}
];
ForRegExps(ҵĺ,'''(.*?)''',s,0,1);{ȡе()}
g.ss := Replace(g.ss,'''','',0); {'滻ɿմ}

      
{ȡе()}
s:='<TD>1</td>Ҫ<td>2</td>';
{ForRegExpsҲԵַʽ}
ForRegExps('','<td>(.*?)</td>',s,4,1);{ȡе()ԴСд}
<TD>1</td><td>2</td>
{֤Ƿһֻ}
{֤Ƿһֻ}
s:='13288888888 13288888888';
ForRegExps('','(86)*0*13\d{9}',s,0,1);
{ǣ1  񣺷0}
iff( GetVar(1)=1 ,1,0); {GetVar(1)ȡƥ}
0
ģ{ȡֻ}
s:='13288888888 13288888888';
ss:='';
[ҵĺ;
g.ss:=g.ss + GetVars(GetInt(1)) + CrLf ; {ȡÿַCrLfǻسз}
];
ForRegExps(ҵĺ,'(86)*0*13\d{9}',s,0,1);
g.ss;
壺{ȡEmailַ}
s:='ʼ13269082077@m165.com  lj__lzy@163.com';
ss:='';
[ҵĺ;
g.ss:=g.ss + GetVars(GetInt(1)) + CrLf ; {ȡÿַCrLfǻسз}
];
ForRegExps(ҵĺ,'\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*',s,0,1);
g.ss;

13269082077@m165.com
lj__lzy@163.com

{ʽ
1.ȡϢеipַ(\d+)\.(\d+)\.(\d+)\.(\d+)
2.ȡϢеʼַ\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
3.ȡϢейֻ룺(86)*0*13\d{9}
4.ȡϢей̶绰룺(\(\d{3,4}\)|\d{3,4}-|\s)?\d{8}
5.ȡϢей绰루ƶ͹̶绰(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}
6.ȡϢей룺[1-9]{1}(\d+){5}
7.ȡϢей֤룺\d{18}|\d{15}
8.ȡϢе\d+
9.ȡϢеĸС(-?\d*)\.?\d+
}
**ReplaceRegExp**
ԭͣReplaceRegExp(ʽ,Ҫ滻,滻ַ,ǷԴСд)
أַ
˵ʽ滻ַ
ע ǷԴСдǣ43  0ֵ
      1µĶԴСд	
      3µĶԴСд
      4µĶԴСд
ע⣺µʽΪ˿Ƕ̲߳
һ{ɾ֮()}
	ReplaceRegExp('{(.*?)}','{ע1}{ע2}','',0);{滻ɿַ}

**Day**
ԭͣDay
أַ
˵ϵͳ( 2009-10-01 )
һ{ϵͳ}Day;
{ȡ}tof( Copy(Day,1,4) );
{ȡ·}tof( Copy(Day,6,2) );
ģ{ȡ}tof( Right(Day,2) );
**Time**
ԭͣTime
أַ
˵ϵͳʱ( 23:59:59 )
һ{ϵͳʱ}Time;
{ȡСʱ}tof( Copy(Time,1,2) );
{ȡ}tof( Copy(Time,4,2) );
ģ{ȡ}tof( Right(Time,2) );
**GetWebSource**
ԭͣGetWebSource(ַ,,)
أַ
˵ȡҳݣʧʱؿַ
һ{ȡsohuҳ}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
	s:=GetWebSource('http://www.sohu.com','','');{ǰҪhttp}
	ShowMessage( copy(s,1,500) );{ʾǰ500ֽ}
{ȡgoogle񡱵Ľ}
	s:=GetWebSource('http://www.google.cn/search?hl=zh-CN&q='+UrlEncode(''),'','');
	ShowMessage( copy(s,1,500) );{ʾǰ500ֽ}
{Postȡgoogle񡱵Ľ}
	{ַ֧Postǿյַ}
	s:=GetWebSource('http://www.google.cn/search?hl=zh-CN&q='+UrlEncode(''),'','Post');
	s:=Utf8ToAnsi(s,937);{ת,}
	ShowMessage( copy(s,1,500) );{ʾǰ500ֽ}
ģ	{ַǰhttpͳ}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
	s:=GetWebSource('www.SearchCrazy.cn','','');{ǰ治http}
	IfCall( ShowMessage('Ϣ'+GetErrs ) ,GetErr=1) ;
**UrlEncode**
ԭͣUrlEncode(ַ)
أַ
˵URL루ҪǽҪѯתURLύվ
{˫GetWebSource鵽}
**Utf8ToAnsi**
ԭͣUtf8ToAnsi(ַ,ҳ)
أַ
˵Utf8תһվutf8,תͲ룩
{˫GetWebSource鵽}
**DownLoadFile**
ԭͣDownLoadFile(صַ,ļ,,ѡ,δַ)
أַ
˵ļ
ע0ȴļؽ(ʹscSock.dll) δַҪ''
	ѡ: 128عвϢ 4޸غļʱ
{CallAPIs('scSock.dll','SetNotifyMsg','int,int',GetObj('','EventHandle')+',2024');{֪ͨϢ}
{CallAPIs('scSock.dll','SetBuffer','int,int','102400,102400');{ûС(ֽ)}
{CallAPIs('scSock.dll','SetTimeOut','int,int','0,1000');{ʱʱ1}
һ{ҳݲ浽ļ}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
	DownLoadFile('http://www.searchcrazy.cn/popcp.htm','c:\ļ_.htm',0,0,'');
	showmessage( Copy( ReadFile('c:\ļ_.htm') ,1,100) );{ʾļ}
{ء-ƱӮ 5.68}
{
'µĽ
RunInNewProcess=1
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
	sForm:=SetObj('','CreateForm');{½}
	[;
		SetObj(g.sForm,'Text=...');
		DownLoadFile('http://cncspace.newhua.com/down/files/wmdyj5.68.rar','c:\-ƱӮ 5.68.rar',0,0,'');
		SetObj(g.sForm,'Text=!');
	];
	sObj:=SetObj(sForm,'CreateButton');{ڴ½ť}
	SetObj(sObj,'Text=');
	SetObj(sObj,'OnClick=');
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
{ע⣺
	'µĽ
	RunInNewProcess=1
	ڶУһ㲻׳
 }
**GetHtmlText**
ԭͣGetHtmlText(ҳ)
أַ
˵ȡҳı
һ{ȡҳı}
GetHtmlText('<a></a>');

**GetHref**
ԭͣGetHref()
أַ
˵ȡ
һ{ȡ}
GetHref('<a href="www.searchcrazy.cn">ҳ</a>');
www.searchcrazy.cn
**GetHrefAll**
ԭͣGetHrefAll(Ҫַ,ҳ)
أַ
˵ȡ
һ{ȡ}
GetHrefAll('http://www.searchcrazy.cn/AutoKey','index.htm');
http://www.searchcrazy.cn/AutoKey/index.htm
**غ**
ԭͣ
һ{htmlʽĿո滻&nbsp}
:='<a href="www.searchcrazy.cn">  </a>';
pc:=GetObj(,'pchar');
CallAPIs('net.dll','ReplaceSpace','int',pc);
:=Replace(,chr(1),'&nbsp;',0);
{Md5}
GetObj('123','Md5');{123MD5}
**BoundCanvas**
ԭͣBoundCanvas
أ
˵󶨻ͼؼPaintBox,Image
һ{Խ)}
sForm:=SetObj('','CreateForm'); {½}
sPaintBox:=SetObj(sForm,'CreatePaintBox');{½ͼؼ}
SetObj(sPaintBox,'Align=Client');{}
SetObj(sPaintBox,'OnPaint=ػ¼');
[ػ¼;
BoundCanvas(g.sPaintBox);{󶨻ͼؼ}
SetPen(255,0,0,0,1);{ɫ,ʵ,1شС}
LineTo( tof(GetObj(g.sPaintBox,'Width'))-1 ,tof(GetObj(g.sPaintBox,'Height'))-1 );{}
Draw;{Ļ}
];
SetObj(sForm,'Visible=2');{ʾģʽ}
SetObj(sForm,'Free');     {ͷŴڼӿؼ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SetBrush**
ԭͣSetBrush(,,,)
أ
˵ˢɫ(,,),(0:ʵ  1:͸)
һ{ɫʵˢ(ԤЧ)}
	SetBrush(128,128,128,0);{ ˢɫ(,,),(0:ʵ  1:͸) }
{ͼ.}
@@.ͼ..fls@@
**SetPen**
ԭͣSetPen(,,,,ʴС)
أ
˵ûɫ(,,),(0:ʵ  1: -------  2:.......  3:_._._._  4:_.._.._ ),ʴС()
һ{(ɫ,ʵ,1)(ԤЧ)}
	SetPen(0,0,0,0,1);{ɫ,ʵ,1}
{(ɫ,ʵ,1)(ԤЧ)}
	SetPen(255,255,255,0,1);{ɫ,ʵ,1}
{(ɫ,ʵ,1)(ԤЧ)}
	SetPen(255,0,0,0,1);{ɫ,ʵ,1}
ģ{ͼ.}
@@.ͼ..fls@@
**SetFont**
ԭͣSetFont(,,,߶,ַ)
أ
˵,(700:),(0:Զ),߶,ַ
һ{(ԤЧ)}
	SetFont('',0,0,12,0); {,(700:),(0:Զ),߶,ַ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SetTextColor**
ԭͣSetTextColor(,,)
أ
˵ǰɫ(,,) 
һ{ɫ)(ԤЧ)}
	SetTextColor(0,0,255);    { ǰɫ(,,) }
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SetBKColor**
ԭͣSetBKColor(,,)
أ
˵ǰɫ(,,) 
һ{ɫֱ)(ԤЧ)}
	SetBKColor(128,128,128);  { ֱɫ(,,) }
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**FillRect**
ԭͣFillRect(,,,)
أ
˵ˢɫ(,,,) 
һ{ˢɫ)(ԤЧ)}
	FillRect(1,1,29,29);{,,,}
{ͼ󹤾.ȡɫ}
@@ͼ󹤾.ȡɫ.fls@@
**MoveTo**
ԭͣMoveTo(x,yϱ)
أ
˵ƶʵ(x,y)
һ{ƶ1024*768½)(ԤЧ)}
	MoveTo(1023,767);{Ƶ1024*768Ļλ}
{ƶͼؼϽ)(ԤЧ)}
	MoveTo(0,0);{ƶͼؼϽ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**LineTo**
ԭͣLineTo(x,yϱ)
أ
˵ʻ(ӵǰλõ(x,y)λûһֱ)
עǰʵλûԶ(x,y)
һ{һԽ)(ԤЧ)}
	MoveTo(0,0);{ƶͼؼϽ}
	LineTo(1023,767);{Ͻǵ½ǻһֱ(1024*768Ļ)}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SetPixel**
ԭͣSetPixel(x,yϱ,,,)
أ
˵(á,,ɫڡx,yһ)
һ{Ͻǻ)(ԤЧ)}
	SetPixel(0,0,255,0,0);{ڻͼؼϽǻ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**Rectangle**
ԭͣRectangle(,,,)
أ
˵(ڡ,,,¡򻭾)
һ{ɫ)(ԤЧ)}
	SetBrush(128,128,128,0);{ ˢɫ(,,),(0:ʵ  1:͸) }
	Rectangle(0,0,1023,767);{ ˢɫ(ñɫ) }
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**TextOut**
ԭͣTextOut(x,yϱ,)
أ
˵֣ڡx,y֣
һ{)(ԤЧ)}
	TextOut(0,0, '' );
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**TextOutNum**
ԭͣTextOutNum(x,yϱ,,ʽ)
أ
˵֣ڡx,y֣
һ{ʽ(ԤЧ)}
	TextOutNum(0,0,8.88,'%0.02f');{2λС}
**CopyImage**
ԭͣCopyImage(ͼƬַ,,,,)
أ
˵ͼڰͼ,,,¡,ʾͼƬַеͼ
һ{ͼ)(ԤЧ)}
	ͼƬ:=SetObj('','CreateBitmap');{½λͼ}
	SetObj(ͼƬ,'Width=50 Height=50 '); {趨λͼĿ,߶}
        CopyImage(g.ͼƬ , 0,0,50,50 );{ͼ}
	SetObj(ͼƬ,'Free');{ͷ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SaveImage**
ԭͣSaveImage(ͼƬַ,,,,)
أ
˵Ҫͼ(ͼ)ͼͼƬַ
һ{ͼ)(ԤЧ)}
	ͼƬ:=SetObj('','CreateBitmap');{½λͼ}
	SetObj(ͼƬ,'Width=50 Height=50 '); {趨λͼĿ,߶}
   	SaveImage(g.ͼƬ , 0,0,50,50 );{ȱҪͼͼ󵽾ͼƬ}
	SetObj(ͼƬ,'Free');{ͷ}
**Draw**
ԭͣDraw
أ
˵ĻǰеĻ㡢ߵʾڰ󶨵ĻͼؼУ
һ{Ļ)(ԤЧ)}
	Draw;{Ļ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**DrawRect**
ԭͣDrawRect(,,,)
أ
˵,,,¡򻭵Ļ(߻ͼٶ)
עDrawͼؼʾ,DrawRectĳʾ
һ{ĳ򻭵Ļ)(ԤЧ)}
	DrawRect( 0,0,50,50 ) ; {ĳ򻭵Ļ}
{ͼ.˳ʱ뻭Բ}
@@.ͼ.˳ʱ뻭Բ.fls@@
**SetObj**
ԭͣSetObj(ؼַַ,,ֵ)
أַ
˵ڿؼ޽Ķ󣬻ıԵֵ
עֻһЩõ,SetPropValueø
      GetErrsԻȡϢ
һ{½}
	sForm:=SetObj('','CreateForm');{½}
	SetObj(sForm,'Width=560 Height=300 Text=ҵĴ');{}	
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
{½,һť͵¼}
	sForm:=SetObj('','CreateForm');{½}
	SetObj(sForm,'Width=560 Height=300 Text=ҵĴ');{}	
	sObj:=SetObj(sForm,'CreateButton');{½ť}
	[ҵİť;
		ShowMessage('Hi,ãӭʹ');
	];
	SetObj(sObj,'Text=ҵİť');
	SetObj(sObj,'OnClick=ҵİť');
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
()
{DelphiԿԷṩࣺ
1.ǿӿؼࣺ
TMainMenu,TPopupMenu,TLabel,TEdit,TMemo,TButton,TCheckBox,TRadioButton
,TListBox,TComboBox,TScrollBar,TGroupBox,TRadioGroup,TPanel,
,TSpeedButton,TBitBtn,TMaskEdit,TImage,TScrollBox,TSplitter,TControlBar,TLabeledEdit,TColorBox
,TTabControl,TTabSheet,TPageControl,TRichEdit,TTrackBar,TProgressBar,TUpDown,TAniMate,THotKey
,TDateTimePicker,TTreeView,TListView,TStatusBar,TToolBar,TCoolBar,TComboBoxEx,TPaintBox
,TMediaPlayer,TWebBrowser
	ʹ÷һTMainMenu˵,Ĵ봴˵ؼ
	sForm:=SetObj('','CreateForm');{½}
	SetObj(sForm,'CreateMainMenu');{˵ؼעȥT,sForm}
2.ǲɼ
TFont,TCanvas,TBrush,TPen,TBitmap,TTreeNodes,TTreeNode,TListItems,TListItem,TStringList,TList
,TADOConnection,TADOQuery,TOpenDialog,TSaveDialog,TFontDialog,TColorDialog,TActionList,TImageList,TTimer
	ʹ÷һTFont,Ĵ봴
	sFont:=SetObj('','CreateFont');{½} 
	SetPropValue(sFont,'Style','fsItalic');{Ϊб}
}
{½ǩؼ}
	sForm:=SetObj('','CreateForm');{½}
	sLbl:=SetObj(sForm,'CreateLabel');{½ǩ}
	SetObj(sLbl,'Text=');{ñ}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
ģ{½ı༭ؼ}
	sForm:=SetObj('','CreateForm');{½}
	sEdit:=SetObj(sForm,'CreateEdit');{½ı༭ؼ}
	SetObj(sEdit,'Text=');{ı}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
壺{½ѡؼ}
	sForm:=SetObj('','CreateForm');{½}
	sCheckBox:=SetObj(sForm,'CreateCheckBox');{½ѡؼ}
	SetObj(sCheckBox,'Caption=Ƿ');{ñ}
	SetObj(sCheckBox,'Text=1');{ѡ״̬}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
{½ѡؼ}
	sForm:=SetObj('','CreateForm');{½}
	sRB1:=SetObj(sForm,'CreateRadioButton');{½ѡؼ}
	SetObj(sRB1,'Caption=');{ñ}
	SetObj(sRB1,'Text=1');{ѡ״̬}
	sRB2:=SetObj(sForm,'CreateRadioButton');{½ѡؼ}
	SetObj(sRB2,'Caption=Ů');{ñ}
	SetObj(sRB2,'Text=0');{òѡ״̬}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
ߣ{½Ͽؼ}
	sForm:=SetObj('','CreateForm');{½}
	sCB:=SetObj(sForm,'CreateComboBox');{½Ͽؼ}
	SetObj(sCB,'List=,ר,ר');{б}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
ˣ{½бؼ}
	sForm:=SetObj('','CreateForm');{½}
	sLB:=SetObj(sForm,'CreateListBox');{½бؼ}
	SetObj(sLB,'List=,ר,ר');{б}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
ţ{½ͼؼ}
	sForm:=SetObj('','CreateForm');{½}
	sTV:=SetObj(sForm,'CreateTreeView');{½ͼؼ}
	sTreeNode:='ѧ\r\n	\r\n\tר';{2Tabʾ,Ҳ\tʾ}
	sTreeNode:=GetStr(sTreeNode,0,0,0,0);{\r\nתɻس,\tתtab}
	SetObj(sTV,'List='+sTreeNode);{б}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
ʮ{..ڼؼۺѧϰ}
@@..ڼؼۺѧϰ.fls@@
**GetObj**
ԭͣGetObj(ؼַַ,)
أַ
˵õֵ
עֻܵõһЩõ,GetPropValueܵõ
һ{½,һť͵¼õڱ⣩}
	sForm:=SetObj('','CreateForm');{½}
	SetObj(sForm,'Width=560 Height=300 Text=ҵĴ');{}	
	sObj:=SetObj(sForm,'CreateButton');{½ť}
	[ҵİť;
		ShowMessage('Hi,ãӭʹ'+CrLf+'ڱ:'+GetObj(g.sForm,'Text') );
	];
	SetObj(sObj,'Width=100 Text=õڱ');
	SetObj(sObj,'OnClick=ҵİť');
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
**ؼļ**
˵еÿؼԶһλʾ
      ĵλ	
	PaddingX   ؼҾ루Ĭֵ=4
	PaddingY   ؼϾ루Ĭֵ=4
	MarginX    һпؼ봰ڵ߾루Ĭֵ=10
	MarginY    һпؼ봰ڵϱ߾루Ĭֵ=10
	ObjHeight  ؼĬϸ߶ȣĬֵ=21
	LabelWidth ǩؼĬϿȣĬֵ=60
	TextWidth  ıؼĬϿȣĬֵ=100
	ColX	   ÿؼľ(Ĭ2ؼ1)Ĭֵ=20
	CurX       һؼ봰ڵ߾
	CurY       һؼ봰ڵϱ߾
	IndexObj   һؼֵ
	SavePos    浱ǰм
	LoadPos    ָǰм
һ{..ڼؼۺѧϰ}
@@..ڼؼۺѧϰ.fls@@
**ؼ**
˵DelphiͬʱԷṩĿؼ
      ϤDelphiԣЩ	
ע1.ӿؼͨ
	Text    ıݻ
	Width   
	Left    봰ڻ򸸿ؼ߾
	Top     봰ڻ򸸿ؼϱ߾
	Height  ߶
	Enabled ǷЧЧʱǻɫģ
	Visible Ƿɼ
	TabOrder Tab˳
	Align	 뷽ʽ(Left,Right,Top,Bottom,Clientؼ)
	Parent   ؼ
	Handle   ؼľͼؼHDC
      2.ı༭ؼ(Edit)		
	ReadOnly     Ƿֻ
	MaxLength    󳤶
	BorderStyle  ߿(Single,None)
	PasswordChar ַ(*)
	AllowKey     ַ(0_9ֻ09   FloatֻС)
      3.עıؼ(Memo)		
	ReadOnly     Ƿֻ
      4.(Form)
	ԣ
	ClientHeight ͻ߶
	ClientWidth  ͻ
	HDC	     ͼ
	Position     ʾλ(DesktopCenter,MainFormCenter,OwnerFormCenter,ScreenCenter)
	WindowState  ʾ״̬(Normal,Maximized,Minimized)
		      SetObj(sForm,'WindowState=Maximized');{ʾ}	
	BorderStyle  ߿(DialogԻ,None,Single,Sizeable,SizeToolWin,ToolWindow)
	FormStyle    ڷ(Normal,StayOnTopǰʾ,Desktopʾ)
	
	Free	     ͷŴڼӿؼ
	SaveTextToFile 浽NameԿؼݵı
		磺setobj(sForm,'SaveTextToFile=text.ini') ;{浽text.iniļ}
	LoadTextFromFile ļеʾ
		磺setobj(sForm,'LoadTextFromFile=text.ini') ;{text.iniļеֵʾ}
      5.ǩؼ(Label)
	AlignMent ֶ뷽ʽ(RightJustifyҶ LeftJustify Center
	FontName  
	FontSize  С
	FontColor ɫ
	FontStyle (Bold  Italicб  Underline»  StrikeOutɾ)
	Color     ɫ
	Layout    (Top,Center,Bottom)
	Transparent Ƿ͸(1  0)
      6.ťؼ(Button)
	Default Ƿȱʡ(1  0)
	Cancel  Ƿȡ(1  0)
      7.Ͽ(ComboBox)
	List бݣ硰,Ů
	Style (DropDownListֻб  DropDownԱ༭)  
      8.ѡ(RadioGroup)
	List бݣ硰,Ů
	Columns   
	Caption     
      9.ѡ(RadioButton)  
	Caption 
     10.ѡ(CheckBox)
	Caption 
     11.ͼƬؼ(Image)
	ԣ
	Picture  ָͼƬļ
	Transparent Ƿ͸(1͸ 0)
	AutoSize ǷԶΪͼƬļĴС
	Stretch  ǷͼƬؼĴСͼ
	Center   ǷͼƬ
	Handle   ȡHDC
	
	CopyRect ͼƬ
		磺SetObj(ĿͼƬؼַ,'CopyRect=0,0,205,154,'+ԴͼƬؼַ+','+GetObj('','Screen.Rect') ){0,0,205,154ָϡҡµλ}
        CopyFromImage ͼƬؼͼĿͼƬؼ
		磺SetObj(ĿͼƬؼַ,'CopyFromImage=' + ԴͼƬؼַ);{ԴͼƬĴС}
	SaveToFile ͼƬļ
		磺SetObj(ĿͼƬؼַ,'SaveToFile=c:\a.bmp');
     12.ʱؼ(Timer)
	Interval ʱ()
     13.
	Screen.Width    磬GetObj('','Screen.Width');{ȡ}
	Screen.Height ߶
	Screen.Rect   λ
     14.Ժͷ
	Panel    磺GetObj('','Panel');{ȡôұߵPanelؼַ}
	Script   磺GetObj('','Script');{ȡñ༭Դ}
	IntToHex 磺GetObj('255','IntToHex');{ת16}
	pchar	 磺GetObj(s,'pchar');  {ַתpcharͣһǴapi}
	strpas   磺GetObj(pc,'strpas');{pcharתַһapiķֵ}
	GetProps 磺GetObj(sForm,'GetProps');{ȡôڵԺ¼}
	ctor	 磺GetObj('255','ctor');	{delphiColorתrgb}
	GetDateTime 磺GetObj('0','GetDateTime');{͵ʱתַ}
	ParamStr    磺GetObj('0','ParamStr') ; {õĳĿ¼ļ}
	ParamCount  磺GetObj('','ParamCount');{õеĲ}
	ExtractFilePath 磺GetObj( GetObj('0','ParamStr') ,'ExtractFilePath');{õװĿ¼}
	ClearVars  磺SetObj('','ClearVars');{ȫַ}
	ClearVar   磺SetObj('','ClearVar'); {ȫͱ}
	MessageBox 磺SetObj('','MessageBox=ȷɾǰ¼?,ʾ,1');  {ѯʶԻ (ȷ:1 ȡ:2)}
		       SetObj('','MessageBox=Ƿɾǰ¼?,ʾ,4');    {ѯʶԻ (:  6   :7)}
		       SetObj('','MessageBox=Ƿɾǰ¼?,ʾ,3');    {ѯʶԻ (:  6   :7  ȡ:2)}
	Title 磺SetObj('','Title=ȡɫ');{Ӧóı}
	ICON  磺SetObj('','ICON=NotePad.ico');{Ӧóͼ}
	BoundMessage  磺SetObj('','BoundMessage=786');{ȼϢ}
һ{..ڼؼۺѧϰ}
@@..ڼؼۺѧϰ.fls@@
**ؼ¼**
˵DelphiͬʱԷṩĿؼ
      ϤDelphiԣЩ	
עǱϵͳֵ֧¼
	1.ӿؼͨ¼
	OnClick     
	OnDblClick  ˫
	OnKeyPress      { GetVar(1)ȡֵ  SetVar(1,ֵ)޸ļֵ }
	OnKeyDown   ̰{ Key,Shift GetVar(1),GetVar(4)õSetVar(1,ֵ)޸ļֵ }
	OnKeyUp     ̷ſ{ Key,Shift GetVar(1),GetVar(4)õSetVar(1,ֵ)޸ļֵ }
	OnMouseDown 갴{ x,y,Button,Shift GetVar(1),GetVar(2),GetVar(3),GetVar(4)õ }
	OnMouseUp   ſ{ x,y,Button,Shift GetVar(1),GetVar(2),GetVar(3),GetVar(4)õ }
	OnMouseMove ƶ{ x,y,Shift GetVar(1),GetVar(2),GetVar(4)õ }
	OnDragOver  Ϸž{ x,y,Shift,DragState,Accept,Source GetVar(1),GetVar(2),GetVar(5),GetVar(6),GetVars(8)õSetVar(6,Ƿͬ)޸Acceptֵ }
	OnDragDrop  Ϸŷſ{ x,y,Source GetVar(1),GetVar(2),GetVars(8)õ }
      2.(Form)¼	
	OnShow  ʾʱ
	OnDestroy ͷŴʱ
	OnCloseQuery رմʱ {CanClose GetVar(1)õSetVar(1,Ƿܹر)ɸıCanClose}
      3.Ͽ(ComboBox)¼		
	OnChange ıбʱ
      4.ʱ(Timer)¼
	OnTimer ʱ
      5.ͼؼ(PaintBox)¼
	OnPaint ػʱ
      6.ԶϢ
	OnMessage {SetObj('','OnMessage=ԶϢ');{ԶϢ,úԶϢ}
      עGetVars(9)Իȡ¼Դؼ
һ{..ڼؼۺѧϰ}
@@..ڼؼۺѧϰ.fls@@
**SetPropValue**
ԭͣSetPropValue(ַַ,,ֵ)
أ
˵Delphiֵ
עDelphiͬʱԷṩĿؼ
      ϤDelphiԣЩ	
      GetErrsԻȡϢ
һ{ôڱ}
	sForm:=SetObj('','CreateForm');{½}
	SetPropValue(sForm,'Caption','');{൱ SetObj(sForm,'Text=');}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
**GetPropValue**
ԭͣGetPropValue(ַַ,)
أַ
˵Delphiֵ
עDelphiͬʱԷṩĿؼ
      ϤDelphiԣЩ	
һ{õڱ}
	sForm:=SetObj('','CreateForm');{½}
	GetPropValue(sForm,'Caption');{൱ GetObj(sForm,'Text');}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
**SetObjectProp**
ԭͣSetObjectProp(ַַ,,ԵĶַַ
أַ
˵Delphiֵ
עDelphiͬʱԷṩĿؼ
      ϤDelphiԣЩ	
      GetErrsԻȡϢ
һ{}
	sForm:=SetObj('','CreateForm');{½}
	sLbl:=SetObj(sForm,'CreateLabel');{½ǩ}
	SetObj(sLbl,'Text=');{޸ıǩıΪ}
	sFont:=SetObj('','CreateFont');{½} 
	SetPropValue(sFont,'Style','fsItalic');{Ϊб}
	SetObjectProp(sLbl,'Font',sFont);{ǩΪsFont,Ϊб}
	SetObj(sForm,'Visible=2');{ʾģʽ}
	SetObj(sForm,'Free');{ͷŴڼӿؼ}
**GetErrs**
ԭͣGetErrs
أַ
˵һеĴϢؿմ
עһļ硢ĺϴεĴϢ,һд
	Iffs(GetErr=1,GetErrs,'') ;	
һ{ַǰhttpͳ}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
	s:=GetWebSource('www.SearchCrazy.cn','','');{ǰ治http}
	IfCall( ShowMessage('Ϣ'+GetErrs ) ,GetErr=1) ;
**GetErr**
ԭͣGetErr
أ
˵һǷ1  0ɹ
עһļ硢ĺ
{˫GetErrs鿴}
**ClearErr**
ԭͣClearErr
أ
˵Ϣ
עһļ硢ĺ
**Beep**
ԭͣBeep
أ
˵һ·
һBeep;
{ķ}For(Beep,1,100,1);
**Random**
ԭͣRandom(n)
أ
˵һ>=0<n
һ{ɴ136}Random(36)+1;
**Randomize**
ԭͣRandomize
أ
˵ʼ
һ{ɴ136}
	Randomize;	
	Random(36)+1;
**SaveTempStr**
ԭͣSaveTempStr
أ
˵ʱַ(¼ʱĸ)
ע  2.23汾Զ
	2.20漰£ƵַУɺܶʱַӦֹͷ
	ȫֵַʱset
һ{ͷʱַ}
	SaveTempStr;{ʱַ}
	s:=''+'';
	FreeTempStr;{ͷSaveTempStr֮ɵʱַ}
**FreeTempStr**
ԭͣFreeTempStr
أ
˵ͷʱַ
{˫SaveTempStr鿴ʹ}
**GetCallBack**
ԭͣGetCallBack()
أַ
˵õصַ
{ο.ѵ.ûص}
**GetSysValue**
ԭͣGetSysValue()
أ
˵õϵͳֵ0õϵͳַ 1õַ
עʱԼϵͳɵʱַĸ
һGetSysValue(0);
GetSysValue(1);
**Rev**
ԭͣRev(ַ,ָ)
أַ
˵ָ뵹
һRev('1 2 3',' ');
3 2 1
{ڵĿ뵹}
	Rev(Refss(AllNum+CrLf,3),CrLf);
**Replace**
ԭͣReplace(Ҫ滻ַ,ַ,ַ,ǷִСд)
أַ
˵滻ַ
עǷִСд(1:ִСд 0:)
һReplace('abcd','ab','12',0);
12cd
Replace('ABcdab','ab','12',0);
ABcd12
Replace('ABcdab','ab','12',1);
12cd12
**ReplaceMidS**
ԭͣReplaceMidS(Ҫ滻ַ,ʼַ,ַ,ַ)
أַ
˵滻мַ
עִСд
һReplaceMidS('abcd<a><b>ef','<','>','');
abcdef
**Split**
ԭͣSplit(ַ,ڼ,,ָ)
أַ
˵ַ
һSplit('01 02 03 04',3,2,' ');
03 04
Split('01 02 03  04',3,2,' ');{ĿոҲһַ}
03 
**SplitCount**
ԭͣSplitCount(ַ,nָ)
أ
˵ַָոnָ=0   ţnָ=-1
עnָ=-2ʱַĳ
      nָ>0ʱȰŲ֣Ȼ󰴿ո֣
      ؽҳոֵĸ=nָĸ
һSplitCount('01 02 03 04',0);{ո}
4
SplitCount('01 02 03  04',0);{ĿոҲһַ}
5
SplitCount('1,2,3,04',-1);{Ų}
4
ģSplitCount('1 08,2 7,3,04',2);
{Ų,Ȼ󰴿ո,ոֵĸΪ2}
2
壺{ַĳ}SplitCount('1 08,2',-2);
6
**DivStr**
ԭͣDivStr()
أַ
˵ͶעÿԱӶɵַ
һDivStr(2);{żֲ}
1 0 0 1 1 1 0
{赱ǰΪ36ѡ7е9024
	9 10 12 21 29 35 36
}
DivStr(3);{3ֲ}
**DivStrB**
ԭͣDivStrB()
أַ
˵ͶעĺÿԱӶɵַ
עûк򷵻ؿַ
һDivStrB(2);{żֲ}
**FindPic**
ԭͣFindPic(λ,ͼļ)
أַ
	ҵλ(x,y)ַ͵,磺20 30
	Ҳʱؿմ''
	ҵҲGetVar(1),GetVar(2)õx,yֵ
˵Ļвͼ(ͼļ%ֿ)
һ	{ɨϷЦ}
	RunApp('winmine.exe','',1); {ɨϷ}
	Sleep(500);{ʱ0.5}
	s:=FindPic('0,0,1023,767','set\winmine.bmp'); {Ц}
	ShowMessage('ҵλΪ'+s+' :x='+tos(GetVar(1))+',y='+tos(GetVar(2)) );
**ͼغ**
ԭͣ
һ{滻ͼƬļĳΧɫĵ(ȥˮӡ)(ԤЧ)}
{ͼƬļ,ɫʼֵ,ɫֵ,ɫʼֵ,ɫֵ,ɫʼֵ,ɫֵ,滻ɫ}
{Delphifunction ReplaceImg(fn:pchar;iOldColr,iNewCololr:DWORD):integer;stdcall;External 'pic.dll'}
CallAPIs('pic.dll','ReplaceImg','str,int,int,int,int,int,int,int', 'ͼƬļ'+',230,255,188,255,188,255,16777215');{ֻ֧jpg,gif,bmpʽ}
{ͼƬļˮӡ(ԤЧ)}
{ͼƬļ,xλ,yλ,ɫ,ɫ,Ҫ,,С,ɫʼֵ,ɫֵ,ɫʼֵ,ɫֵ,ɫʼֵ,ɫֵ}
{ɫʼֵ,ɫֵͼƬļܱɫֵЩɫֵᱻǣ}
{Delphifunction DrawText(fn:pchar;x,y,Color,BrushColor:DWORD;Text,FontName:pchar;FontSize:dword;r1,r2,g1,g2,b1,b2:integer):integer;stdcall;External 'pic.dll'}
CallAPIs('pic.dll','DrawText','str,int,int,int,int,str,str,int,int,int,int,int,int,int', 'ͼƬļ'+',8,49,11906559,16777215,www.searchcrazy.com,,18,205,255,205,255,205,255');
**RunApp**
ԭͣRunApp(,,ڷ)
أ
	0ó 1	
˵
	ڷ{0 1 2С 3 ˵API ShowWindow() }
һ{ɨϷ}
	RunApp('winmine.exe','',1); 
{ҳ}
	RunApp('www.searchcrazy.cn','',1); 
**FindCaption**
ԭͣFindCaption(ڱ)
أַ	
˵ģҴڱĵһڣصǴھҲʱؿմ''
һ
RunApp('NotePad.exe','',1);{м±}
Sleep(500);{ʱ0.5}
s:=FindCaption('ޱ');{ģѯΪ'ޱ'ĵһڣصַ͵Ĵھ}
ShowMessage('صĴھΪ'+s);
{ģҴڱ,ضھ}
s:=SetObj('','FindTitles='+'');{,ֿ}
**ActiveWindow**
ԭͣActiveWindow(ڱ)
أ	
˵ģҴڱĵһڣҵʱ1ڣҲ0
{üڡҴڻͼĳʱʱ}
{SetObj('','TimeOutFind=5000');{5볬ʱ,Ĭֵ0}
һ{±}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
RunApp('NotePad.exe','',1);{м±}
Sleep(500);{ʱ0.5}
ShowMessage('׼մ򿪵ļ±');
ActiveWindow('ޱ');
**Click**
ԭͣClick(x,y)
أ
	1
˵Ļx,yָλ
һ{1xpĿʼ˵(1024*768ķֱЧ)}
Click(0,767);
{2LeftDown}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
'ʹapi(ΪõLeftDown)
Uses=API.fls
}
	Move(0,767);{Ƶx=0,y=767}
	LeftDown;{  (ҼΪRightDown) }
	Sleep(20);{ʱ20}
	LeftUp;  {ſ}
**DblClick**
ԭͣDblClick(x,y)
أ
	1
˵˫Ļx,yָλ
һ{1˫xpʱ(1024*768ķֱЧ)}
DblClick(1000,740);
{2LeftDown}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
'ʹapi(ΪõLeftDown)
Uses=API.fls
}
	Move(1000,740);{Ƶx=1000,y=740}
	LeftDown;{}
	Sleep(20);{ʱ20}
	LeftUp;  {ſ}
	Sleep(20);
	LeftDown;
	Sleep(20);
	LeftUp;  
**LockMouseK**
ԭͣLockMouseK
أ
	ɹ1 ʧܣ0
˵
һ
LockMouseK;{}
Sleep(1000);{ʱ1룬ʱǲƶ}
UnLockMouseK;{}
**UnLockMouseK**
ԭͣUnLockMouseK
أ
	ɹ1 ʧܣ0
˵
һLockMouseK
**Sleep**
ԭͣSleep()
أ
	1
˵ʱ
һSleep(500);{ʱ0.5}
**ShowMessage**
ԭͣShowMessage(ַ)
أ
	1
˵ģʽʾϢ
һShowMessage('ӭʹϵ');
{ȷɾǰ¼?}
SetObj('','MessageBox=ȷɾǰ¼?,ʾ,1');  {ѯʶԻ (ȷ:1 ȡ:2)}
{Ƿɾǰ¼?}
SetObj('','MessageBox=Ƿɾǰ¼?,ʾ,4');    {ѯʶԻ (:  6   :7)}
ģ{Ƿɾǰ¼(ȡ)?}
SetObj('','MessageBox=Ƿɾǰ¼?,ʾ,3');    {ѯʶԻ (:  6   :7  ȡ:2)}
**KeyInputs**
ԭͣKeyInputs(Ҫµķַ)
أ
	1
˵ģⰴ(ַ)
һ{www.searchcrazy.cn}
	RunApp('NotePad.exe','',1);{м±}
	Sleep(500);{ʱ0.5}
	KeyInputs('www.searchcrazy.cn');
{123(KeyDown)}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
'ʹapi(ΪõKeyDown)
Uses=API.fls
}
	RunApp('NotePad.exe','',1);{м±}
	Sleep(500);{ʱ0.5}
	KeyDown(49);{1 ('1'ASCIIΪ49)}
	KeyUp(49);{ſ1}
	KeyDown(50);
	KeyUp(50);
	KeyDown(51);
	KeyUp(51);
**KeyInput**
ԭͣKeyInput(ҪµĹַܼ)
أ
	1
˵ģⰴ(ܼ)
	ֻ֧֣Ctrl+A,Ctrl+C,Ctrl+V,F1...F12,INSERT,DELETE,HOME,END,PGUP,PGDN,LEFT,RIGHT,UP,DOWN,TAB,ENTER,BKSP,PRTSC,SHIFT,ESCAPE
һ{1ճı}
	RunApp('NotePad.exe','',1);{м±}
	Sleep(500);{ʱ0.5}
	SetClipBoard('ҳwww.searchcrazy.cn');{ıƵճ}
	KeyInput('Ctrl+V');{Ctrl+V}
	KeyInput('END');{END}
{2ճı}
{
'ʱʾ
NoShowCalc=1
'ʱг
CompileNoRun=1
'ʹapi(ΪõKeyDown)
Uses=API.fls
}
	RunApp('NotePad.exe','',1);{м±}
	Sleep(500);{ʱ0.5}
	SetClipBoard('ҳwww.searchcrazy.cn');{ıƵճ}
	{ʵKeyInput('Ctrl+V');}
	KeyDown(17);{Ctrl (ͨ¼ưõֵ) }
	KeyDown( ord('V') );{V}
	KeyUp(17);
	KeyUp( ord('V') );
	KeyInput('END');{END}
**غ**
ԭͣ
һ{󻯴}
s:=FindCaption('');
CallAPIs('user32.dll','ShowWindow','int,int',s+',3'); {󻯴}
{òҴڻͼĳʱʱ}
SetObj('','TimeOutFind=5000');{5볬ʱ,Ĭֵ0}
{ȡڱ(1)}
{
'ʹapi
Uses=API.fls
}
	sHandle:=FindCaption(''); {Ҵ}
	sTitle:=GetWindowText(sHandle) ; {ȡڱ,set\API.fls}
ģ{ȡڱ(2)}
	h:=FindCaption(''); {Ҵ}
	sMem:=GetMem('256');{256ֽڵڴ}
        CallAPIs('user32.dll','GetWindowTextA','int,int,int',h+','+sMem+',256');
        s:=GetMemValue(sMem,'0',9);{õڴĵ1ֽڿʼַ,9ȡַ}
        FreeMem(sMem);{ͷڴ}
	s;
**SetClipBoard**
ԭͣSetClipBoard(ַ)
أ
	1
˵ճı
{˫KeyInput鿴}
**GetClipBoard**
أַ
˵õճı
һ  SetClipBoard('ҳwww.searchcrazy.cn');
	GetClipBoard;	
**SetRegValue**
ԭͣSetRegValue(,ֵַ)
أ
	ɹ1  ʧܣ0
˵עı
һ{޸ע}
[MyFun;
s:=GetRegValue('\Software\sc','WEB');
ShowMessage('ȡעݣ'+s);
RunApp(s,'',1);{sĳ(ָҳ)}
];
{޸ע}
b:=SetRegValue('\Software\sc','WEB','www.searchcrazy.cn');
IfCall(MyFun,b);{޸ĳɹMyFun}
**GetRegValue**
ԭͣGetRegValue()
أַ
˵õעı
{˫SetRegValue鿴}
**SetIniValue**
ԭͣSetIniValue(,,ֵַ,ļ)
أ
	ɹ1  ʧܣ0
˵ı
һ{޸INIļ}
SetIniValue('Test','Set','','Update.ini');
s:=GetIniValue('Test','Set','Update.ini');
ShowMessage(s);
**GetIniValue**
ԭͣGetIniValue(,,ļ)
أַ
˵õı
{˫SetIniValue鿴}
**WriteFile**
ԭͣWriteFile(ļ,ļ)
أ
	ɹ1  ʧܣ0
˵дıļ
һ{дıļ}
{
'ʱ
NoShowCalc=1
'ʱг
CompileNoRun=1
}
WriteFile('c:\ҳ.txt','www.searchcrazy.cn');
s:=ReadFile('c:\ҳ.txt');
[MyFun;
ShowMessage('ȡҳ:'+g.s);
RunApp(g.s,'',1);{򿪶ȡҳ}
ShowMessage('Ѿҳ:'+g.s);
];
IfCall( MyFun,GetErr=0 );{ļMyFun}
**ReadFile**
ԭͣReadFile(ļ)
أַ
	ɹļ  ʧܣؿַ
˵ȡıļ
{˫WriteFile鿴}
**WriteFileBin**
ԭͣWriteFileBin(ļ,ڴַַ,дַֽ)
أ
	ɹ1  ʧܣ0
˵дļ
һ{дļ}
sm:=GetMem('100');{100ֽڵڴ}
SetMemValue(sm,'0',9,'www.searchcrazy.cn');{ӵ1ֽڿʼַķʽֵΪ'www.searchcrazy.cn'}
SetMemValue(sm,'18',1,'0');{ӵ19ֽڿʼ1ֽڵͷʽֵΪ0ַĽ}
WriteFileBin('c:\ҳ.txt',sm,'19');{дļ,ַͽ19ֽ}
FreeMem(sm);{ͷڴ}
RunApp('c:\ҳ.txt','',1);{ù򿪸ıļ}

{ʾ򿪶ļļ}
sSize:=GetFileSize('c:\ҳ.txt');{ļ}
sm:=GetMem(sSize);{sSizeֽڵڴ}
ReadFileBin('c:\ҳ.txt',sm);{ȡļ,Žsmڴַ}
s:=GetMemValue(sm,'0',9);{õڴĵ1ֽڿʼַ,9ȡַ}
FreeMem(sm);{ͷڴ}
ShowMessage(s);{ʾ}
**ReadFileBin**
ԭͣReadFileBin(ļ,ڴַַ)
أ
	ɹ1  ʧܣ0
˵ȡļ
{˫WriteFileBin鿴}
**UpdateFile**
ԭͣUpdateFile(ļ,ļ,sд볤,Ƿ,sʼλ)
أ
	ɹ1  ʧܣ0
˵ļ
һ{׷ı}
	UpdateFile( 'c:\ҵļ_.txt' ,'','',0,''); {''׷ӵıļ}
{޸ı}
	UpdateFile( 'c:\ҵļ_.txt' ,'','',0,'0'); {һֽڿʼ''޸ĳ''}
{׷Ӷ}
	s:='';
	õĵַ:=GetObj(s,'pchar');
	UpdateFile( 'c:\ҵļ_.txt' ,õĵַ,'4',1,''); {''4ֽ׷ӵıļ}
**GetMem**
ԭͣGetMem(ַֽ)
أַ
	ɹڴַ  ʧܣؿַ
˵ڴ沢0
һ
{һݽṹΪ 
	iCount:int;//ͱռ4ֽڣ
	WEB:char[96];//ֽ飨ռ96ֽڣ
ǲڴṹ}
sm:=GetMem('100');{100ֽڵڴ}
SetMemValue(sm,'0',4,'2147483647');{ڴsm0ʼ4ֽ,32λͷʽֵΪ2147483647(32λͱΧΪ-2147483648..2147483647)}
SetMemValue(sm,'4',9,'www.searchcrazy.cn');{ӵ5ֽڿʼַķʽֵΪ'www.searchcrazy.cn'}

WriteFileBin('c:\ݽṹ_.bin',sm,'100');{ڴsmǰ100ֽдļ}
ShowMessage( 'ļ:'+GetFileSize('c:\ݽṹ_.bin') );
ReadFileBin('c:\ݽṹ_.bin',sm);{ļȡڴsmУҪsmڴĴСļ}

s:=GetMemValue(sm,'0',4);{õڴֵ,4ȡֵ}
ShowMessage('ʾֵ'+s);
s:=GetMemValue(sm,'4',9);{õڴĵ5ֽڿʼַ,9ȡַ}
ShowMessage('ʾַ(ҳ):'+s);
FreeMem(sm);{ͷڴ}
**GetFileSize**
ԭͣGetFileSize(ļ)
أַ
	ɹַ͵ļ  ʧܣؿմ
˵ļȵַ
ע{˫GetMem鿴}
һGetFileSize('c:\boot.ini');
**ļغ**
ԭͣ
һ{ȡĿ¼,\}
s:= GetObj('0','ParamStr') ;{õĳĿ¼ļ}
sPath:= GetObj(s,'ExtractFilePath') ;{Ŀ¼,\}
{ȡнűĿ¼,\}
sPathFls:=GetObj('','Path');
{ȡĵ1}
s:= GetObj('1','ParamStr') ;{õĵ1}
ģ{ɾļ}
CallAPIs('kernel32.dll','DeleteFileA','str','Ҫɾļ·');{ɹͷ'1'}
壺{ļ}
CallAPIs('kernel32.dll','MoveFileA','str,str', 'Դļ'+','+ 'Ŀļ');{ɹͷ'1'}
{ȡĿ¼ļ}
{˫ForFiles鿴}
ShowMessage('οForFiles');
ߣ{ǿƽĿ¼Ŀ¼(1)}
SetObj('','MakeDir=d:\Ŀ¼\Ŀ¼');
ˣ{ǿƽĿ¼Ŀ¼(2)}
CallAPIs('pic.dll','ForceDirectories','str', 'd:\Ŀ¼\Ŀ¼');
ţ{༭.f.fls}
SetObj('','EditFls=set\.ȡȼ.fls');
**FreeMem**
ԭͣFreeMem(ڴַַ)
أ
	ɹ1  ʧܣ0
˵ͷڴ
{˫GetMem鿴}
**SetMemValue**
ԭͣSetMemValue(sڴַ,sʼλ,,sֵַ)
أ
	ɹ1  ʧܣ0
˵дڴ
עʼλã0ʼģ1ֽӦд'0'
		ʼλҪдַ
      ͣ1ռ1ֽڵֵ
	    2ռ2ֽڵֵ
            4ռ4ֽڵֵ
           40ռ4ֽڵĸ
            9дַ
{˫GetMem鿴}
**GetMemValue**
ԭͣGetMemValue(sڴַ,sʼλ,)
أַ
	ɹ1  ʧܣ0
˵ȡڴֵ
עʼλã0ʼģ1ֽӦд'0'
		ʼλҪȡַ
      ͣ1ռ1ֽڵֵ
	    2ռ2ֽڵֵ
            4ռ4ֽڵֵ
           40ռ4ֽڵĸ
            9ȡַ
{˫GetMem鿴}
**CallAPIs**
ԭͣCallAPIs(DLLļ,,,ֵ)
أַ
	ɹ1  ʧܣ0
˵API
עֻ
	4ֽڵͣint
	ַͣ     str
	ֵַ,Ҫϡ;str'int,int;str'
һ{ȡĻĳɫֵ}
{ĻĴھ}
sDestopHwnd:=CallAPIs('user32.dll','GetDC','int','0');
{ȡx=100,y=200ĵɫ}
sColor:=CallAPIs('gdi32.dll','GetPixel','int,int,int',sDestopHwnd+',100,200' );
{ȡĳڱ}
	h:=FindCaption('-Ʊ');{Ҵڱ⺬"-Ʊ"ĵһ}
	sMem:=GetMem('256');{256ֽڵڴ}
        CallAPIs('user32.dll','GetWindowTextA','int,int,int',h+','+sMem+',256');
        s:=GetMemValue(sMem,'0',9);{õڴĵ1ֽڿʼַ,9ȡַ}
        FreeMem(sMem);{ͷڴ}
	s;
**Զ庯**
˵һʽķֵ;Ǻķֵ
      4,ַͲҪǰСдstr
ע[;͡];Ƕ
һ{޲}
	[MyFun;
	 i:=1+1;
	];
	MyFun+1;
3
{в}
	[ҵĺ(x,y);
	 ShowMessage('в:'+tos(x+y));		
	];
	IfCall(ҵĺ(1,2),8>7);{ʾ3}
	IfCall(ҵĺ(1,2),8<7);{ʾ3}
{öͲ}
	st:='';
	[MyFun(str s ,i); {ַӦǰstr}
	 ShowMessage(s);
	 ShowMessage(tos(i));
	 ss:=g.st+s+Crlf+tos(i);{ⲿ(ȫֱ)Ҫǰg.}
	];
	s:=MyFun('',88);
**ⲿ**
˵ⲿļеĺ
һ{áѡ.ҵĹʽ}
	i:=ѡ.ҵĹʽ;
{ѡšǸеһ,ҵĹʽӽڵ}
{ѡ.ҵĹʽӦļǡװĿ¼\set\ѡ.ҵĹʽ.fls}
{ļеĳ}
{衰ⲿļ.flsڰװĿ¼setĿ¼£Ϊ
[Ժ;
	ShowMessage('');
];
}
{ôΪ}
{
'ⲿļǶף
Uses=ⲿļ.fls
}

Ժ;
**ʱг**
˵	->ߵĿ¼->ѡĳ->Ҽ->ʱ
	ĳڼУÿ
**г**
˵	༭->Ҽ->µĽ
	µĽ̶г
****
ԭͣSetObj('','DebugMem=1');
˵ڴй©ʱSetObjCallApisĴ
ע  1.SetObj('','DebugMem=1');Ӧĵһ
	2.,ϵͳд־ļMemError.txtĿ¼AutoKey.exeڵĿ¼
	3.Ӧȥ
	
	ڴй©һõGetMemʱдFreeMemɵ
**ֹ**
˵  Ctrl+F12Խǰеĳ򣬵½еĳֹ
	һڰֹнĳҪֹر
****
˵  óķ
	->ĳɡme_mesetĿ¼»me_me.flsʱʱͻ,Ҳῴ
	Ҫָ棬ͱĳ

