Delphi: функция format (пример, форматирование, преобразование в шестнадцатеричную систему)
Предположим, мы хотим преобразовать число в строку, например, для того, что бы вывести его на экран. Ну, хотя бы в таком простом случае, как отобразить результат вычисления:
| procedure
TForm1.btnCalkClick(Sender: TObject); begin lbResult.Caption:=FloatToStr(123/456); end; |
Вот что выдаст компьютер при выполнении этого кода:
Но как быть, если нам нужно вывести не кучу знаков после запятой, а всего лишь три? Как вариант, можно использовать функцию format.
| procedure
TForm1.btnCalkClick(Sender: TObject); begin lbResult.Caption:=Format('Результат %.3n',[123/456]); end; |
При нажатии на кнопку программа у нас покажет вот это:
В Delphi функция Format, обеспечивает 'C' подобное форматирование множества простых типов данных в строке. В качестве первого параметра этой функции мы указываем форматную строку, а в качестве второго - множество параметра (то что внутри []).
В простых условиях
каждые данные, форматирующие подстроку начинаются с % и заканчиваются
индикатором типа данных:
d = Десятичное (целое число)
e = Научный
f = Установленный
g = Генерал
m = Деньги
n = Число (плавающее)
p = Указатель
s = Строка
u = Десятичное число без знака
x = Шестнадцатеричный
Рассмотрим пример:
| procedure
TForm1.btnCalkClick(Sender: TObject); var i:integer; begin i:=123; lbResult.Caption:=Format('%d в десятичном это %x в шестнадцатиричном',[i,i]); end; |
Вот что нам выдаст программа:
Общий формат форматирования каждой
подстроки следующий:
%[Index:][-][Width][.Precision]Type
где квадратные скобки относятся к дополнительным параметрам, и :. - символы - литералы, первые 2 из которых используются, чтобы идентифицировать два из дополнительных параметров.
Рассмотрим еще пример:
| procedure
TForm1.btnCalkClick(Sender: TObject); begin lbResult.Caption:=Format('%.4f',[123.456]); end; |
И вот что нам выдаст программа:
А теперь рассмотрим пример, демонстрирующий все форматы функции format. Сналала положим на форму комонент TListBox (он находиться на закладке Standart). Назовем этот компонент lbFormatDemo. Затем добавим кнопочку и создадим обработчик событий OnClick:
| procedure
TfrmFormatDemo.btnStartClick(Sender: TObject); var text : string; begin // Только 1 элемент данных lbFormatDemo.Items.Add(Format('%s', ['Hello'])); // Соединение символьного текста и элемента данных lbFormatDemo.Items.Add(Format('String = %s', ['Hello'])); // Примеры каждого из типов данных lbFormatDemo.Items.Add(Format('Decimal = %d', [-123])); lbFormatDemo.Items.Add(Format('Exponent = %e', [12345.678])); lbFormatDemo.Items.Add(Format('Fixed = %f', [12345.678])); lbFormatDemo.Items.Add(Format('General = %g', [12345.678])); lbFormatDemo.Items.Add(Format('Number = %n', [12345.678])); lbFormatDemo.Items.Add(Format('Money = %m', [12345.678])); lbFormatDemo.Items.Add(Format('Pointer = %p', [addr(text)])); lbFormatDemo.Items.Add(Format('String = %s', ['Hello'])); lbFormatDemo.Items.Add(Format('Unsigned decimal = %u', [123])); lbFormatDemo.Items.Add(Format('Hexadecimal = %x', [140])); end; |
вот что выдаст программа, когда мы нажмем на кнопочку:
А вот еще пример с использование ширины, индекса и значений точности:
| procedure
TfrmFormatDemo.btnStartClick(Sender: TObject); begin // Значение ширины диктует размер вывода // с пробелом, добавляющемся слева // Обратите внимание <>, символы добавляются, чтобы показать форматирование lbFormatDemo.Items.Add(Format('Padded decimal = <%7d>', [1234])); // С '-' оператором, данные выравниваются влево lbFormatDemo.Items.Add(Format('Justified decimal = <%-7d>', [1234])); // Значение точности вынуждает 0 дополнений к желательному размеру lbFormatDemo.Items.Add(Format('0 padded decimal = <%.6d>', [1234])); // Комбинация ширины и точности // Обратите внимание, что значение ширины предшествует значению точности lbFormatDemo.Items.Add(Format('Width + precision = <%8.6d>', [1234])); // Индексное значение позволяет следующему значению в массиве // данных быть измененным lbFormatDemo.Items.Add(Format('Reposition after 3 strings = %s %s %s %1:s %s',['Zero', 'One', 'Two', 'Three'])); // Обратите внимание, испытание показало, что * для параметра ширины // может привести к ECONVERTERROR. lbFormatDemo.Items.Add(Format('In line = <%10.4d>', [1234])); lbFormatDemo.Items.Add(Format('Part data driven = <%*.4d>', [10, 1234])); lbFormatDemo.Items.Add(Format('Data driven = <%*.*d>', [10, 4, 1234])); end; |
