내가 델파이를 위해 쓴 몇 가지 기본 유형

// Java 또는 C#에 익숙한 사람들은 Delphi에 매우 화를 내며 일상적인 일에서는 종종 내 자신의 기본 유형을 수집하려고합니다 여기서 여기에 부적합한 경우 댓글을 달아주십시오.

단위베이스 클래스;

인터페이스

용도

sysutils, classes, strutils, idglobal, 수학;

유형

tCHARSET = 숯 세트;

var

tnormalcharset : tcharset = [ #13, #10, #32, '.', ',', ';'];

유형

tstring = 클래스

사적인

ftext : 문자열;

공공의

기능 charat (Aposition : Integer) : char;

// 지정된 위치의 문자

기능 tolowercase : String;

클래스 함수 TolowerCase (Astring : String) : String;

// 소문자

기능 touppercase : String;

클래스 함수 touppercase (Astring : String) : String;

//수도

클래스 함수 값 (Avalue : String) : 부울;

클래스 함수 값 (Avalue : Boolean) : String;

클래스 함수 stringIn (Avalue : String; Avalues ​​: String의 배열) : 부울;

클래스 함수 왼쪽 (Avalue : String; Alength : Integer) : String;

클래스 함수 오른쪽 (Avalue : String; Alength : Integer) : String;

클래스 함수 deletepRefix (avalue : string; fixedstring : tcharset = [#32]) : string;

클래스 함수 deletesuffix (avalue : string; fixedstring : tcharset = [#32]) : string;

//

클래스 함수 비교 (avalue1 : string; avalue2 : String) : 부울;

클래스 함수 해시 코드 (Avalue : String) : 정수;

클래스 함수 lastchar (Avalue : String) : char;

클래스 함수 stringReplace (const S, OldPattern, NewPattern : String;

플래그 : treplaceflags) : 문자열;

클래스 함수 stringofchar (ch : char; count : Integer) : 문자열;

클래스 함수 setstring (var s : string; 버퍼 : pchar; len : integer) : String;

클래스 함수 getpy (ast : String) : 문자열;

// 해당 Pinyin을 얻습니다.

클래스 함수는 Allchinese (Astr : String) : 부울;

클래스 함수 ISALLENGLISH (AST : String) : 부울;

클래스 함수 getFirstword (Avalue : String; var aword : String; Aseparator : TCHARET) : Integer;

클래스 함수 getFirstword (Avalue : String; var aword : String; AseParator : String) : 정수;

// 리턴 값은 처음부터 문서까지의 길이입니다.

클래스 함수 getAllword (Avalue : String; AseParator : String) : TStringList;

// 모든 키워드를 반환합니다. 그것을 사용한 후에는 결과 세트를 자유롭게하십시오.

// 참고 : 나중에이 기능을 사용하지 마십시오. 다시로드 버전을 사용하십시오

// getAllword (avalue : string; AseParator : String; Astringlist : TStringList);

클래스 절차 getAllword (Avalue : String; AseParator : String; Astringlist : TSTRINGS);

// 모든 결과 세트를 astringlist에로드합니다.

클래스 절차 getAllWordWithAll (avalue : String; AseParator : String; Astringlist : tstrings);

클래스 함수 stringtocharset (avalue : string) : tcharset;

클래스 함수 charSetString (avalue : tcharset) : 문자열;

클래스 함수 updatesentence (aoldstring : 문자열; // 작동중인 문자열

aupdatesource : 문자열;

aupdatestring : 문서;

asentenceeparator : 문자열;

AwordSeparator : String // 문서 분리기;

) : 문자열; /return result.

// 예를 들어 'dbarcode asc, dname desc', 'dbarcode', '', ',', ''의 반환 값

// 'dname desc';

클래스 함수 deleterepeat (AOLDSTRING : String; // 문자를 처리합니다

adletestring : char; // 삭제 될 문자

arepeat : char) : 문자열;

클래스 함수 ifthen (aexpression : boolean; atrue : string; afalse : String) : String;

// 표현식 값에 따라 해당 문자열을 반환합니다.

클래스 함수 Absolutetorelate (Aabsolute : String; acurrent : String) : String;

// 두 파일이 주어지면 절대 경로를 상대 경로로 변환하십시오.

클래스 함수 RelateToAbsolute (Arate : String; Acurrent : String) : String;

클래스 기능 유사 위치 (Aone, Atwo : String) : 정수;

클래스 함수 getCharnum (astring : string; achar : char) : 정수;

클래스 함수 indexof (Astring, Asubstring : String) : 정수;

클래스 함수 Zerotoint (Astring : String) : 정수;

클래스 함수 Zerotofloat (Astring : String) : Double;

클래스 함수 Zerotostr (Astring : String) : String;

클래스 함수 sametext (Astring, Astring1 : String) : 부울;

클래스 함수 리버스 (Astring : String) : 문자열;

클래스 함수 isvalidip (const s : string) : 부울;

클래스 함수 fillstring (achar : char; alength : integer) : 문자열;

클래스 함수 wittsString (const atext : String; astart, alength : cardinal;

const asubtext : string) : 문자열;

클래스 함수 getNextString (var sourcestring : string; asplitchar : String) : String;

끝;

// 정수 유형.

Tinteger = 클래스

클래스 함수 inttostr (Ainteger : Integer) : String;

클래스 함수 inttostr (Ainteger : int64) : String;

클래스 함수 ISVALIDINT (Astring : String) : 부울;

클래스 함수 ISVALIDINT64 (Astring : String) : 부울;

클래스 함수 maxint : 정수;

클래스 함수 maxlongint : 정수;

클래스 함수 해시 코드 (Ainteger : Integer) : 정수;

클래스 함수 inttobin (Ainteger : 추기경) : 문자열;

클래스 함수 inttoHex (Ainteger : Integer) : 문자열;

클래스 함수 hextoint (Astring : String) : 정수;

클래스 함수 Adeerialno (Ainteger : Integer; Adigit : Integer) : String;

끝;

tfloat = 클래스

클래스 함수 ISVALIDFLOAT (Astring : String) : 부울;

클래스 함수 maxdouble : 더블;

클래스 기능 Mindouble : 더블;

클래스 함수 maxextended : 확장;

클래스 함수 minextended : 확장;

클래스 함수 samevalue (const a, b : 싱글; 엡실론 : 단일 = 0) : 부울;

클래스 함수 samevalue (const a, b : double; epsilon : double = 0) : 부울;

클래스 함수 samevalue (const a, b : epsilon : extended = 0) : 부울;

클래스 함수 floattomoney (const 값 : double; round : boolean = true) : 문자열;

끝;

tboolean = 클래스

클래스 함수 booltostr (Aboolean : boolean) : 문자열;

클래스 함수 strtobool (Astring : String) : 부울;

끝;

구현

{tstring}

함수 getpyindexchar (achar : string) : char;

시작하다

CASE WORD (ACHAR [1]) SHL 8 + WORD (ACHAR [2])의

$ b0a1 .. $ b0c4 : 결과 : = 'a';

$ b0c5 .. $ b2c0 : 결과 : = 'b';

$ b2c1 .. $ b4ed : 결과 : = 'c';

$ b4ee .. $ b6e9 : 결과 : = 'd';

$ b6ea .. $ b7a1 : 결과 : = 'e';

$ b7a2 .. $ b8c0 : 결과 : = 'f';

$ b8c1 .. $ b9fd : 결과 : = 'g';

$ b9fe .. $ bbf6 : 결과 : = 'h';

$ bbf7 .. $ bfa5 : 결과 : = 'j';

$ bfa6 .. $ c0ab : 결과 : = 'k';

$ C0AC .. $ C2E7 : 결과 : = 'l';

$ C2E8 .. $ C4C2 : 결과 : = 'M';

$ C4C3 .. $ C5B5 : 결과 : = 'N';

$ C5B6 .. $ C5BD : 결과 : = 'O';

$ c5be .. $ c6d9 : 결과 : = 'p';

$ C6DA .. $ C8BA : 결과 : = 'Q';

$ c8bb .. $ c8f5 : 결과 : = 'r';

$ c8f6 .. $ cbf9 : 결과 : = 's';

$ cbfa .. $ cdd9 : 결과 : = 't';

$ cdda .. $ cef3 : 결과 : = 'w';

$ cef4 .. $ d188 : 결과 : = 'x';

$ d1b9 .. $ d4d0 : 결과 : = 'y';

$ d4d1 .. $ d7f9 : 결과 : = 'z';

또 다른

결과 : = char (0);

끝;

끝;

클래스 함수 tstring.getpy (Astr : String) : 문자열;

var

I : 정수;

시작하다

결과 : = '';

i : = 1에서 길이 (AST)를 위해

시작하다

바이트 타입 (ast, i) = mbtrailbyte 인 경우

결과 : = 결과 + getpyindexchar (ast [i -1] + ast [i])

또 다른

바이트 타입 (ast, i) = mbsinglebyte 인 경우

결과 : = 결과 + ast [i];

끝;

끝;

함수 tstring.charat (Aposition : Integer) : char;

시작하다

결과 : = ftext [aposition];

끝;

클래스 함수 tstring.charsetToString (avalue : tcharset) : 문자열;

시작하다

끝;

클래스 함수 tstring.comparestring (avalue1, avalue2 : string) : 부울;

시작하다

결과 : = 대문자 (avalue1) = 대문자 (avalue2);

끝;

클래스 함수 tstring.deletePrefix (avalue : String;

고정 스트링 : tcharset) : 문자열;

시작하다

system.length (avalue)> 0입니다

시작하다

고정 스트링에서 avalue [1]라면

삭제 (Avalue, 1, 1)

또 다른

부서지다;

끝;

결과 : = avalue;

끝;

클래스 함수 tstring.getFirstword (avalue : String; var aword : String; AseParator : tCharset

) : 정수;

var

tmpstr : 문자열;

TMPPOS : 정수;

시작하다

tmpStr : = deletesuffix (Avalue, Aseparator);

tmpstr : = deletepRefix (Avalue, Aseparator);

결과 : = 길이 (avalue) - 길이 (tmpstr);

{if length (tmpstr) = 0 그런 다음 종료;

if (tmpstr [1] = '' '') 및 (tmpstr [2] = '' '')

시작하다

tmppos의 경우 : = 3에서 길이 (tmpstr)를 수행합니다

시작하다

[ '' '' ']에서 tmpstr [tmppos]라면

부서지다;

끝;

끝;

tmppos> 3 인 경우 tmppos : = tmppos + 2;

}

tmppos의 경우 : = 1에서 길이 (tmpstr)를 수행합니다

시작하다

Aseparator에서 tmpstr [tmppos]라면

부서지다;

끝;

tmppos : = tmppos -1;

// {todo : -oghs가 마지막 매개 변수를 잘못 구문 분석하는 것을 고쳤습니다}

if (tmppos = 0) 및 (avalue <> '')

tmppos : = 길이 (avalue);

aword : = 복사 (Avalue, result + 1, tmppos);

결과 : = 결과 + tmppos;

끝;

클래스 함수 tstring.hashcode (avalue : string) : 정수;

var

I : 정수;

tmpvalue : 정수;

시작하다

tmpvalue : = 0;

i : = 1 to system.length (avalue) do의 경우

시작하다

tmpvalue : = 3 * tmpvalue + ord (avalue [i]);

끝;

결과 : = tmpvalue;

끝;

클래스 함수 tstring.isallchinese (ast : string) : 부울;

var

I : 정수;

시작하다

결과 : = 참;

i : = 1에서 길이 (AST)를 위해

시작하다

바이트 타입 (ast, i) = mbsinglebyte 인 경우

시작하다

결과 : = 거짓;

부서지다;

끝;

끝;

끝;

클래스 함수 tstring.isallenglish (Astr : String) : 부울;

var

I : 정수;

시작하다

결과 : = 참;

i : = 1에서 길이 (AST)를 위해

시작하다

바이트 타입 (ast, i) <> mbsinglebyte라면

시작하다

결과 : = 거짓;

부서지다;

끝;

끝;

끝;

클래스 함수 tstring.lastchar (avalue : String) : char;

시작하다

결과 : = avalue [system.length (avalue)];

끝;

클래스 함수 tstring.left (avalue : string; alength : integer) : 문자열;

시작하다

결과 : = 복사 (avalue, 1, allength);

끝;

클래스 함수 tstring.right (Avalue : String; Alength : Integer) : String;

시작하다

결과 : = strutils.rightstr (avalue, allength);

끝;

클래스 함수 tstring.setString (var s : 문자열; 버퍼 : pchar;

렌 : 정수) : 문자열;

시작하다

System.SetString (S, Buffer, Len);

결과 : = S;

끝;

클래스 함수 tstring.stringin (avalue : 문자열;

Avalues ​​: String의 배열) : 부울;

var

I : 정수;

시작하다

결과 : = 거짓;

i : = 낮은 (Avalues)가 높음 (Avalues)을 수행합니다

시작하다

대문자 인 경우 (Avalue) = 대문자 (Avalues ​​[i])

시작하다

결과 : = 참;

부서지다;

끝;

끝;

끝;

클래스 함수 tstring.stringofchar (ch : char; count : Integer) : 문자열;

시작하다

결과 : = System.Stringofchar (ch, count);

끝;

클래스 기능 tstring.stringreplace (const s, oldpattern,

NewPattern : 문자열;

시작하다

결과 : = sysutils.stringreplace (s, oldpattern, newpattern, flags);

끝;

클래스 함수 tstring.stringtocharset (avalue : string) : tcharset;

var

I : 정수;

시작하다

결과 : = [];

i : = 1에서 길이 (avalue)를 위해

시작하다

결과 : = 결과 + [avalue [i]];

끝;

끝;

함수 tstring.tolowercase : 문자열;

시작하다

결과 : = 소문자 (ftext);

끝;

함수 tstring.toupperCase : 문자열;

시작하다

결과 : = 대문자 (ftext);

끝;

클래스 함수 tstring.valueof (avalue : boolean) : 문자열;

시작하다

그렇다면 Avalue라면

결과 : = '예'

또 다른

결과 : = '아니오';

끝;

클래스 함수 tstring.valueof (avalue : string) : 부울;

시작하다

결과 : = StringIn (avalue, [ 'yes', 'yes', 'ok']);

끝;

클래스 함수 tstring.getFirstword (avalue : String; var aword : String;

ASEPARATOR : String) : 정수;

시작하다

결과 : = getFirstword (Avalue, Aword, StringToCharset (AseParator));

끝;

클래스 함수 tstring.getallword (Avalue, Aseparator : String) : tstringlist;

var

tmplist : tstringlist;

tmpword : 문자열;

시작하다

tmplist : = tstringlist.create;

길이 (avalue)> 0은 수행합니다

시작하다

tmpword : = '';

delete (avalue, 1, getfirstword (avalue, tmpword, aseparator));

tmpword <> ''라면

tmplist.add (tmpword)

또 다른

부서지다;

끝;

결과 : = tmplist;

끝;

클래스 기능 tstring.updatesentence (Aoldstring, Aupdatesource,

aupdatestring, asentenceeparator, awordseparator : String) : 문자열;

var

tmpsentence : 문자열;

tmpword : 문자열;

tmpword1 : 문자열;

I : 정수;

tmpresult : 문자열;

시작하다

// 첫 번째 문장을받습니다

tmpsentence : = aoldstring;

tmpresult : = '';

길이 (tmpsentence)> 0

시작하다

i : = getFirstword (tmpsentence, tmpword, asentenceSeparator);

tmpresult : = tmpresult + left (tmpsentence, i- 길이 (tmpword));

삭제 (tmpsentence, 1, i);

tmpword <> ''라면

시작하다

i : = getFirstword (tmpword, tmpword1, awordseparator);

tmpresult : = tmpresult + left (tmpword, i- 길이 (tmpword1));

비교 (tmpword1, aupdatesource)이면

시작하다

tmpresult : = tmpresult + aupdatestring;

끝

또 다른

시작하다

tmpresult : = tmpresult + tmpword;

끝;

끝;

끝;

tmpresult : = deletepRefix (tmpresult, [ '', ',']);

tmpresult : = deletesuffix (tmpresult, [ '', ',']);

tmpresult : = deleterepeat (tmpresult, ',', '');

tmpresult : = deleterepeat (tmpresult, '', '');

결과 : = tmpresult;

끝;

클래스 함수 tstring.deleteRepeat (Aoldstring : String; Adeletestring,

arepeat : char) : 문자열;

var

I : 정수;

TMPFIND1 : 부울;

시작하다

tmpfind1 : = 거짓;

i : = 길이 (aoldstring) down to 1 do

시작하다

tmpfind1이면

시작하다

aoldstring [i] = Adeletestring이면

삭제 (Aoldstring, I, 1)

또 다른

시작하다

aoldstring [i] = arepeat라면

계속하다;

TMPFIND1 : = AOLDSTRING [i] = adleteString;

끝;

끝

또 다른

시작하다

adleteString <> arepeat라면

aoldstring [i] = arepeat라면

계속하다;

TMPFIND1 : = AOLDSTRING [i] = adleteString

끝;

끝;

결과 : = aoldstring;

끝;

클래스 함수 tstring.deleteSuffix (avalue : 문자열;

고정 스트링 : tcharset) : 문자열;

시작하다

system.length (avalue)> 0입니다

시작하다

고정 스트링에서 avalue [system.length (avalue)]이면

삭제 (avalue, system.length (avalue), 1)

또 다른

부서지다;

끝;

결과 : = avalue;

끝;

클래스 프로 시저 tstring.getallword (Avalue, Aseparator : String;

astringlist : tstrings);

var

tmpword : 문자열;

시작하다

astringlist = nil이면

Astringlist : = tstringlist.create;

길이 (avalue)> 0은 수행합니다

시작하다

tmpword : = '';

delete (avalue, 1, getfirstword (avalue, tmpword, aseparator));

tmpword <> ''라면

astringlist.add (tmpword)

또 다른

부서지다;

끝;

끝;

클래스 기능 tstring.ifthen (aexpression : boolean; atrue,

Afalse : String) : 문자열;

시작하다

그렇다면 aexpression

결과 : = Atrue

또 다른

결과 : = afalse;

끝;

클래스 기능 tstring.absolutetorelate (Aabsolute,

Acurrlent : String) : 문자열;

var

tmpsimilarstring : 문자열;

Aoldfile : 문자열;

I : 정수;

TMPPOS : 정수;

시작하다

// 변환 후, 그것은 .../../a.ini;

// 동일한 드라이브에 있지 않으면 절대 경로로 직접 돌아갑니다.

ExtractFiledrive (Aabsolute) <> ExtractFiledrive (Acurrent)라면

결과 : = aabsolute

또 다른

시작하다

tmpsimilarstring : = '';

Aoldfile : = aabsolute;

aabsolute : = ExtractFilePath (aabsolute);

tmppos : = 유사 위치 (Aabsolute, acurrent);

삭제 (AOLDFILE, 1, TMPPOS -1);

삭제 (acurrent, 1, tmppos -1);

i : = 0의 경우 getCharnum (acurrent, '/') -1 do

시작하다

tmpsimilarstring : = tmpsimilarstring + '../';

끝;

결과 : = tmpsimilarstring + aoldfile;

끝;

끝;

클래스 함수 tstring.RelateToAbsolute (arate, acurrent : string) : 문자열;

var

tmpsimilarstring : 문자열;

tmprootcount : 정수;

I : 정수;

시작하다

길이 (arelate)> 2 인 경우

시작하다

arelate [2] = ':'라면

시작하다

결과 : = arelate;

출구;

끝;

끝;

tmpsimilarstring : = '';

tmprootcount : = 0;

사실이지만

시작하다

leftstr (arelate, 3) = '../'라면

시작하다

Inc (tmprootcount);

삭제 (arelate, 1, 3);

끝

또 다른

부서지다;

끝;

tmpsimilarstring : = 반전 (ExtractFilePath (acurrent));

i : = 0 to tmprootcount do

시작하다

delete (tmpsimilarstring, 1, pos ( '/', tmpsimilarstring));

끝;

결과 : = 반전 (tmpsimilarstring) + arelate;

끝;

클래스 함수 tstring.simarposition (aone, atwo : string) : 정수;

var

I : 정수;

맥스 : 정수;

시작하다

길이 (aone) <길이 (atwo)라면

맥스 : = 길이 (aone)

또 다른

최대 : = 길이 (atwo);

i : = 1에서 max do

시작하다

아네 [i] <> atwo [i]라면

부서지다;

끝;

결과 : = i;

끝;

클래스 함수 tstring.getcharnum (astring : string; achar : char) : 정수;

var

I : 정수;

시작하다

결과 : = 0;

i : = 1에서 길이 (수렴)를 위해

시작하다

일치한다면 [i] = achar라면

Inc (결과);

끝;

끝;

클래스 절차 tstring.getallwordWithAll (Avalue, AseParator : String;

astringlist : tstrings);

var

TMPI : 정수;

TMPPOS : 정수;

시작하다

astringlist = nil이면

Astringlist : = tstringlist.create;

tmppos : = 0;

길이 (avalue)> 0은 수행합니다

시작하다

tmpi의 경우 : = 1에서 길이 (avalue)를 수행합니다

시작하다

tmppos : = pos (avalue [tmppos], Aseparator);

TMPPOS> 0이면

시작하다

astringlist.add (copy (avalue, 1, tmppos -1));

astringlist.add (copy (avalue, tmppos, 1));

삭제 (avalue, 1, tmppos);

부서지다;

끝

끝;

끝; //

끝;

클래스 함수 tstring.tolowercase (Astring : String) : 문자열;

시작하다

결과 : = 소문자 (astring);

끝;

클래스 함수 tstring.toupperCase (Astring : String) : 문자열;

시작하다

결과 : = 대문자 (astring);

끝;

클래스 함수 tstring.indexof (Astring, Asubstring : String) : 정수;

시작하다

결과 : = pos (asubstring, astring);

끝;

클래스 함수 tstring.zerotoint (Astring : String) : 정수;

시작하다

트림 (astring) = ''라면

수술 : = '0';

결과 : = strtoint (Astring);

끝;

클래스 함수 tstring.zerotofloat (Astring : String) : double;

시작하다

트림 (astring) = ''라면

수술 : = '0.0';

결과 : = strtofloat (Astring);

끝;

클래스 함수 tstring.sametext (astring, astring1 : string) : 부울;

시작하다

결과 : = sysutils.sametext (astring, astring1);

끝;

클래스 함수 tstring.reverse (astring : string) : 문자열;

시작하다

결과 : = 반전 (astring);

끝;

클래스 함수 tstring.isvalidip (const s : string) : 부울;

var

J, I : 정수;

LTMP : 문자열;

시작하다

결과 : = 참;

ltmp : = trim (s);

i : = 1 ~ 4가 시작됩니다

j : = strtointDef (fetch (ltmp, '.'), -1);

결과 : = 결과 및 (j> -1) 및 (j <256);

결과가 아니라면 시작하십시오

부서지다;

끝;

끝;

끝;

클래스 함수 tstring.zerotoStr (astring : string) : 문자열;

시작하다

트림 (astring) = ''라면

결과 : = '0'

또 다른

결과 : = astring;

끝;

클래스 함수 tstring.fillstring (achar : char; alength : integer) : 문자열;

var

I : 정수;

시작하다

결과 : = '';

i : = 1에서 allength do // 반복

시작하다

결과 : = 결과 + achar;

끝; //

끝;

클래스 함수 tstring.stuffstring (const atext : string; astart,

Alength : Cardinal 및 Const Asubtext : String) : String;

시작하다

결과 : = strutils.stuffstring (atext, astart, alength, asubtext);

끝;

클래스 함수 tstring.getNextString (var sourcestring : String;

Asplitchar : String) : 문자열;

var

TMPPOS : 정수;

시작하다

tmppos : = pos (Asplitchar, Sourcestring);

tmppos = 0이면

시작하다

결과 : = Sourcestring;

Sourcestring : = ''

끝

또 다른

시작하다

결과 : = tstring.left (sourcestring, tmppos -1);

삭제 (Sourcestring, 1, tmppos);

끝;

끝;

{Tinteger}

클래스 함수 tinteger.inttoStr (Ainteger : Integer) : 문자열;

시작하다

결과 : = sysutils.inttostr (Ainteger);

끝;

클래스 함수 tinteger.hashcode (Ainteger : Integer) : 정수;

시작하다

결과 : = Ainteger;

끝;

클래스 함수 tinteger.inttostr (ainteger : int64) : 문자열;

시작하다

결과 : = sysutils.inttostr (Ainteger);

끝;

클래스 함수 tinteger.isvalidint (Astring : String) : 부울;

시작하다

결과 : = 참;

노력하다

strtoint (Astring);

제외하고

결과 : = 거짓;

끝;

끝;

클래스 함수 tinteger.isvalidint64 (Astring : String) : 부울;

시작하다

결과 : = 참;

노력하다

strtoint (Astring);

제외하고

결과 : = 거짓;

끝;

끝;

클래스 함수 tinteger.maxint : 정수;

시작하다

결과 : = system.maxint;

끝;

클래스 함수 tinteger.maxlongint : 정수;

시작하다

결과 : = System.MaxLongint;

끝;

클래스 함수 tinteger.inttobin (Ainteger : 추기경) : 문자열;

var

I : 정수;

시작하다

setLength (결과, 32);

i : = 1 ~ 32 do

시작하다

if ((Ainteger SHL (I-1)) SHR 31) = 0

결과 [i] : = '0'

또 다른

결과 [i] : = '1';

끝;

끝;

클래스 함수 tinteger.inttoHex (Ainteger : Integer) : 문자열;

시작하다

결과 : = sysutils.inttoHex (Ainteger, 0);

끝;

클래스 함수 tinteger.hextoint (Astring : String) : 정수;

시작하다

tstring.left (astring, 1) = '$'라면

결과 : = strtoint (astring)

또 다른

결과 : = strtoint ( '$' + astring);

끝;

클래스 함수 tinteger.makeserialno (Ainteger, Adigit : Integer) : String;

var

tmpstr : 문자열;

I : 정수;

시작하다

tmpstr : = '';

i : = 0 to idigit -1 do // iterate

시작하다

tmpstr : = tmpstr + '0';

끝; //

결과 : = Formatfloat (tmpstr, ainteger);

끝;

{tfloat}

클래스 함수 tfloat.floattomoney (const value : double; round : boolean) : 문자열;

시작하다

// 금액은 기본적으로 반올림됩니다

끝;

클래스 함수 tfloat.isvalidfloat (astring : string) : 부울;

시작하다

결과 : = 참;

노력하다

strtofloat (Astring);

제외하고

결과 : = 거짓;

끝;

끝;

클래스 함수 tfloat.maxdouble : 더블;

시작하다

결과 : = 1.7E+308;

끝;

클래스 함수 tfloat.maxextended : 확장;

시작하다

결과 : = 1.1e+4932;

끝;

클래스 함수 tfloat.mindouble : 더블;

시작하다

결과 : = 5.0E-324;

끝;

클래스 함수 tfloat.minextended : 확장;

시작하다

결과 : = 3.4E-4932;

끝;

클래스 함수 tfloat.samevalue (const a, b : 싱글;

엡실론 : 싱글) : 부울;

시작하다

결과 : = Math.SameValue (A, B, Epsilon);

끝;

클래스 함수 tfloat.samevalue (const a, b : double;

엡실론 : 더블) : 부울;

시작하다

결과 : = Math.SameValue (A, B, Epsilon);

끝;

클래스 함수 tfloat.samevalue (const a, b : 확장;

엡실론 : 확장) : 부울;

시작하다

결과 : = Math.SameValue (A, B, Epsilon);

끝;

{tboolean}

클래스 함수 tboolean.booltostr (aboolean : boolean) : 문자열;

시작하다

그렇다면 Aboolean

결과 : = 'true'

또 다른

결과 : = '거짓';

끝;

클래스 함수 tboolean.strtobool (Astring : String) : 부울;

시작하다

대문자 (astring) = 'true'라면

결과 : = 참

또 다른

결과 : = 거짓;

끝;

끝.