Beberapa jenis dasar yang saya tulis untuk Delphi

Penulis：Eve Cole Waktu Pembaruan：2025-03-13 02:16:01

// Orang -orang yang terbiasa dengan Java atau C# mungkin sangat marah dengan Delphi dan bahkan tidak memiliki tipe dasar mereka di sini.

Baseclass unit;

antarmuka

penggunaan

Sysutils, kelas, strutils, idglobal, matematika;

jenis

TCharset = set char;

var

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

jenis

TString = kelas

Pribadi

Ftext: string;

publik

Fungsi charaat (aposisi: integer): char;

// huruf dari posisi yang ditentukan

Fungsi Tolowercase: String;

Fungsi Kelas Tolowercase (Astring: String): String;

// Lower case

Fungsi Touppercase: String;

Fungsi kelas Touppercase (astring: string): string;

//modal

nilai fungsi kelas (avalue: string): boolean;

nilai fungsi kelas (avalue: boolean): string;

Fungsi kelas stringin (avalue: string; avalues: array string): boolean;

Fungsi kelas kiri (avalue: string; allength: integer): string;

Fungsi kelas kanan (avalue: string; allength: integer): string;

Fungsi kelas DeletePrefix (Avalue: String; FixedString: TCharset = [#32]): String; // Hapus awalan

Fungsi Kelas DeleteSuffix (Avalue: String; FixedString: TCharset = [#32]): String; // Hapus akhiran

Perbandingan fungsi kelas (avalue1: string; avalue2: string): boolean;

Fungsi kelas hashCode (avalue: string): integer;

Fungsi kelas lastchar (avalue: string): char;

Fungsi Kelas StringReplace (Const S, OldPattern, NewPattern: String;

Bendera: treplaceflags): string;

Fungsi kelas stringofchar (ch: char; count: integer): string;

Fungsi Kelas SetString (var s: string; buffer: pchar; len: integer): string;

Fungsi kelas getpy (astr: string): string;

// Dapatkan pinyin yang sesuai.

Fungsi kelas isallchinese (astr: string): boolean;

fungsi kelas isallenglish (astr: string): boolean;

Fungsi kelas getFirstword (avalue: string; var aword: string; aseparator: tcharset): integer;

Fungsi kelas getFirstword (avalue: string; var aword: string; aseParator: string): integer;

// Nilai pengembalian adalah panjang dari awal ke dokumen.

fungsi kelas getAllword (avalue: string; aseParator: string): tStringList;

// Kembalikan semua kata kunci. Setelah menggunakannya, harap bebaskan set hasil;

// Catatan: Tolong jangan gunakan fungsi ini untuk digunakan di masa mendatang. Harap gunakan versi ulangnya

// getAllword (avalue: string; aseParator: string; astringlist: tStringlist);

Prosedur Kelas GetAllword (Avalue: String; Aseparator: String; AstringList: Tstrings);

// Muat semua hasil set ke astringlist;

Prosedur kelas getAllwordWithAll (avalue: string; aseParator: string; astringlist: tstrings);

Fungsi kelas StringTocharset (avalue: string): tCharset;

Class Function Charsettostring (avalue: tcharset): string;

class function updateSentence (aoldString: string; // string sedang dioperasikan

Aupdatesource: String; // kata yang ditemukan.

AUPDATESTRING: String; // Dokumen yang Diganti.

Asentenceseparator: String; // Pemisah Kalimat.

AwordSeparator: String // Document Separator;

): String; // Hasil Pengembalian.

// Misalnya, nilai pengembalian 'dbarcode asc, dname desc', 'dbarcode', '', ',', '' adalah

// 'dname desc';

Fungsi kelas deleterepeat (aoldstring: string; // untuk menangani karakter

Adeletestring: char; // karakter yang akan dihapus

ArePeat: Char): String; // Ulangi Karakter

Fungsi kelas ifthen (aExpression: boolean; attrue: string; afalse: string): string;

// Kembalikan string yang sesuai sesuai dengan nilai ekspresi.

Fungsi kelas absolutetorelate (aabsolute: string; acurrent: string): string;

// Diberikan dua file, konversi jalur absolut ke jalur relatif.

Fungsi kelas RELATETOABSOLUTE (ARATE: String; Acurrent: String): String;

Fungsi Kelas Sama Posisi (AONE, ATWO: String): Integer;

Fungsi kelas getCharnum (astring: string; achar: char): integer;

Indeks fungsi kelas (astring, asubstring: string): integer;

Fungsi kelas ZeroToint (astring: string): integer;

Fungsi kelas Zerotofloat (astring: string): double;

Fungsi kelas ZerotoStr (astring: string): string;

Fungsi kelas SameText (Astring, Astring1: String): Boolean;

Reverse fungsi kelas (astring: string): string;

Fungsi kelas isValidip (const S: string): boolean;

Fungsi kelas FillString (achar: char; allength: integer): string;

function class stufstring (const atext: string; astart, allength: cardinal;

const asubtext: string): string;

Fungsi kelas getNextString (var sourcestring: string; asplitchar: string): string;

akhir;

// Jenis Integer.

Tinteger = kelas

Fungsi kelas InttoStr (ainteger: integer): string;

Fungsi kelas inttoStr (ainteger: int64): string;

Fungsi kelas isValidint (astring: string): boolean;

Fungsi kelas isValIdInt64 (astring: string): boolean;

Fungsi Kelas Maxint: Integer;

fungsi kelas maxlongint: integer;

Fungsi kelas hashCode (ainteger: integer): integer;

Fungsi kelas inttobin (ainteger: cardinal): string;

Fungsi kelas IntTOHEX (ainteger: integer): string;

fungsi kelas hextoint (astring: string): integer;

Fungsi kelas Makeerialno (ainteger: integer; adigit: integer): string;

akhir;

Tfloat = kelas

Fungsi kelas isValidFloat (astring: string): boolean;

Fungsi kelas maxdouble: ganda;

Fungsi Kelas Mindouble: Double;

Fungsi kelas Maxextended: Extended;

fungsi kelas Minextended: Extended;

fungsi kelas samevalue (const a, b: single; epsilon: single = 0): boolean;

Fungsi Kelas Samevalue (Const A, B: Double; Epsilon: Double = 0): Boolean;

Fungsi Kelas Samevalue (Const A, B: Extended; Epsilon: Extended = 0): Boolean;

fungsi kelas floattomoney (nilai const: double; bundar: boolean = true): string;

akhir;

Tboolean = kelas

Fungsi kelas booltostr (aboolean: boolean): string;

fungsi kelas strtobool (astring: string): boolean; // jika tidak 'benar', false;

akhir;

Pelaksanaan

{Tstring}

fungsi getPyIndexchar (achar: string): char;

Mulai

word kasus (achar [1]) shl 8 + word (achar [2]) dari

$ B0a1 .. $ b0c4: hasil: = 'a';

$ B0c5 .. $ b2c0: hasil: = 'b';

$ B2C1 .. $ B4ED: Hasil: = 'C';

$ B4ee .. $ b6e9: hasil: = 'd';

$ B6ea .. $ b7a1: hasil: = 'e';

$ B7a2 .. $ b8c0: hasil: = 'f';

$ B8c1 .. $ b9fd: hasil: = 'g';

$ B9fe .. $ bbf6: hasil: = 'h';

$ Bbf7 .. $ bfa5: hasil: = 'j';

$ Bfa6 .. $ c0ab: hasil: = 'k';

$ C0AC .. $ C2E7: Hasil: = 'l';

$ C2E8 .. $ C4C2: Hasil: = 'm';

$ C4C3 .. $ C5B5: Hasil: = 'n';

$ C5B6 .. $ C5BD: Hasil: = 'o';

$ C5BE .. $ C6D9: Hasil: = 'p';

$ C6DA .. $ C8BA: Hasil: = 'q';

$ C8BB .. $ C8F5: Hasil: = 'r';

$ C8f6 .. $ cbf9: hasil: = 's';

$ CBFA .. $ CDD9: Hasil: = 't';

$ CDDA .. $ CEF3: Hasil: = 'W';

$ Cef4 .. $ d188: hasil: = 'x';

$ D1b9 .. $ d4d0: hasil: = 'y';

$ D4d1 .. $ d7f9: hasil: = 'z';

kalau tidak

Hasil: = char (0);

akhir;

fungsi kelas tstring.getpy (astr: string): string;

var

I: Integer;

Mulai

Hasil: = '';

untuk i: = 1 hingga panjang (astr) lakukan

Mulai

jika bytetype (astr, i) = mbtrailbyte kemudian

Hasil: = hasil + getPyIndexchar (astr [i - 1] + astr [i])

kalau tidak

jika bytetype (astr, i) = mbsinglebyte kemudian

Hasil: = hasil + astr [i];

akhir;

fungsi tString.charat (aposisi: integer): char;

Mulai

Hasil: = ftext [aposisi];

akhir;

Fungsi kelas tString.charsettostring (avalue: tcharset): string;

Mulai

akhir;

fungsi kelas tString.compparestring (avalue1, avalue2: string): boolean;

Mulai

Hasil: = Uppercase (avalue1) = Uppercase (avalue2);

akhir;

fungsi kelas tString.deletePrefix (avalue: string;

FixedString: tCharset): string;

Mulai

while system.length (avalue)> 0 do

Mulai

Jika Avalue [1] di FixedString maka

Hapus (avalue, 1, 1)

kalau tidak

Merusak;

akhir;

Hasil: = avalue;

akhir;

Fungsi kelas tString.getFirstword (avalue: string; var aword: string; aseParator: tcharset

): Bilangan bulat;

var

tmpstr: string;

TMPPOS: Integer;

Mulai

tmpstr: = deleteSuffix (avalue, aseParator);

tmpstr: = deletePrefix (avalue, aseParator);

Hasil: = Panjang (avalue) - Panjang (tmpstr);

{if length (tmpstr) = 0 lalu keluar;

if (tmpstr [1] = '' '' ') dan (tmpstr [2] =' '' ') lalu

Mulai

untuk tmppos: = 3 hingga panjang (tmpstr) lakukan

Mulai

Jika tmpstr [tmppos] di ['' ''] maka

Merusak;

akhir;

jika tmppos> 3 maka tmppos: = tmppos + 2;

}

untuk tmppos: = 1 hingga panjang (tmpstr) lakukan

Mulai

Jika TMPSTR [TMPPOS] di Aseparator maka

Merusak;

akhir;

TMPPOS: = TMPPOS -1;

// {TODO: -OGHS Memperbaiki parameter terakhir yang salah}

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

tmppos: = panjang (avalue);

Aword: = Salin (Avalue, Hasil + 1, TMPPOS);

Hasil: = Hasil + TMPPOS;

akhir;

fungsi kelas tString.hashCode (avalue: string): integer;

var

I: Integer;

TMPVALUE: Integer;

Mulai

tmpValue: = 0;

untuk i: = 1 ke system.length (avalue) do

Mulai

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

akhir;

Hasil: = TMPValue;

akhir;

fungsi kelas tString.isallchinese (AST: String): boolean;

var

I: Integer;

Mulai

Hasil: = true;

untuk i: = 1 hingga panjang (astr) lakukan

Mulai

jika bytetype (astr, i) = mbsinglebyte kemudian

Mulai

Hasil: = false;

Merusak;

akhir;

fungsi kelas tstring.isallenglish (astr: string): boolean;

var

I: Integer;

Mulai

Hasil: = true;

untuk i: = 1 hingga panjang (astr) lakukan

Mulai

jika bytetype (astr, i) <> mbsinglebyte

Mulai

Hasil: = false;

Merusak;

akhir;

fungsi kelas tstring.lastchar (avalue: string): char;

Mulai

Hasil: = avalue [System.length (avalue)];

akhir;

Fungsi kelas tString.left (avalue: string; allength: integer): string;

Mulai

Hasil: = Salin (Avalue, 1, Alength);

akhir;

Fungsi kelas tString.Right (avalue: string; allength: integer): string;

Mulai

Hasil: = strutils.rightstr (avalue, allength);

akhir;

fungsi kelas tString.setstring (var s: string; buffer: pchar;

len: integer): string;

Mulai

System.setstring (S, buffer, len);

Hasil: = S;

akhir;

fungsi kelas tString.stringin (avalue: string;

Avalues: Array of String): Boolean;

var

I: Integer;

Mulai

Hasil: = false;

untuk i: = rendah (rata -rata) ke tinggi (rata -rata) lakukan

Mulai

Jika Uppercase (Avalue) = Uppercase (Avalues [i]) kemudian

Mulai

Hasil: = true;

Merusak;

akhir;

Fungsi kelas tString.stringofchar (ch: char; count: integer): string;

Mulai

Hasil: = System.stringofchar (ch, hitungan);

akhir;

Fungsi kelas tString.stringreplace (const S, oldpattern,

NewPattern: String;

Mulai

Hasil: = sysutils.stringreplace (s, oldpattern, newPattern, flags);

akhir;

fungsi kelas tString.stringtocharset (avalue: string): tcharset;

var

I: Integer;

Mulai

Hasil: = [];

untuk i: = 1 hingga panjang (avalue) lakukan

Mulai

Hasil: = hasil + [avalue [i]];

akhir;

fungsi tString.tolowercase: string;

Mulai

Hasil: = huruf kecil (ftext);

akhir;

fungsi tString.touppercase: string;

Mulai

Hasil: = Uppercase (ftext);

akhir;

fungsi kelas tstring.valueof (avalue: boolean): string;

Mulai

Jika Avalue maka

Hasil: = 'ya'

kalau tidak

Hasil: = 'Tidak';

akhir;

fungsi kelas tString.ValueOf (avalue: string): boolean;

Mulai

Hasil: = stringin (avalue, ['ya', 'ya', 'ok']);

akhir;

Fungsi kelas tString.getFirstword (avalue: string; var aword: string;

Aseparator: String): Integer;

Mulai

Hasil: = GetFirstword (Avalue, Aword, Stringtocharset (Aseparator));

akhir;

fungsi kelas tString.getAllWord (avalue, aseParator: string): tStringList;

var

TMplist: TStringList;

TMPWORD: String;

Mulai

tMplist: = tStringList.create;

Sedangkan panjang (avalue)> 0 do

Mulai

TMPWORD: = '';

Hapus (avalue, 1, getFirstword (avalue, tmpword, aseparator));

Jika tmpword <> '' lalu

tmplist.add (tmpword)

kalau tidak

Merusak;

akhir;

Hasil: = TMplist;

akhir;

Fungsi kelas tString.updateSentence (aoldstring, aupdatesource,

AupdateString, asentenceseparator, awordseparator: string): string;

var

tmpsentence: string;

TMPWORD: String;

tmpWord1: string;

I: Integer;

tMpresult: string;

Mulai

// Dapatkan kalimat pertama

tmpsentence: = aoldstring;

tMpresult: = '';

Sedangkan panjang (tmpsentence)> 0 do

Mulai

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

tmpResult: = tmpResult + kiri (tmpsentence, i - length (tmpWord));

Hapus (tmpsentence, 1, i);

Jika tmpword <> '' lalu

Mulai

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

tmpResult: = tmpResult + kiri (tmpword, i - length (tmpword1));

Jika comparestring (tmpword1, aupdatesource)

Mulai

tmpResult: = tMpresult + aupdateString;

akhir

kalau tidak

Mulai

tmpResult: = tmpResult + tmpword;

akhir;

tmpResult: = deletePrefix (tmpResult, ['', ',']);

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

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

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

Hasil: = TMpresult;

akhir;

Fungsi kelas tString.deleterePeat (aoldstring: string; adeletestring,

ArePeat: char): string;

var

I: Integer;

tmpfind1: boolean;

Mulai

tmpFind1: = false;

untuk i: = panjang (aoldstring) downto 1 do

Mulai

Jika tmpFind1 maka

Mulai

Jika aoldstring [i] = adetestring maka

Hapus (aoldstring, i, 1)

kalau tidak

Mulai

Jika aoldstring [i] = arePeat maka

Melanjutkan;

tmpFind1: = aoldString [i] = adetestring;

akhir;

akhir

kalau tidak

Mulai

Jika adeletestring <> arePeat maka

Jika aoldstring [i] = arePeat maka

Melanjutkan;

tmpFind1: = aoldstring [i] = adeletestring

akhir;

Hasil: = aoldstring;

akhir;

fungsi kelas tString.deleteSuffix (avalue: string;

FixedString: tCharset): string;

Mulai

while system.length (avalue)> 0 do

Mulai

Jika avalue [System.length (avalue)] di FixedString maka

Hapus (avalue, system.length (avalue), 1)

kalau tidak

Merusak;

akhir;

Hasil: = avalue;

akhir;

Prosedur kelas tString.getAllword (avalue, aseParator: string;

AstringList: Tstrings);

var

TMPWORD: String;

Mulai

Jika astringlist = nil lalu

AstringList: = tStringList.create;

Sedangkan panjang (avalue)> 0 do

Mulai

TMPWORD: = '';

Hapus (avalue, 1, getFirstword (avalue, tmpword, aseparator));

Jika tmpword <> '' lalu

Astringlist.add (tmpword)

kalau tidak

Merusak;

akhir;

fungsi kelas tstring.ifthen (aekspresi: boolean; attrue,

Afalse: string): string;

Mulai

Jika aekspresi maka

Hasil: = atrue

kalau tidak

Hasil: = afalse;

akhir;

fungsi kelas tstring.absolutetorelate (aabsolute,

Acurrent: String): String;

var

tmpsimilarstring: string;

Aoldfile: String;

I: Integer;

TMPPOS: Integer;

Mulai

// Setelah konversi, itu terbentuk .../../A.ini;

// Jika tidak pada drive yang sama, itu akan langsung kembali ke jalur absolut.

Jika ExtractFiledRive (AABSOLUTE) <> ExtractFiledRive (Acurrent)

Hasil: = Aabsolute

kalau tidak

Mulai

tmpsimilarstring: = '';

Aoldfile: = aabsolute;

AABSOLUTE: = ExtractFilePath (Aabsolute);

TMPPOS: = Posisi Sama (Aabsolute, Acurrent);

Hapus (aoldfile, 1, tmppos - 1);

Hapus (Acurrent, 1, tmppos - 1);

untuk i: = 0 untuk getCharnum (acurrent, '/') -1 lakukan

Mulai

tmpsimilarString: = tmpsimilarString + '../';

akhir;

Hasil: = TmpsimilarString + AoldFile;

akhir;

Fungsi kelas tString.RelateToAbsolute (ARATE, ACURRENT: STRING): String;

var

tmpsimilarstring: string;

TMProotCount: Integer;

I: Integer;

Mulai

Jika panjang (arelate)> 2 lalu

Mulai

Jika arelate [2] = ':' lalu

Mulai

Hasil: = arelate;

KELUAR;

akhir;

tmpsimilarstring: = '';

TMProotCount: = 0;

Sementara benar lakukan

Mulai

Jika Leftstr (arelate, 3) = '../' lalu

Mulai

Inc (TMProotCount);

Hapus (arelate, 1, 3);

akhir

kalau tidak

merusak;

akhir;

tmpsimilarstring: = reversestring (ExtractFilePath (Acurrent));

untuk i: = 0 ke TMProotCount do

Mulai

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

akhir;

Hasil: = ReverSesstring (tmpsimilarString) + arelate;

akhir;

fungsi kelas tstring.similarposition (aone, atwo: string): integer;

var

I: Integer;

Max: Integer;

Mulai

Jika panjang (aone) <panjang (atwo) lalu

Max: = panjang (AONE)

kalau tidak

Max: = panjang (atwo);

untuk i: = 1 hingga maks lakukan

Mulai

Jika aone [i] <> atwo [i] maka

Merusak;

akhir;

Hasil: = i;

akhir;

Fungsi kelas tString.getCharnum (astring: string; achar: char): integer;

var

I: Integer;

Mulai

Hasil: = 0;

untuk i: = 1 hingga panjang (astring) lakukan

Mulai

Jika astring [i] = achar maka

Inc (hasil);

akhir;

Prosedur kelas tString.getAllWordWithall (avalue, aseParator: string;

AstringList: Tstrings);

var

TMPI: Integer;

TMPPOS: Integer;

Mulai

Jika astringlist = nil lalu

AstringList: = tStringList.create;

TMPPOS: = 0;

Sedangkan panjang (avalue)> 0 do

Mulai

untuk tmpi: = 1 hingga panjang (avalue) lakukan

Mulai

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

Jika tmppos> 0 lalu

Mulai

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

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

Hapus (avalue, 1, tmppos);

Merusak;

akhir

akhir;

Fungsi kelas tString.tolowercase (astring: string): string;

Mulai

Hasil: = huruf kecil (astring);

akhir;

Fungsi kelas tString.touppercase (astring: string): string;

Mulai

Hasil: = Uppercase (Astring);

akhir;

fungsi kelas tString.indexof (astring, asubstring: string): integer;

Mulai

Hasil: = pos (asubstring, astring);

akhir;

Fungsi kelas tString.zerotoint (astring: string): integer;

Mulai

Jika trim (astring) = '' lalu

Astring: = '0';

Hasil: = strtoint (astring);

akhir;

fungsi kelas tString.zerotofloat (astring: string): double;

Mulai

Jika trim (astring) = '' lalu

Astring: = '0.0';

Hasil: = strtofloat (astring);

akhir;

fungsi kelas tString.sametext (astring, astring1: string): boolean;

Mulai

Hasil: = sysutils.sametext (astring, astring1);

akhir;

fungsi kelas tString.reverse (astring: string): string;

Mulai

Hasil: = Reversestring (Astring);

akhir;

fungsi kelas tstring.isvalidip (const S: string): boolean;

var

J, I: Integer;

LTMP: String;

Mulai

Hasil: = true;

Ltmp: = trim;

untuk i: = 1 sampai 4 mulai

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

Hasil: = hasil dan (j> -1) dan (j <256);

Jika bukan hasil maka mulailah

Merusak;

akhir;

Fungsi kelas tString.zerotostr (astring: string): string;

Mulai

Jika trim (astring) = '' lalu

Hasil: = '0'

kalau tidak

Hasil: = Astring;

akhir;

fungsi kelas tString.fillString (achar: char; allength: integer): string;

var

I: Integer;

Mulai

Hasil: = '';

untuk i: = 1 ke Allength do // iterate

Mulai

Hasil: = Hasil + Achar;

akhir;

Fungsi kelas tString.stuffstring (const atext: string; astart,

Allength: Cardinal;

Mulai

Hasil: = strutils.stuffstring (atext, astart, allength, asubtext);

akhir;

Fungsi kelas tString.getNextString (var sourcestring: string;

Asplitchar: string): string;

var

TMPPOS: Integer;

Mulai

tmppos: = pos (asplitchar, sourcestring);

Jika tmppos = 0 lalu

Mulai

Hasil: = Sourcestring;

Sourcestring: = ''

akhir

kalau tidak

Mulai

Hasil: = TString.Left (Sourcestring, TMPPOS -1);

Hapus (Sourcestring, 1, TMPPOS);

akhir;

{Tinteger}

fungsi kelas tinteger.inttoStr (ainteger: integer): string;

Mulai

Hasil: = sysutils.inttostr (ainteger);

akhir;

fungsi kelas tinteger.hashcode (ainteger: integer): integer;

Mulai

Hasil: = Ainteger;

akhir;

Fungsi kelas tinteger.inttostr (ainteger: int64): string;

Mulai

Hasil: = sysutils.inttostr (ainteger);

akhir;

fungsi kelas tinteger.isvalidint (astring: string): boolean;

Mulai

Hasil: = true;

mencoba

Strtoint (astring);

kecuali

Hasil: = false;

akhir;

fungsi kelas tinteger.isvalidint64 (astring: string): boolean;

Mulai

Hasil: = true;

mencoba

Strtoint (astring);

kecuali

Hasil: = false;

akhir;

fungsi kelas tinteger.maxint: integer;

Mulai

Hasil: = System.maxint;

akhir;

fungsi kelas tinteger.maxlongint: integer;

Mulai

Hasil: = System.MaxLongInt;

akhir;

fungsi kelas tinteger.inttobin (ainteger: cardinal): string;

var

I: Integer;

Mulai

SetLength (hasil, 32);

untuk i: = 1 hingga 32 lakukan

Mulai

if ((ainteger shl (i-1)) shr 31) = 0 lalu

Hasil [i]: = '0'

kalau tidak

Hasil [i]: = '1';

akhir;

Fungsi kelas tinteger.inttoHex (ainteger: integer): string;

Mulai

Hasil: = sysutils.inttoHex (ainteger, 0);

akhir;

fungsi kelas tinteger.hextoint (astring: string): integer;

Mulai

Jika tString. Left (astring, 1) = '$' lalu

Hasil: = strtoint (astring)

kalau tidak

Hasil: = strtoint ('$' + astring);

akhir;

fungsi kelas tinteger.makeserialno (ainteger, adigit: integer): string;

var

tmpstr: string;

I: Integer;

Mulai

tmpstr: = '';

untuk i: = 0 untuk adigit - 1 do // iterate

Mulai

tmpstr: = tmpstr + '0';

akhir;

Hasil: = formatFloat (tmpstr, ainteger);

akhir;

{Tfloat}

fungsi kelas tfloat.floattomoney (nilai const: double; bundar: boolean): string;

Mulai

// jumlahnya dibulatkan secara default

akhir;

fungsi kelas tfloat.isvalidfloat (astring: string): boolean;

Mulai

Hasil: = true;

mencoba

Strtofloat (astring);

kecuali

Hasil: = false;

akhir;

fungsi kelas tfloat.maxdouble: ganda;

Mulai

Hasil: = 1.7e+308;

akhir;

fungsi kelas tfloat.maxextended: extended;

Mulai

Hasil: = 1.1e+4932;

akhir;

fungsi kelas tfloat.mindouble: ganda;

Mulai

Hasil: = 5.0e-324;

akhir;

fungsi kelas tfloat.minextended: extended;

Mulai

Hasil: = 3.4E-4932;

akhir;

fungsi kelas tfloat.samevalue (const a, b: single;

Epsilon: lajang): boolean;

Mulai

Hasil: = Math.samevalue (A, B, Epsilon);

akhir;

fungsi kelas tfloat.samevalue (const a, b: double;

Epsilon: Double): Boolean;

Mulai

Hasil: = Math.samevalue (A, B, Epsilon);

akhir;

fungsi kelas tfloat.samevalue (const a, b: extended;

Epsilon: Extended): Boolean;

Mulai

Hasil: = Math.samevalue (A, B, Epsilon);

akhir;

{Tboolean}

fungsi kelas tboolean.booltostr (aboolean: boolean): string;

Mulai

Jika Aboolean maka

Hasil: = 'Benar'

kalau tidak

Hasil: = 'false';

akhir;

fungsi kelas tboolean.strtobool (astring: string): boolean;

Mulai

jika huruf besar (astring) = 'true' lalu

Hasil: = Benar

kalau tidak

Hasil: = false;

akhir;

akhir.