// Люди, которые привыкли к Java или C#, могут быть очень злы на Delphi и даже не имеют основных типов Их здесь.
базовый базовый класс;
интерфейс
Использование
Sysutils, классы, напор, idglobal, математика;
тип
Tcharset = set of char;
вар
TnormalCharset: tcharset = [ #13, #10, #32, '.', ',', ';'];
тип
TSTRING = Class
Частный
Ftext: String;
публичный
Функция charat (Aposition: Integer): char;
// буквы указанной позиции
Function ToLowerCase: String;
Функция класса TOLOWERCASE (ASTRING: String): String;
//нижний регистр
Функция Touppercase: String;
Функция класса Touppercase (Astring: String): String;
//капитал
Значение функции класса (Avalue: String): Boolean;
Значение функции класса (Avalue: Boolean): String;
Функция класса Stringin (Avalue: String; Avalues: массив строки): boolean;
Функция класса Left (Avalue: String; Alength: Integer): String;
Функция класса справа (Avalue: String; Alength: Integer): String;
Функция класса deletePrefix (Avalue: String; FickeString: tcharset = [#32]): String;
Функция класса deletesuffix (Avalue: String; FickeString: tcharset = [#32]): String;
//
Функция класса сравнивать (Avalue1: String; Avalue2: String): Boolean;
Функция класса HashCode (Avalue: String): Integer;
Функция класса FALLCHAR (Avalue: String): char;
Функция класса StringReplace (const S, OldPattern, NewPattern: String;
Флаги: Treplaceflags): String;
Функция класса stringofchar (ch: char; count: integer): string;
Функция класса setString (var s: string; buffer: pchar; len: integer): string;
Функция класса getPy (Astr: String): String;
// Получить соответствующий пинин.
Функция класса Isallchinese (Astr: String): Boolean;
Функция класса isallenglish (astr: string): boolean;
Функция класса getFirstword (Avalue: String; var avord: string; aseparator: tcharset): integer;
Функция класса getFirstword (Avalue: String; var avord: String; Aseparator: String): Integer;
// возвращаемое значение - это длина от начала до документа.
Функция класса GetAllWord (Avalue: String; Aseparator: String): TSTRINGLIST;
// возвращать все ключевые слова. После его использования, пожалуйста, освободите набор результатов;
// Примечание. Пожалуйста, не используйте эту функцию в будущем. Пожалуйста, используйте его перезагруженную версию
// getAllWord (Avalue: String; Aseparator: String; ArstingList: TStringList);
Классовая процедура GetAllWord (Avalue: String; Aseparator: String; ArstingList: TSTRINGS);
// Загрузить все наборы результатов в AstringList;
Классовая процедура getAllWortWithall (Avalue: String; Aseparator: String; AstringList: tStrings);
Функция класса stringtocharset (avalue: string): tcharset;
Функция класса charsetToString (Avalue: Tcharset): String;
Обновления функции класса (AoldString: String; // Строка работает
Aupdatesource: String;
Aupdatestring: String;
AsentenceParator: String;
AvordSeparator: String // Document Seperator;
): строка;
// Например, возвращаемое значение «dbarcode asc, dname desc ',' dbarcode ',' ',', ',' '
// 'dname desc';
DeleteRepeat функции класса (AoldString: String; // Обработка символов
Adeletestring: char;
Arepeat: char): string;
Функция класса ifthen (aexpression: boolean; Atrue: String; afalse: String): String;
// возвращать соответствующую строку в соответствии со значением выражения.
Функция класса AbsoluteToreLate (aabSolute: String; Acurrent: String): String;
// Учитывая два файла, преобразовать абсолютный путь в относительный путь.
Функция класса RELATETOABSOLUTE (ARATE: String; Acurrent: String): String;
Функция класса, аналогичная точка (AONE, ATWO: String): Integer;
Функция класса getCharnum (Astring: String; Achar: char): Integer;
Индекс функции класса (Astring, Asubstring: String): Integer;
Функция класса Zerotoint (Astring: String): Integer;
Функция класса Zerotofloat (Arsting: String): Double;
Функция класса ZerotoStr (Astring: String): String;
Функция класса SameText (Arsting, Astring1: String): Boolean;
Функция класса Обратная (Астровка: Строка): Строка;
Функция класса isvalidip (const s: string): boolean;
Функция класса FillString (Achar: char; alength: Integer): String;
Функция класса материал (const atext: string; astart, alength: cardinal;
const asubtext: string): string;
Функция класса GetNextString (var Sourcestring: String; Asplitchar: String): String;
конец;
// целочисленный тип.
Tinteger = class
Функция класса InttoStr (Ainteger: Integer): String;
Функция класса inttoStr (ainteger: int64): string;
Функция класса isvalidint (Arsting: String): Boolean;
Функция класса isvalidint64 (Arsting: String): Boolean;
Функция класса Maxint: Integer;
Функция класса Maxlongint: Integer;
Функция класса HashCode (Ainteger: Integer): Integer;
Функция класса Inttobin (Ainteger: Cardinal): String;
Функция класса InttoHex (ainteger: Integer): String;
Функция класса Hextoint (Astring: String): Integer;
Функция класса Materialno (ainteger: Integer; Adigit: Integer): String;
конец;
Tfloat = class
Функция класса isvalidfloat (ряд: строка): логический;
Функция класса MaxDouble: Double;
Функция класса Mindouble: Double;
Функция класса MaxExted: Extended;
Функция класса Minextended: расширен;
Функция класса SomeValue (const a, b: epsilon: single = 0): boolean;
Функция класса SomeValue (const A, B: Double; Epsilon: Double = 0): Boolean;
Функция класса SomeValue (const A, B: Extended; Epsilon: extended = 0): логический;
Функция класса floattomoney (const value: Double; Round: boolean = true): string;
конец;
Tboolean = class
Функция класса BooltoStr (aboolean: boolean): String;
Функция класса strtobool (string: string): boolean;
конец;
Выполнение
{TString}
функция getPyIndexchar (Achar: String): char;
Начинать
случай (ахар [1]) Shl 8 + Word (ахар [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): String;
вар
Я: целое число;
Начинать
Результаты: = '';
для i: = 1 к длине (аст)
Начинать
Если Bytetype (Astr, i) = mbtrailbyte тогда
Результат: = результат + getPyIndexchar (Astr [i - 1] + Astr [i])
еще
Если Bytetype (Astr, i) = mbsinglebyte тогда
Результат: = результат + Astr [i];
конец;
конец;
Функция tstring.charat (Aposition: Integer): char;
Начинать
Результат: = ftext [aposition];
конец;
Функция класса tstring.charsetToString (Avalue: Tcharset): String;
Начинать
конец;
Функция класса tstring.comparestring (Avalue1, Avalue2: String): Boolean;
Начинать
Результат: = прописное (Avalue1) = верхний регистр (Avalue2);
конец;
Функция класса tstring.deleteprefix (Avalue: String;
FIXERSTRING: TCHARSET): String;
Начинать
в то время как System.Length (Avalue)> 0
Начинать
Если Avalue [1] в фиксированном стринге, тогда
Удалить (Avalue, 1, 1)
еще
Перерыв;
конец;
Результат: = Avalue;
конец;
Функция класса tstring.getFirstword (Avalue: String; var avord: String; Aseparator: tcharset
): Целое число;
вар
tmpstr: string;
Tmppos: целое число;
Начинать
tmpstr: = deletesuffix (Avalue, Aseparator);
tmpstr: = deletePrefix (Avalue, Aseparator);
Результат: = длина (лавина) - длина (tmpstr);
{if length (tmpstr) = 0, затем выйдет;
if (tmpstr [1] = '' '') и (tmpstr [2] = '' '') тогда
Начинать
Для tmppos: = 3 до длины (tmpstr)
Начинать
Если tmpstr [tmppos] в ['' '' '], то тогда
Перерыв;
конец;
конец;
Если tmppos> 3, то tmppos: = tmppos + 2;
}
для tmppos: = 1 к длине (tmpstr)
Начинать
Если tmpstr [tmppos] в асепараторе, тогда
Перерыв;
конец;
tmppos: = tmppos -1;
// {todo: -oghs неправильно исправил последний анализ параметров}
if (tmppos = 0) и (Avalue <> '') тогда
tmppos: = длина (лавина);
Avord: = copy (avalue, result + 1, tmppos);
Результат: = результат + tmppos;
конец;
Функция класса tstring.hashcode (Avalue: String): Integer;
вар
я: целое число;
tmpValue: целое число;
Начинать
tmpValue: = 0;
для i: = 1 to System.length (Avalue)
Начинать
tmpvalue: = 3 * tmpvalue + ord (avalue [i]);
конец;
Результат: = tmpValue;
конец;
Функция класса tstring.isallchinese (ast: string): boolean;
вар
Я: целое число;
Начинать
Результат: = true;
для i: = 1 к длине (аст)
Начинать
Если Bytetype (Astr, i) = mbsinglebyte тогда
Начинать
Результат: = false;
Перерыв;
конец;
конец;
конец;
Функция класса tstring.isallenglish (Astr: String): Boolean;
вар
Я: целое число;
Начинать
Результат: = true;
для i: = 1 к длине (аст)
Начинать
Если Bytetype (Astr, i) <> mbsinglebyte тогда
Начинать
Результат: = false;
Перерыв;
конец;
конец;
конец;
Функция класса tstring.lastchar (Avalue: String): char;
Начинать
Результат: = avalue [System.Length (Avalue)];
конец;
Функция класса tstring.left (Avalue: String; Alength: Integer): String;
Начинать
Результат: = копия (Avalue, 1, Alength);
конец;
Функция класса tstring.right (Avalue: String; Alength: Integer): String;
Начинать
Результат: = strutils.rightstr (Avalue, Alength);
конец;
Функция класса tString.setString (var S: String; Buffer: pchar;
Лен: целое число): строка;
Начинать
System.setString (s, Buffer, Len);
Результаты: = s;
конец;
Функция класса tstring.stringin (Avalue: String;
Avalues: массив строки): логический;
вар
Я: целое число;
Начинать
Результат: = false;
для i: = низкий (лавины) до высокого (лавины)
Начинать
Если в верхнем регионе (Avalue) = верхний заглав (Avalues [i]), тогда
Начинать
Результат: = true;
Перерыв;
конец;
конец;
конец;
Функция класса tstring.stringofchar (ch: char; count: integer): string;
Начинать
Результат: = System.StringOfchar (Ch, COUNT);
конец;
Функция класса tstring.stringreplace (const s, oldpattern,
Newpattern: String;
Начинать
Результат: = sysutils.stringreplace (s, Oldpattern, Newpattern, Flags);
конец;
Функция класса tstring.stringtocharset (Avalue: String): tcharset;
вар
Я: целое число;
Начинать
Результаты: = [];
для i: = 1 к длине (лавия)
Начинать
Результат: = Результат + [Avalue [i]];
конец;
конец;
function tstring.tolowercase: String;
Начинать
Результат: = строчный (ftext);
конец;
function tstring.touppercase: String;
Начинать
Результат: = uppersact (ftext);
конец;
Функция класса tstring.valueof (Avalue: Boolean): String;
Начинать
Если тогда тогда
Результат: = 'Да'
еще
Результат: = 'Нет';
конец;
Функция класса tstring.valueof (Avalue: String): Boolean;
Начинать
Результат: = stringin (Avalue, ['Yes', 'Yes', 'OK']);
конец;
Функция класса tstring.getFirstword (Avalue: String; var avord: String;
Aseparator: String): Integer;
Начинать
Результат: = getFirstword (Avalue, Avord, StringToCharset (AseParator));
конец;
Функция класса tstring.getallword (Avalue, Aseparator: String): tStringList;
вар
Tmplist: tstringlist;
TMPWORD: String;
Начинать
tmplist: = tstringlist.create;
в то время как длина (лавия)> 0
Начинать
tmpword: = '';
Удалить (Avalue, 1, GetFirstword (Avalue, TMPWORD, Aseparator));
Если tmpword <> '', тогда
tmplist.add (tmpword)
еще
Перерыв;
конец;
Результат: = tmplist;
конец;
Функция класса tstring.UpdatesEntence (aoldstring, aupdatesource,
Aupdatestring, asentenceparator, avordseparator: string): string;
вар
Tmpsentence: String;
TMPWORD: String;
tmpword1: string;
я: целое число;
tmpresult: String;
Начинать
// Получить первое предложение
tmpsentence: = aoldstring;
tmpresult: = '';
в то время как длина (tmpsentence)> 0
Начинать
i: = getFirstword (tmpsentence, tmpword, asentenceParator);
tmpresult: = tmpresult + left (tmpsentence, i - длина (tmpword));
Удалить (tmpsentence, 1, i);
Если tmpword <> '', тогда
Начинать
i: = getFirstword (tmpword, tmpword1, avordseparator);
tmpresult: = tmpresult + left (tmpword, i - length (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): string;
вар
Я: целое число;
tmpfind1: логический;
Начинать
tmpfind1: = false;
для i: = длина (aoldstring) вниз, чтобы 1 сделать
Начинать
Если tmpfind1, то
Начинать
Если aoldstring [i] = adeletestring, тогда
Удалить (aoldstring, i, 1)
еще
Начинать
Если aoldstring [i] = reapeat, тогда
Продолжать;
tmpfind1: = aoldstring [i] = adeletestring;
конец;
конец
еще
Начинать
Если adeletestring <> reapeat, тогда
Если aoldstring [i] = reapeat, тогда
Продолжать;
tmpfind1: = aoldstring [i] = adeletestring
конец;
конец;
Результат: = aoldString;
конец;
Функция класса tstring.deletesuffix (Avalue: String;
FIXERSTRING: TCHARSET): String;
Начинать
в то время как System.Length (Avalue)> 0
Начинать
Если Avalue [System.Length (Avalue)] в фиксированном строке, тогда
Удалить (Avalue, System.Length (Avalue), 1)
еще
Перерыв;
конец;
Результат: = Avalue;
конец;
Классовая процедура tstring.getallword (Avalue, Aseparator: String;
ArstingList: TStrings);
вар
TMPWORD: String;
Начинать
Если ArstingList = nil, тогда
AstringList: = tstringlist.create;
в то время как длина (лавия)> 0
Начинать
tmpword: = '';
Удалить (Avalue, 1, GetFirstword (Avalue, TMPWORD, Aseparator));
Если tmpword <> '', тогда
AstringList.Add (TMPWORD)
еще
Перерыв;
конец;
конец;
Функция класса tstring.ifthen (aexpression: boolean; Atrue,
Afalse: string): string;
Начинать
Если aexpression, то
Результат: = ATRUE
еще
Результат: = afalse;
конец;
Функция класса tstring.absoluteTorelate (aabsolute,
Acurrent: String): String;
вар
tmpsImilarString: String;
Aoldfile: String;
я: целое число;
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, чтобы получить gatCharnum (acurrent, '/') -1 do
Начинать
tmpsImilarString: = tmpsIMilarString + '../';
конец;
Результат: = tmpsImilarString + aoldfile;
конец;
конец;
Функция класса tstring.relatetoabsolute (arate, acurrent: string): string;
вар
tmpsImilarString: String;
tmproutcount: целое число;
я: целое число;
Начинать
Если длина (arelate)> 2 тогда
Начинать
Если arelate [2] = ':' then
Начинать
Результат: = ARELATE;
Выход;
конец;
конец;
tmpsIMilarString: = '';
tmproutcount: = 0;
В то время как правда
Начинать
Если leftstr (arelate, 3) = '../' Тогда
Начинать
Inc (tmproutcount);
Удалить (Arelate, 1, 3);
конец
еще
перерыв;
конец;
tmpsImilarString: = reverseString (ExtractFilePath (Acurrent));
для i: = 0 до tmprotcount do
Начинать
Удалить (tmpsImilarString, 1, pos ('/', tmpsImilarString));
конец;
Результат: = reverseString (tmpsImilarString) + arelate;
конец;
Функция класса tstring.similarposition (aone, atwo: string): целое число;
вар
я: целое число;
Макс: целое число;
Начинать
Если длина (aone) <длина (atwo), тогда
Макс: = длина (aone)
еще
Max: = длина (atwo);
для i: = 1 до максимального
Начинать
Если aone [i] <> atwo [i], тогда
Перерыв;
конец;
Результаты: = i;
конец;
Функция класса tString.getCharnum (Astring: String; Achar: char): Integer;
вар
я: целое число;
Начинать
Результаты: = 0;
для i: = 1 к длине (вяжу)
Начинать
Если ряд [i] = ахар, тогда
Inc (результат);
конец;
конец;
Классовая процедура tString.getAllWordWithall (Avalue, Aseparator: String;
ArstingList: TStrings);
вар
TMPI: целое число;
Tmppos: целое число;
Начинать
Если ArstingList = nil, тогда
AstringList: = tstringlist.create;
tmppos: = 0;
в то время как длина (лавия)> 0
Начинать
Для TMPI: = 1 к длине (лавина)
Начинать
tmppos: = pos (avalue [tmppos], aseparator);
Если tmppos> 0, то
Начинать
AstringList.Add (копия (Avalue, 1, Tmppos - 1));
AstringList.Add (копия (Avalue, Tmppos, 1));
Удалить (Avalue, 1, tmppos);
Перерыв;
конец
конец;
конец;
конец;
Функция класса tstring.tolowercase (Astring: String): String;
Начинать
Результат: = строчный (вяжу);
конец;
Функция класса tstring.touppercase (Astring: String): String;
Начинать
Результат: = прописное (вяжу);
конец;
Функция класса tstring.indexof (Arsting, Asubstring: String): Integer;
Начинать
Результат: = pos (asubstring, рядное сопротивление);
конец;
Функция класса tstring.zerotoint (Astring: String): Integer;
Начинать
Если отделка (ряд) = '' Тогда
Астр: = '0';
Результат: = strtoint (string);
конец;
Функция класса tstring.zerotofloat (Arsting: String): Double;
Начинать
Если отделка (ряд) = '' Тогда
Arsting: = '0,0';
Результат: = strtofloat (ряд);
конец;
Функция класса tstring.sameText (Arsting, Astring1: String): Boolean;
Начинать
Результат: = sysutils.sameText (Arsting, Astring1);
конец;
Функция класса tString.Reverse (Astring: String): String;
Начинать
РЕЗУЛЬТАТ: = reversestring (ряд);
конец;
Функция класса tstring.isvalidip (const s: string): boolean;
вар
J, я: целое число;
LTMP: String;
Начинать
Результат: = true;
LTMP: = TRIM (S);
для i: = 1-4
J: = strtointDef (fetch (ltmp, '.'), -1);
Результат: = результат и (J> -1) и (J <256);
Если не результаты, то начните
Перерыв;
конец;
конец;
конец;
Функция класса tString.zerotoStr (Astring: String): String;
Начинать
Если отделка (ряд) = '' Тогда
Результат: = '0' '
еще
Результат: = ряд;
конец;
Функция класса tstring.fillstring (Achar: char; alength: Integer): String;
вар
я: целое число;
Начинать
Результаты: = '';
для i: = 1, чтобы alength do // itater
Начинать
Результат: = Результат + Ахар;
конец;
конец;
Функция класса tstring.stuffstring (const atext: string; astart,
Alength: Cardinal;
Начинать
Результат: = strutils.stuffstring (atext, astart, alength, asubtext);
конец;
Функция класса tstring.getNextString (var sourcestring: string;
Asplitchar: String): String;
вар
Tmppos: целое число;
Начинать
tmppos: = pos (asplitchar, sourcestring);
Если tmppos = 0, то
Начинать
Результат: = Sourcestring;
Sourcestring: = ''
конец
еще
Начинать
Результат: = tString.left (Sourcestring, Tmppos -1);
Удалить (sourcestring, 1, tmppos);
конец;
конец;
{Tinteger}
Функция класса tinteger.inttoStr (ainteger: Integer): String;
Начинать
Результат: = sysutils.inttoStr (ainteger);
конец;
Функция класса tinteger.hashcode (Ainteger: Integer): Integer;
Начинать
Результат: = ainteger;
конец;
Функция класса tinteger.inttoStr (ainteger: int64): string;
Начинать
Результат: = sysutils.inttoStr (ainteger);
конец;
Функция класса tinteger.isvalidint (Arsting: String): Boolean;
Начинать
Результат: = true;
пытаться
Strtoint (ряд);
кроме
Результат: = false;
конец;
конец;
Функция класса tinteger.isvalidint64 (Arsting: String): Boolean;
Начинать
Результат: = true;
пытаться
Strtoint (ряд);
кроме
Результат: = false;
конец;
конец;
Функция класса tinteger.maxint: Integer;
Начинать
Результат: = System.maxint;
конец;
Функция класса tinteger.maxlongint: Integer;
Начинать
Результат: = System.maxlongint;
конец;
Функция класса tinteger.inttobin (ainteger: cardinal): string;
вар
я: целое число;
Начинать
SetLength (результат, 32);
для i: = от 1 до 32
Начинать
if ((ainteger shl (i-1)) shr 31) = 0 тогда
Результат [i]: = '0' '
еще
Результат [i]: = '1';
конец;
конец;
Функция класса tinteger.inttohex (ainteger: Integer): String;
Начинать
Результат: = sysutils.inttohex (ainteger, 0);
конец;
Функция класса tinteger.hextoint (Astring: String): Integer;
Начинать
Если tstring.left (ряд, 1) = '$' then
Результат: = strtoint (ряд)
еще
РЕЗУЛЬТАТ: = strtoint ('$' + Astring);
конец;
Функция класса tinteger.mazeserialno (ainteger, adigit: integer): string;
вар
tmpstr: string;
я: целое число;
Начинать
tmpstr: = '';
для i: = 0 до adigit - 1 do // itater
Начинать
tmpstr: = tmpstr + '0';
конец;
Результат: = formatfloat (tmpstr, ainteger);
конец;
{Tfloat}
Функция класса tfloat.floattomoney (const value: Double; Round: Boolean): String;
Начинать
// сумма округлена по умолчанию
конец;
Функция класса tfloat.isvalidfloat (string: string): boolean;
Начинать
Результат: = true;
пытаться
Strtofloat (string);
кроме
Результат: = false;
конец;
конец;
Функция класса tfloat.maxdouble: двойной;
Начинать
Результат: = 1,7E+308;
конец;
Функция класса tfloat.maxextended: extended;
Начинать
Результат: = 1,1E+4932;
конец;
Функция класса tfloat.mindouble: Double;
Начинать
Результат: = 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: endended;
Epsilon: расширен): логический;
Начинать
Результат: = math.samevalue (a, b, epsilon);
конец;
{Tboolean}
Функция класса tboolean.booltoStr (aboolean: boolean): string;
Начинать
Если аболеант, тогда
Результат: = 'true'
еще
Результат: = 'false';
конец;
Функция класса tboolean.strtobool (Astring: String): Boolean;
Начинать
Если прописное (ряд) = 'true', тогда
Результат: = true
еще
Результат: = false;
конец;
конец.