Функція Format – розширене форматування чисел і тексту в рядку

Функція Format в Delphi – розширене форматування чисел і тексту в рядку.

Функція Format: Показ усіх форматованих типів даних

var
  text : string;
begin
  // Лише 1 елемент даних
  ShowMessage(Format('%s', ['Hello']));

  // З'єднання символьного тексту та елемента даних
  ShowMessage(Format('String = %s', ['Hello']));
  ShowMessage('');

  // Приклади кожного з типів даних
  ShowMessage(Format('Decimal          = %d', [-123]));
  ShowMessage(Format('Exponent         = %e', [12345.678]));
  ShowMessage(Format('Fixed            = %f', [12345.678]));
  ShowMessage(Format('General          = %g', [12345.678]));
  ShowMessage(Format('Number           = %n', [12345.678]));
  ShowMessage(Format('Money            = %m', [12345.678]));
  ShowMessage(Format('Pointer          = %p', [addr(text)]));
  ShowMessage(Format('String           = %s', ['Hello']));
  ShowMessage(Format('Unsigned decimal = %u', [123]));
  ShowMessage(Format('Hexadecimal      = %x', [140]));
end;

Функція Format: Використовуючи індекс, ширину та значення точності

begin
  // Значення ширини диктує розмір виводу
  // з пробілом, що додається зліва
  // Зверніть увагу <>, символи додаються, щоб показати форматування
  ShowMessage(Format('Padded decimal    = <%7d>', [1234]));

  // С '-' оператором, дані вирівнюються вліво
  ShowMessage(Format('Justified decimal = <%-7d>', [1234]));

  // Значення точності змушує 0 доповнень до бажаного розміру
  ShowMessage(Format('0 padded decimal  = <%.6d>', [1234]));

  // Комбінація ширини та точності
  // Зверніть увагу, що значення ширини передує значенню точності
  ShowMessage(Format('Width + precision = <%8.6d>', [1234]));

  // Індексне значення дозволяє наступному значенню в масиві
  // даних бути зміненим
  ShowMessage(Format('Reposition after 3 strings = %s %s %s %1:s %s',
                     ['Zero', 'One', 'Two', 'Three']));

  // Зверніть увагу, випробування показало, що * для параметра ширини
  // може призвести до ECONVERTERROR.
  
  ShowMessage(Format('In line           = <%10.4d>', [1234]));
  ShowMessage(Format('Part data driven  = <%*.4d>', [10, 1234]));
  ShowMessage(Format('Data driven       = <%*.*d>', [10, 4, 1234]));
end;