МодульSysUtils

В стандартном модуле DelphiSysUtilsопределено огромное количество процедур и функция для работы с файлами, дисками, ошибками, строками и т.д. Приведем краткое описание подпрограмм для обработки и форматирования строк:

functionAnsiUpperCase(constS:string):string; - Возвращает строкуSв верхнем регистре, с учетом национальных символов (только для кодировкиWindows).

functionAnsiLowerCase(constS:string):string; - Возвращает строкуSв нижнем регистре, с учетом национальных символов (только для кодировкиWindows).

functionDateToStr(Date:TDateTime):string; - Преобразует формат упакованной даты и времениDate:TDateTimeв строку с датой.

functionTimeToStr(Time:TDateTime):string; ; - Преобразует формат упакованной даты и времениTime:TDateTimeв строку со временем.

functionIntToHex(Value:Integer;Digits:Integer):string; - Преобразует целое число со значениемValueв строку с шеснадцатиричным представлением,Digits– определяет минимальное количество знаков.

functionIntToStr(Value:Integer):string; - Преобразует целое число со значениемValueв строку.

functionFloatToStr(Value:Real):string; - Преобразует вещественное число со значениемValueв строку.

function StrToInt (S: string): Integer; - Преобразует строку s в целое число.

function StrToFloat (S: string): Real; - Преобразует строку s в вещественное число.

function Time: TDateTime; function GetTime: TDateTime; - Возвращают текущее время.

functionNow:TDateTime; - Возвращает текущее время и дату.

procedureSleep(milliseconds: Cardinal); - Делает паузу в выполнении программы с длительностью milliseconds.

Модуль Console

Для удобной работы в консольном приложении Delphi можно воспользоваться модулем Console.pas, разработанным Rudy Velthuis и свободно распространяемым в сети Интернет. Процедуры и функции этого модуля корректно работают в среде Windows и имеют одинаковые названия и параметры с подпрограммами модуля CRT из Турбо Паскаля. Подпрограммы этого модуля позволяют программисту управлять расширенным вводом и выводом.

Константы цветов:

Black = 0	Red = 4	DarkGray = 8	LightRed = 12
Blue = 1	Magenta =5	LightBlue = 9	LightMagenta = 13
Green = 2	Brown = 6	LightGreen = 10	Yellow = 14
Cyan = 3	LightGray = 7	LightCyan = 11	White = 15

Процедуры и функции:

procedureClrEol;	Очищает все символы с позиции курсора до конца строки
procedureClrScr;	Очищает экран или окно цветом фона, курсор устанавливается в левый верхний угол.
procedureDelay(M: Integer);	Задерживает выполнение программы на М*10-3секунд
procedureDelLine;	Удаляет строку, в которой находился курсор.
procedureGotoXY(X, Y: Smallint);	Устанавливает курсор в позицию с координатами X,Y.
procedureInsLine;	Вставляет пустую строку в позицию курсора.
functionKeyPressed: Boolean;	Возвращает значение True, если была начата любая клавиша.
functionReadKey: Char;	Считывает символ, нажатый на клавиатуре. Нажатый символ не дублируется на экране и для ввода не надо нажиматьEnter.
procedureTextBackground(Color: Byte);	Устанавливает цвет фона.
function TextBackground: Byte;	Возвращает текущий цвет фона.
procedureTextColor(Color: Byte);	Устанавливает цвет шрифта.
functionTextColor: Byte;	Возвращает текущий цвет шрифта.
functionWhereX: Integer; functionWhereY: Integer;	Возвращают текущие координаты курсора на экране
procedureWindow(Left, Top, Right, Bottom: Integer);	Задает окно вывода на экране. Параметры – координаты левого верхнего и правого нижнего углов окна.