// 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;
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;
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;
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;
akhir;
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;
akhir;
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;
akhir;
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;
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;
akhir;
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;
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;
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;
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;
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;
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;
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;
akhir;
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;
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;
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;
akhir;
fungsi kelas tinteger.isvalidint64 (astring: string): boolean;
Mulai
Hasil: = true;
mencoba
Strtoint (astring);
kecuali
Hasil: = false;
akhir;
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;
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;
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.