欢迎来到天天文库
浏览记录
ID:46554280
大小:117.50 KB
页数:12页
时间:2019-11-25
《计算机学习delphi6函数复习指导2》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、计算机学习Delphi6函数复习指导2首部functionTryStrToBool(constS:string;outValue:Boolean):Boolean;$[SysUtils.pas功能返回字符串S转换成逻辑值Value是否成功说明[注意]0为假非0为真;不是Tme利False:Delphi6Bug如卜•修正参考functionSysUtils.AnsiSameText;varSysUtils.TrueBoolStrs;varSysUtils.FalseBoolStrs例子///////BeginTryStrToBoolprocedureTForm1.B
2、utton1Click(Sender:TObject);varB:Boolean;beginSetLength(TrueBoolStrs,2);SetLength(FalseBoolStrs,2);TrueBoolStrsfO]:='True*;FalseBoolStrs[0]:='False';TrueBoolStrs[l]:='Yes';FalseBoolStrs[l]:='No';CheckBox1.Checked:=TryStrToBool(Editl.Text,B);CheckBox2.Checked:=B;end;///////EndTryStrToB
3、ool附加///////BeginTryStrToBoolfunctionTryStrToBool(constS:string;outValue:Boolean):Boolean;functionCompareWith(constaArray:arrayofstring):Boolean;varI:Integer;beginResult:=False;forI:=Low(aArray)toHigh(aArray)doifAnsiSameText(S,aArray[I])thenbeginResult:=True;Break;end;end;varLResult:E
4、xtended;beginResult:=TryStrToFloat(S,LResult);讦ResultthenValue:=LResult<>0elsebeginResult:=True;//修正处VcrifyBoolStrArray;ifCompareWith(TrueBoolStrs)thenValue:=Trueelse讦CompareWith(FalseBoolStrs)thenValue:=FalseelseResult:=False;end;end;///////EndTryStrToBool首部functionBoolToStr(B:Boolea
5、n;UseBoolStrs:Boolean=False):string;S[SysUtils.pas功能返回逻辑值B转换成字符串说明BoolToStr(False,False)='0';BoolToStr(False,True)='-1'参考varSysUtils.TrucBoolStrs;varSysUtils.FalscBoolStrs例子Edit1.Text:=BoolToStr(CheckBox1.Checked,CheckBox2.Checked);首部functionLoadStr(Ident:Integer):string;$
6、SysUtils.pa
7、s功能返冋根据标识Ident的字符串资源说明字符串资源是指程序的内部资源参考functionSysUtils.FindStringResource例了Edit2.Text:=LoadStr(StrToIntDef(Editl.Text,0));首部functionFmtLoadStr(Ident:Integer;constArgs:arrayofconst):string;$[SysUtils.pas功能返回格式化的字符串资源说明字符串资源是指程序的内部资源参考functionSysUtils.FmtStr;functionSysUtils.FindStringR
8、esource例子vNULL>;首部functionFilcOpcn(constFilcNamc:string;Mode:LongWord):Integer;$[SysUtils.pas功能返回打开文件果说明Mode指定打开文件的模式(fmOpenRead,fmOpenWrite,fmOpenReadWrite....);打开失败则返回负数参考functionWindows.CreateFile例子///////BeginFilcOpcn,FilcCloscprocedureTForm1.Button1Click(Sender:TObject);varI:Inte
9、ger;b
此文档下载收益归作者所有