함수 라이브러리

기능 라이브러리:

//대상 문자열과 가장 일치하는 문자열을 찾습니다.
function MaxMatchStr(DestStr:String;Strs:문자열 배열):String;

//텍스트에서 공백 제거
함수 FmtText(텍스트:문자열):문자열;

//부동 소수점 숫자의 형식을 지정하고 부동 소수점 오류를 수정합니다.
함수 FmtFloat(값:확장;숫자:정수=4):Double;

//Str의 하위 문자열 바꾸기
절차 교체Str(var Str:String;const SourceStr,DestStr:String);

//표현식에 항목이 포함되어 있는지 여부
function includeItem(Expression,Item:String):Boolean;

//메시지박스 표시
function MsgBox(const Handle:THandle;Text,Caption:String;
플래그:정수):정수;

//메시지 표시
절차 ShowMsg(Sender:TCustomForm;Msg:String);

//오류를 표시하고 현재 이벤트를 종료합니다.
절차 ShowError(Sender:TCustomForm;Error:String);

//표시 오류
절차 ErrorMsg(발신자:TCustomForm;오류:문자열);

//경고 표시
절차 ShowWarning(Sender:TCustomForm;경고:String);

//레지스트리 데이터 이름과 값을 읽습니다.
프로시저 GetNamesAndValues(Registry:TRegistry;NamesValues:TStrings);

//레지스트리에 데이터 쓰기
절차 WriteValues(레지스트리:TRegistry;ValueNames:문자열 배열;값:변형 배열);

//레지스트리에서 문자열 값을 읽습니다.
함수 ReadRegistString(ARootKey:HKEY;Key,Name:String;DefaultValue:String= ):String;

//문자열 값을 레지스트리에 쓰기
절차 WriteRegistString(ARootKey:HKEY;키,이름,값:문자열);

//레지스트리에서 정수 값을 읽습니다.
함수 ReadRegistInteger(ARootKey:HKEY;Key,Name:String;DefaultValue:Integer=0):Integer;

//정수 값을 레지스트리에 씁니다.
절차 WriteRegistWord(ARootKey:HKEY;Key,Name:String;Value:Integer);

//레지스트리에서 부울 값을 읽습니다.
함수 ReadRegistBool(ARootKey:HKEY;Key,Name:String;DefaultValue:Boolean=False):Boolean;

//레지스트리에 부울 값 쓰기
절차 WriteRegistBool(ARootKey:HKEY;Key,Name:String;Value:Boolean);

//날짜를 중국어 형식으로 표현: XXXX년 XX월 XX일
함수 DateToChina(ADate:TDate):문자열;

//로컬 머신 이름을 가져옵니다.
함수 GetComputerName:문자열;

//임시 파일 디렉터리를 가져옵니다.
함수 GetWinTempDir:문자열;

//시스템 디렉토리 얻기
함수 GetSystemDir:문자열;

//임시 파일명 생성
함수 GetTempFile(PathName,PrefixStr:String;UniqueID:Integer=0):String;