開發(fā)資源庫delphi版幫助函數(shù)

procedurefunctionAbs(N:<Number>):##Abs(-12)=12；Abs(-12.03)=procedureAddExitProc(Proc:functionAddr(X):@AddrprocedureprocedurefunctionAbs(N:<Number>):##Abs(-12)=12；Abs(-12.03)=procedureAddExitProc(Proc:functionAddr(X):@AddrprocedureAddTerminateProc(TermProc:functionAdjustLineBreaks(constS:string):functionAllocMem(Size:Cardinal):Size字節(jié)的塊，即在內(nèi)存里開辟Size0..429496729532functionAnsiCompareFileName(constS1,S2:string):S1>S2|>0S1<S2|<0S1=S2|=functionAnsiCompareStr(constS1,S2:string):functionAnsiCompareText(constS1,S2:string):functionAnsiExtractQuotedStr(varSrc:PChar;Quote:函數(shù)支持多字節(jié)字符系統(tǒng)[MBCS]functionAnsiLastChar(constS:string):##AnsiLastChar(‘Sysoft’)=functionAnsiLowerCase(constS:string):函數(shù)支持多字節(jié)字符系統(tǒng)[MBCS]functionAnsiLowerCaseFileName(constS:string):函數(shù)支持多字節(jié)字符系統(tǒng)[MBCS]functionAnsiPos(constSubstr,S:string):Integer;functionAnsiQuotedStr(constS:string;Quote:Char):string;functionAnsiLowerCase(constS:string):函數(shù)支持多字節(jié)字符系統(tǒng)[MBCS]functionAnsiLowerCaseFileName(constS:string):函數(shù)支持多字節(jié)字符系統(tǒng)[MBCS]functionAnsiPos(constSubstr,S:string):Integer;functionAnsiQuotedStr(constS:string;Quote:Char):string;functionAnsiStrComp(S1,S2:PChar):Integer;functionAnsiStrIComp(S1,S2:PChar):Integer;functionAnsiStrLastChar(P:PChar):PChar;functionAnsiStrLComp(S1,S2:PChar;MaxLen:Cardinal):Integer;functionAnsiStrLIComp(S1,S2:PChar;MaxLen:Cardinal):Integer;functionAnsiStrLower(Str:PChar):PChar;functionAnsiStrPos(Str,SubStr:PChar):PChar;functionAnsiStrRScan(Str:PChar;Chr:Char):PChar;$[SysUtils##AnsiStrRScan(‘Zswangs1234567’,‘s’)=‘s1234567’;functionAnsiStrScan(Str:PChar;Chr:Char):PChar;$[SysUtils##AnsiStrScan(‘Zswangs1234567’,‘s’)=‘swangs1234567’;functionAnsiStrUpper(Str:PChar):PChar;首 functionAnsiToNative(Locale:TLocale;constAnsiStr:string;NativeStr:PChar;Integer):PChar;typeTLocale=procedureAnsiToNativeBuf(Locale:TLocale;Source,Dest:PChar;Len:Integer);functionAnsiUpperCase(constS:string):string;首 functionAnsiToNative(Locale:TLocale;constAnsiStr:string;NativeStr:PChar;Integer):PChar;typeTLocale=procedureAnsiToNativeBuf(Locale:TLocale;Source,Dest:PChar;Len:Integer);functionAnsiUpperCase(constS:string):string;functionAnsiUpperCaseFileName(constS:string):string;procedureAppend(varF:Text);調(diào)用Append前，F(xiàn)必須已與一個(gè)外部文件相聯(lián)系。對用Append打開的文件，僅有合法操作是調(diào)用WriteWritelnprocedureAppendStr(varDest:string;constS:string);將字串S添加到字串DestDestDests;]##AppendStr(‘Sysoft’,‘1999’)=‘Sysoft1999’;functionArcCos(X:Extended):Extended;functionArcCosh(X:Extended):Extended;functionArcSin(X:Extended):Extended;functionArcSinh(X:Extended):Extended;functionArcTan(X:Extended):Extended;functionArcTan2(Y,X:Extended):Extended;functionArcTanh(X:Extended):Extended;procedureAssert(expr:Boolean[;constmsg:string]);$ASSERTIONSON/OFF|(long$C|(shortfunctionAssigned(varP):Boolean;##ifAssigned(Edit1)thenprocedureAssignFile(varF;FileName:string);FFileNameprocedureAssignPrn(varF:Text);$ASSERTIONSON/OFF|(long$C|(shortfunctionAssigned(varP):Boolean;##ifAssigned(Edit1)thenprocedureAssignFile(varF;FileName:string);FFileNameprocedureAssignPrn(varF:Text);procedureAssignStr(varP:PString;constS:string);PStringAnsiStringprocedureAssociateAttr(constAttrID:TAttrID;constFieldID:TFieldID);TID=recordReseved:array[1..6]ofByte;end;TFieldID=typeTID;TAttrID=typeprocedureBeep;產(chǎn)生一個(gè)標(biāo)準(zhǔn)的電腦發(fā)聲beep這個(gè)Beep過程使用了Windows下的API函數(shù)MessageBeep首部functionBeginThread(SecurityAttributes:Pointer;StackSize:LongWord;TThreadFunc;Parameter:Pointer;CreationFlags:LongWord;varThreadId:LongWord):首部procedureBindStub(RepositoryID,InstanceName,HostName:PChar;constOrb:RefCountServer:CorbaBoolean;outStub:IStub);首部procedureBlockRead(varF:File;varBuf:<type>;Count:Integer[;varInteger]);從無類型文件F中讀出Count個(gè)記錄賦予變量Buf首部procedureBlockWrite(varF:File;varBuf:<type>;Count:Integer[;varInteger]);首部functionBounds(ALeft,ATop,AWidth,AHeight:Integer):TRect;X:Longint;Y:Longint;TRect=record0:(Left,Top,Right,X:Longint;Y:Longint;TRect=record0:(Left,Top,Right,Bottom:Integer);1:(TopLeft,BottomRight:TPoint);procedureBreak;functionByteToCharIndex(constS:string;Index:Integer):Integer;如果Index小于和大于S的長度則返回0##ByteToCharIndex(‘12345678’,9)=functionByteToCharLen(constS:string;MaxLen:Integer):Integer;如果Index小于S0;如果Index大于S##ByteToCharLen(‘12345678’,9)=首部functionByteType(constS:string;Index:Integer):TMbcsByteType;typeTMbcsByteType(mbSingleByte,mbLeadByte,mbTrailByte);ByteType(‘國慶節(jié)12’,1)=procedureCancelDrag;functionCeil(X:Extended):Integer;##Ceil(-2.8)=-2;Ceil(2.8)=3;Ceil(-1.0)=-functionChangeFileExt(constFileName,Extension:string):string;##ChangeFileExt(‘zs.txt’,’.ini’)=functionCharsetToIdent(Charset:Longint;varIdent:string):Boolean;如果獲得成功則返回True,否則返回functionCharToByteIndex(constS:string;Index:Integer):Integer;如果Index小于和大于S的長度則返回functionCharToByteLen(constS:string;MaxLen:Integer):Integer;如果Index小于S的長度則返回0;Index大于S的長度則返回procedureChDir(Path:<string>);procedureCheck(Status:Integer);[BDE(BorlandDatabaseEngine)]:functionChr(N:Byte):Char;參數(shù)N表示某ASCII代碼的序號數(shù)值(0-255)functionClassIDToProgID(constClassID:TGUID):string;procedureCheck(Status:Integer);[BDE(BorlandDatabaseEngine)]:functionChr(N:Byte):Char;參數(shù)N表示某ASCII代碼的序號數(shù)值(0-255)functionClassIDToProgID(constClassID:TGUID):string;PGUID=TGUID=recordD2:Word;D3:Word;D4:array[0..7]ofByte;REGDB_E_CLASSNOTREG|Classnotregisteredinthe|Errorreading首部functionClipboard:TClipboard;首部procedureClose(varF:<File>);關(guān)閉文件FprocedureCloseFile(varF:<File>);functionCollectionsEqual(C1,C2:TCollection):Boolean;functionColorToIdent(Color:Longint;varIdent:string):Boolean;##vars,Ident:string;begins:=‘Nose’;ifColorToIdent(clBlack,Ident)thensfunctionColorToRGB(Color:TColor):Longint;typeTColor=-(COLOR_ENDCOLORS+便于WindowsAPIfunctionColorToString(Color:TColor):string;如果Color有系統(tǒng)設(shè)定的顏色則返回該名稱,否則返回其16進(jìn)制形 ##ColorToString(clBlack)‘clBlak’;ColorToString(12)=functionComClassManager:TComClassManager;返回一個(gè)TComClassManagerfunctionCompareMem(P1,P2:Pointer;Length:Integer):Boolean;assembler;functionCompareStr(constS1,S2:string):Integer;functionCompareText(constS1,S2:string):Integer;‘clBlak’;ColorToString(12)=functionComClassManager:TComClassManager;返回一個(gè)TComClassManagerfunctionCompareMem(P1,P2:Pointer;Length:Integer):Boolean;assembler;functionCompareStr(constS1,S2:string):Integer;functionCompareText(constS1,S2:string):Integer;functionConcat(S1[，S2，...，Sn]:<String>):string;procedureContinue;functionCopy(S:<String>;Index,Len:Integer):string;functionCopyPalette(Category:HPALETTE):HPALETTE;HPALETTE[WindowsfunctionCorbaBind(constRepositoryID:string;constObjectName:string='';conststring=''):IObject;functionCorbaBind(constInterfaceID:TGUID;constObjectName:string='';constHostName:string=''):IObject;$[corbaobjfunctionCorbaFactoryCreateStub(constRepId,FactoryId,InstanceName,HostName:string;TGUID):IObject;functionCos(X:Extended):Extended;functionCosh(X:Extended):Extended;functionCotan(X:Extended):Extended;1/首 functionCreateAction(AOwner:TComponent;ActionClass:TBasicActionClass):1/首 functionCreateAction(AOwner:TComponent;ActionClass:TBasicActionClass):functionCreateClassID:string;格式:['{xxxxxxxx-xxx-xxx-xxx-functionCreateComObject(constClassID:TGUID):IUnknown;PGUID=TGUID=recordD2:Word;D3:Word;D4:array[0..7]ofByte;functionCreateDir(constDir:string):Boolean;如果創(chuàng)建成功返回True,否則返回functionCreateField(Owner:TComponent;Dataset:TDataset);constFieldname,Origin:FieldID:TFieldID;constAttrID:TAttrID):TField;TID=recordReseved:array[1..6]ofByte;end;TFieldID=typeTID;TAttrID=typefunctionCreateGrayMappedBmp(Handle:HBITMAP):HBITMAP;functionCreateGrayMappedRes(Instance:THandle;ResName:PChar):HBITMAP;首 functionCreateMappedBmp(Handle:HBITMAP;constOldColors,NewColors:arrayofHBITMAP; functionCreateMappedRes(Instance:THandle;ResName:PChar;constOldColors,NewColors:arrayofTColor):HBITMAP;$[Graphics首部functionCreateMessageDialog(constMsg:string;DlgType:TMsgDlgType;TMsgDlgButtons):TForm;typeTMsgDlgType(mtWarning,mtError,mtInformation,mtConfirmation,mtCustom);mtWarning|黃色感嘆號MtInformation|藍(lán)色"i"MtConfirmation|綠色問號MtCustom|typeTMsgDlgType(mtWarning,mtError,mtInformation,mtConfirmation,mtCustom);mtWarning|黃色感嘆號MtInformation|藍(lán)色"i"MtConfirmation|綠色問號MtCustom|[Thecaptionofthemessageboxisthenameoftheapplication'sexecutablefile.]functionCreateOleObject(constClassName:string):IDispatch;procedureCreateRegKey(constKey,ValueName,Value:string);首部functionCreateRemoteComObject(constMachineName:WideString;constClassID:IUnknown;functionCreateSharedPropertyGroup(constName:WideString):ISharedPropertyGroup;functionCreateSharedPropertyGroupManager:ISharedPropertyGroupManager;functionCreateTransactionContext:ITransactionContext;functionCreateTransactionContextEx:ITransactionContextEx;$[functionCurrToFMTBCD(Curr:Currency;varBCD:FMTBcd;Precision,Decimals:Boolean;首部functionCurrToStr(Value:Currency):string;functionCurrToStrF(Value:Currency;Format:TFloatFormat;Digits:Integer):typeTFloatFormat=(ffGeneral,ffExponent,ffFixed,ffNumber,首部functionCursorToIdent(Cursor:Longint;varIdent:string):Boolean;typeTCursor=-s:string;b1,b2:boolean;beginb1:=CursorToIdent(crDefault,b2CursorToIdent(100,s);end;{b1=True;b2=s:string;b1,b2:boolean;beginb1:=CursorToIdent(crDefault,b2CursorToIdent(100,s);end;{b1=True;b2=首部functionCursorToString(Cursor:TCursor):string;CursorToString(crDefault)‘crDefault’;CursorToString(100)=‘100’functionCycleToRad(Cycles:Extended):Extended;radians=2pi*cyclesprocedureDatabaseError(constMessage:string;Component:TComponent=nil);procedureDatabaseErrorFmt(constMessage:string;constArgs:arrayofconst;TComponent=nil);functionDate:TDateTime;typeTDateTime=typefunctionDateTimeToFileDate(DateTime:TDateTime):Integer;functionDateTimeToStr(DateTime:TDateTime):string;procedureDateTimeToString(varNewString:string;constFormat:string;DateTime:首部procedureDateTimeToSystemTime(DateTime:TDateTime;varSystemTime:將Delphi的日期時(shí)間類型參數(shù)DateTime轉(zhuǎn)換為Windows的日期時(shí)間格式，返回至SystemTimePSystemTime=wYear:Word;wMonth:Word;wDayOfWeek:Word;wDay:Word;wHour:Word;wMinute:Word;wSecond:Word;首部functionDateTimeToTimeStamp(DateTime:TDateTime):TTimeStamp;Time:Integer;Date:Integer;{Numberofmillisecondssincemidnight{Oneplusnumberofdayssince1/1/0001functionDateToStr(Date:TDateTime):string;functionDayOfWeek(Date:TDateTime):Integer;procedureDBError(Ident:Word);procedureDBErrorFmt(Ident:Word;constArgs:arrayofconst);procedureDBIError(ErrorCode:DBIResult);procedureDec(varX:<Ordinal>[;N:Longint]);Time:Integer;Date:Integer;{Numberofmillisecondssincemidnight{Oneplusnumberofdayssince1/1/0001functionDateToStr(Date:TDateTime):string;functionDayOfWeek(Date:TDateTime):Integer;procedureDBError(Ident:Word);procedureDBErrorFmt(Ident:Word;constArgs:arrayofconst);procedureDBIError(ErrorCode:DBIResult);procedureDec(varX:<Ordinal>[;N:Longint]);取有序變量X的第N個(gè)前趨。相當(dāng)于fori:=1toNdoX:=procedureDecodeDate(Date:TDateTime;varYear,Month,Day:Word);將Delphir的日期時(shí)間類型參數(shù)DateTime分解為年、月、日返回至YearMonthDayprocedureDecodeTime(Time:TDateTime;varHour,Min,Sec,MSec:Word);將Delphir的日期時(shí)間類型參數(shù)DateTime分解為時(shí)、分、秒、毫秒返回至HourMinSecMsecfunctionDegToRad(Degrees:Extended):Extended;radians=degrees(pi/180)procedureDelete(varS:string;Index,Len:Integer);則就刪除至串尾為止。##s:='HonestAbeLincoln';Delete(s,8,4);{s='HonestLincoln'functionDeleteFile(constFileName:string):Boolean;procedureDeleteRegKey(constKey:string);procedureDestroyMetaPict(MetaPict:HGlobal);functionDictionaryActive:Boolean;procedureDictionaryDeactivate;functionDirectoryExists(Name:string):Boolean;##DirectoryExists(‘c:’)=functionDiskFree(Drive:Byte):Int64;則DiskFree返回-1functionDiskSize(Drive:Byte):Int64;參見DiskFreeprocedureDispose(varP:Pointer);procedureDictionaryDeactivate;functionDirectoryExists(Name:string):Boolean;##DirectoryExists(‘c:’)=functionDiskFree(Drive:Byte):Int64;則DiskFree返回-1functionDiskSize(Drive:Byte):Int64;參見DiskFreeprocedureDispose(varP:Pointer);procedureDisposeStr(P:PString);functionDllCanUnloadNow:HResult;stdcall;functionDllGetClassObject(constCLSID,IID:TGUID;varObj):HResult;stdcall;functionDllRegisterServer:HResult;stdcall;functionDllUnregisterServer:HResult;stdcall;functionDosPathToUnixPath(constPath:string):string;functionDoubleDecliningBalance(Cost,Salvage:Extended;Life,Period:Integer):functionEncodeDate(Year,Month,Day:Word):TDateTime;functionEncodeTime(Hour,Min,Sec,MSec:Word):TDateTime;首部functionEndThread(ExitCode:Integer);procedureEnumDispatchProperties(Dispatch:IDispatch;PropType:TGUID;VTCode:PropList:TStrings);首部首部functionEndThread(ExitCode:Integer);procedureEnumDispatchProperties(Dispatch:IDispatch;PropType:TGUID;VTCode:PropList:TStrings);首部procedureEnumRegisteredActions(Proc:TEnumActionProc;Info:Pointer);typeTEnumActionProc=procedure(constCategory:string;ActionClass:TBasicActionClass;Info:Pointer)ofobject;首部procedureEnumResourceModules(Func:TEnumModuleFunc;Data:Pointer);typeTEnumModuleFunc=function(HInstance:Longint;Data:Pointer):首部functionEof[(varF:<File>)]:Boolean;#26(Ctrl-Z)時(shí)返回True首部functionEoln[(varF:Text)]:Boolean;當(dāng)F的文件指針到達(dá)行尾或文件尾時(shí)，Eoln返回True，否則，返回False。行尾字符集為#13#10(Enter)首部procedureErase(varF:<File>);EraseF關(guān)閉。若對應(yīng)外部文件不存在，則IOResult0functionExceptAddr:Pointer;functionExceptionErrorMessage(ExceptObject:TObject;ExceptAddr:Pointer;Buffer:PChar;Integer):Integer;$[SysUtilsfunctionExceptObject:TObject;procedureExclude(varS:setofT;I:T);procedureExit;functionExp(X:Real):Real;e是自然對數(shù)底，值為2.7182818285functionExpandFileName(constFileName:string):string;functionExpandUNCFileName(constFileName:string):string;UNCfunctionExtractFileDir(constFileName:string):string;functionExp(X:Real):Real;e是自然對數(shù)底，值為2.7182818285functionExpandFileName(constFileName:string):string;functionExpandUNCFileName(constFileName:string):string;UNCfunctionExtractFileDir(constFileName:string):string;##ExtractFileDir(‘c:\pascal\zs.pas’)=functionExtractFileDrive(constFileName:string):string;ExtractFileDrive(‘c:\pascal\zs.pas’functionExtractFileExt(constFileName:string):string;ExtractFileExt(‘c:\pascal\zs.pas’functionExtractFileName(constFileName:string):string;ExtractFileName(‘c:\pascal\zs.pas’functionExtractFilePath(constFileName:string):string;ExtractFilePath(‘c:\pascal\zs.pas’functionExtractRelativePath(constBaseName,DestName:string):string;ExtractRelativePath(‘\c:\DelphiZS\’,‘pascal\zs.pas’)=‘..\..\zs.pas’;=functionExtractShortPathName(constFileName:string):string;##ExtractShortPathName(‘C:\ProgramFiles’)=functionFileAge(constFileName:string):Integer;procedureFileClose(Handle:Integer);functionFileCreate(constFileName:string):Integer;functionFileDateToDateTime(FileDate:Integer):TdateTime;functionFileExists(constFileName:string):Boolean;functionFileGetAttr(constFileName:string):Integer;functionFileGetDate(Handle:Integer):Integer;functionfunctionFileDateToDateTime(FileDate:Integer):TdateTime;functionFileExists(constFileName:string):Boolean;functionFileGetAttr(constFileName:string):Integer;functionFileGetDate(Handle:Integer):Integer;functionFileOpen(constFileName:string;Mode:Integer):Integer;functionFilePos(varF):Longint;functionFileRead(Handle:Integer;varBuffer;Count:Integer):Integer;functionFileSearch(constName,DirList:string):string;functionFileSeek(Handle,Offset,Origin:Integer):Integer;overload;$[SysUtilsfunctionFileSeek(Handle:Integer;constOffset:Int64;Origin:Integer):Int64;overload;fileseek函數(shù)改變文件的指針functionFileSetAttr(constFileName:string;Attr:Integer):Integer;functionFileSetDate(Handle:Integer;Age:Integer):Integer;functionFileSize(varF):Integer;functionFileWrite(Handle:Integer;constBuffer;Count:Integer):Integer;首部procedureFillChar(varX;Count:Integer;value:<Byte>);##varS:array[0..79]ofchar;SizeOf(S),'');end; S}procedureFinalize(varV[;Count:Integer]);procedureFinalizePackage(Module:HMODULE);functionFindAttrID(constAttrName:string):TAttrID;TID=首部procedureFillChar(varX;Count:Integer;value:<Byte>);##varS:array[0..79]ofchar;SizeOf(S),'');end; S}procedureFinalize(varV[;Count:Integer]);procedureFinalizePackage(Module:HMODULE);functionFindAttrID(constAttrName:string):TAttrID;TID=recordReseved:array[1..6]ofByte;end;TAttrID=typeTID;functionFindClass(constClassName:string):TPersistentClass;functionFindClassHInstance(ClassType:TClass):Longint;procedureFindClose(varF:TSearchRec);functionFindCmdLineSwitch(constSwitch:string;SwitchChars:Boolean):Boolean;typeTSysCharSet=setoffunctionFindControl(Handle:HWnd):TWinControl;functionFindDatabaseID(constDatabase:string):TDatabaseID;TID=recordReseved:array[1..6]ofByte;end;TDatabaseID=typeTID;functionFindDragTarget(constPos:TPoint;AllowDisabled:Boolean):TControl;functionFindFieldID(constTable:TTableID;constField:string):TFieldID;TID=recordReseved:array[1..6]ofByte;end;TTableID=typeTID;TFieldID=type首部functionFindFirst(constPath:string;Attr:Integer;varF:TSearchRec):TFieldID=type首部functionFindFirst(constPath:string;Attr:Integer;varF:TSearchRec):functionFindNext(varF:TSearchRec):Integer;functionFindResourceHInstance(Instance:LongWord):Longint;functionFindTableID(constDatabase:TDatabaseID;constTable:string):TTableID;functionFindVCLWindow(constPos:TPoint):TWinControl;typeTPoint=recordX:Longint;procedureFloatToDecimal(varDecVal:TFloatRec;constValue;ValueType:Precision,Decimals:Integer);typeTFloatRec=Negative:Boolean;Digits:array[0..20]ofChar;首部functionFloatToStr(Value:Extended):string;##FloatToStr(Pi)=‘3.14159265358979’;FloatToStr(0.000000001)=‘1E-首部functionFloatToStrF(Value:Extended;Format:TFloatFormat;Precision,Digits:Integer):string;$[SysUtilstypeTFloatFormat=(ffGeneral,ffExponent,ffFixed,ffNumber,首部functionFloatToText(Buffer:PChar;constValue;ValueType:TFloatValue;TFloatFormat;Precision,Digits:Integer):Integer;typeTFloatValue=(fvExtended,首部functionFloatToTextFmt(Buffer:PChar;constValue;ValueType:TFloatValue;Format:Integer;首部functionFloor(X:Extended):Integer;##Floor(-2.8)=-3;Floor(2.8)=2;Floor(-1.0)=-procedureFlush(varF:Text);functionFMTBCDToCurr(constBCD:FMTBcd;varCurr:Currency):Boolean;functionFmtLoadStr(Ident:Integer;constArgs:arrayofconst):string;##Floor(-2.8)=-3;Floor(2.8)=2;Floor(-1.0)=-procedureFlush(varF:Text);functionFMTBCDToCurr(constBCD:FMTBcd;varCurr:Currency):Boolean;functionFmtLoadStr(Ident:Integer;constArgs:arrayofconst):string;procedureFmtStr(varStrResult:string;constFormat:string;constArgs:arrayoffunctionFontToOleFont(Font:TFont):Variant;procedureForceDirectories(Dir:string);functionFormat(constFormat:string;constArgs:arrayofconst):string;ofconst):Cardinal;$[SysUtilsfunctionFormatCurr(constFormat:string;Value:Currency):string;functionFormatDateTime(constFormat:string;DateTime:TDateTime):string;cd(1-dd(01-mm(01-hh(00-n(0-nn(0-s(0-ss(00-/:##hh(00-n(0-nn(0-s(0-ss(00-/:##FormatDateTime('"Themeetingison"dddd,mmmmd,yyyy,'+'"at"hh:mmAM/PM',StrToDateTime('2/15/9510:30am'));##='ThemeetingisonWednesday,February15,1995at10:30functionFormatFloat(constFormat:string;Value:Extended):string;functionFormatMaskText(constEditMask:string;constValue:string):string;functionFrac(X:Extended):Extended;##Frac(X)=X-Int(X)procedureFrame3D(Canvas:TCanvas;varRect:TRect;TopColor,BottomColor:TColor;Integer);procedureFreeMem(varP:Pointer[;Size:Integer]);procedureFrexp(X:Extended;varMantissa:Extended;varExponent:Integer)register;functionFutureValue(Rate:Extended;NPeriods:Integer;Payment,PresentValue:PaymentTime:TPaymentTime):Extended;首部functionGetActiveOleObject(constClassName:string):IDispatch;首部functionGetAttrID(constFieldID:TFieldID):TAttrID;TID=recordReseved:array[1..6]ofByte;end;TFieldID=typeTID;TAttrID=typefunctionGetAttrName(constAttrID:TAttrID):string;procedureGetAttrNames(Proc:TGetStrProc):string;typeTGetStrProc=procedure(constS:string)ofTID=recordReseved:array[1..6]ofByte;end;TFieldID=typeTID;TAttrID=typefunctionGetAttrName(constAttrID:TAttrID):string;procedureGetAttrNames(Proc:TGetStrProc):string;typeTGetStrProc=procedure(constS:string)offunctionGetCaptureControl:TControl;procedureGetCharsetValues(Proc:TGetStrProc);typeTGetStrProc=procedure(constS:string)offunctionGetClass(constClassName:string):TPersistentClass;procedureGetColorValues(Proc:TGetStrProc);functionGetComCtlVersion:Integer;functionGetControlClass(constAttrID:TAttrID):string;$[functionGetCurrentDir:string;procedureGetCursorValues(Proc:TGetStrProc);functionGetDefFontCharSet:TFontCharSet;typeTFontCharset=functionGetDIB(Bitmap:HBITMAP;Palette:HPALETTE;varBitmapInfo;Bits):首部procedureGetDIBSizes(Bitmap:HBITMAP;varInfoHeaderSize:DWord;varImageSize:首部procedureGetDir(Drive:Byte;varPath:string);functionGetExtensionVersion(varVer:THSE_VERSION_INFO):BOOL;THSE_VERSION_INFO=packedrecorddwExtensionVersion:DWORD;首部procedureGetDir(Drive:Byte;varPath:string);functionGetExtensionVersion(varVer:THSE_VERSION_INFO):BOOL;THSE_VERSION_INFO=packedrecorddwExtensionVersion:DWORD;lpszExtensionDesc:array[0..HSE_MAX_EXT_DLL_NAME_LEN-1]ofChar;procedureGetFormatSettings;functionGetHeapStatus:THeapStatus;$[SystemorTHeapStatus=recordTotalAddrSpace:Cardinal;TotalCommitted:Cardinal;TotalAllocated:Cardinal;TotalFree:Cardinal;FreeSmall:Cardinal;FreeBig:Cardinal;Unused:Cardinal;Overhead:Cardinal;functionGetLongHint(constHint:string):string;procedureGetMem(varP:<Pointer>;Size:Integer);procedureGetMemoryManager(varMemMgr:TMemoryManager);procedureGetOleFont(Font:TFont;varOleFont:IFontDisp);procedureGetOlePicture(Picture:TPicture;varOlePicture:IPicture);procedureGetOleStrings(Strings:TStrings;varOleStrings:IStrings);functionGetPackageDescription(ModuleName:PChar):string;procedureGetPackageInfo(Module:HMODULE;Param:Pointer;varFlags:TPackageInfoProc);procedureGetOleStrings(Strings:TStrings;varOleStrings:IStrings);functionGetPackageDescription(ModuleName:PChar):string;procedureGetPackageInfo(Module:HMODULE;Param:Pointer;varFlags:TPackageInfoProc);functionGetParentForm(Control:TControl):TCustomForm;functionGetShortHint(constHint:string):string;functionGradToRad(Grads:Extended):Extended;radians=grads(pi/200)functionGraphicExtension(GraphicClass:TGraphicClass):string;GraphicFileextensionTicon|icoTmetafile|emfTJPEGImage|functionGraphicFilter(GraphicClass:TGraphicClass):string;GraphicFilterstringTbitmap|*.bmpTIcon|Tmetafile|*.emf;*.wmfTJPEGImage|*.jpeg;*.jpgTGraphic|functionGraphicFileMask(GraphicClass:TGraphicClass):string;$[GraphicFilterstringTbitmap|Bitmaps(*.bmp)／*.bmpTicon|Icons(*.ico)／*.icoTmetafile|All(*.emf;*.wmf)／*.emf;*.wmf／EnhancedMetafiles(*.emf)／*.emfTJPEGImage|All(*.jpeg;*.jpg)／*.jpeg;*.jpg／JPEGImageFile(*.jpeg)／*.jpeg／JPEGImageFile(*.jpg)／*.jpgTGraphic|首部functionGUIDToString(constClassID:TGUID):string;首部procedureHalt[(Exitcode:Integer)];functionHasConstraints(Dataset:TDBDataset):Boolean;首部functionGUIDToString(constClassID:TGUID):string;首部procedureHalt[(Exitcode:Integer)];functionHasConstraints(Dataset:TDBDataset):Boolean;functionHi(X:<Integer>):Byte;函數(shù)Hi把X看作一個(gè)無符號數(shù)組，返回其市位字節(jié)。##Hi($1234)=functionHigh(X);##consta:array[1..4]ofinteger=(8,12,3,-6);varI:Integer;begini:=High(a);end;{i=4}首部functionHtmlTable(DataSet:TDataSet;DataSetHandler:TDSTableProducer;MaxRows:Integer):string;$[DBWeb首部functionHttpExtensionProc(varECB:TEXTENSION_CONTROL_BLOCK):DWORD;typeDWORD=Longword;TEXTENSION_CONTROL_BLOCK=packedrecordcbSize:DWORD;ConnID:HCONN;dwHttpStatusCode:lpszLogData:array[0..HSE_LOG_BUFFER_LEN-1]ofChar;lpszMethod:PChar;lpszQueryString:PChar;lpszPathInfo:PChar;cbTotalBytes:DWORD;cbAvailable:DWORD;lpbData:Pointer;WriteClient:TWriteClientProc;ReadClient:TReadClientProc;PEXTENSION_CONTROL_BLOCK=//sizeofthis//versioninfoofthis//Contextnumbernotto//HTTPStatus//DLLspecificlog//////////Totalbytesindicated//Availablenumberof//pointertocbAvailable//ContenttypeofclientfunctionHypot(X,Y:Extended):Extended;$[MathSqrt(X**2+Y**2)。functionIdentToCharset(constIdent:string;varCharset:Longint):Boolean;functionIdentToColor(constIdent:string;varColor:Longint):Boolean;functionfunctionHypot(X,Y:Extended):Extended;$[MathSqrt(X**2+Y**2)。functionIdentToCharset(constIdent:string;varCharset:Longint):Boolean;functionIdentToColor(constIdent:string;varColor:Longint):Boolean;functionIdentToCursor(constIdent:string;varCursor:Longint):Boolean;procedureInc(varX[;N:Longint]);取有序變量X的第N個(gè)后繼。相當(dāng)于fori:=1toNdoX:=procedureInclude(varS:setofT;I:T);$[System將新的元素I,添加到集合S中。{等價(jià)于S:=S+[I]}functionIncMonth(constDate:TDateTime;NumberOfMonths:Integer):TDateTime;functionInitCommonControl(CC:Integer):Boolean;procedureInitialize(varV[;Count:Integer]);procedureInitializePackage(Module:HMODULE);functionInputBox(constACaption,APrompt,ADefault:string):string;AcaptionAPrompt表示提示，ADefaultfunctionInputQuery(constACaption,APrompt:string;varValue:string):Boolean;procedureInsert(Source:string;varS:string;Index:Integer);##S:='HonestLincoln';Insert('Abe',S,8);{'HonestAbeLincoln'functionInt(X:Extended):Extended;##Int(123.456)123.0;Int(-123.456)123.0首部functionInterestPayment(Rate:Extended;Period,NPeriods:Integer;FutureValue:Extended;PaymentTime:TPaymentTime):Extended;##Int(123.456)123.0;Int(-123.456)123.0首部functionInterestPayment(Rate:Extended;Period,NPeriods:Integer;FutureValue:Extended;PaymentTime:TPaymentTime):Extended;functionInterestRate(NPeriods:Integer;Payment,PresentValue,FutureValue:PaymentTime:TPaymentTime):Extended;首部procedureInterfaceConnect(constSource:IUnknown;constIID:TIID