Процедура ShowMessageFmt – відображає відформатовані дані у простому діалоговому вікні з кнопкою ОК

Процедура ShowMessageFmt в Delphi відображає відформатовані дані у простому діалоговому вікні з кнопкою ОК.

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

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

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

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

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

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

  // З оператором '-', дані вирівнюються вліво
  ShowMessageFmt('Вирівняне десяткове число = <%-7d>', [1234]);

  // Значення точності викликає додаток 0 до бажаного розміру
  ShowMessageFmt('Доповнене 0 десяткове число = <%.6d>', [1234]);

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

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

  // Одне або більше значень можуть бути забезпечені масивом даних безпосередньо
  // Зверніть увагу, що випробування показало *
  // для параметра ширини може призвести до EConvertError.
  ShowMessageFmt('В рядку                 = <%10.4d>', [1234]);
  ShowMessageFmt('Керована частина даних = <%*.4d>', [10, 1234]);
  ShowMessageFmt('Керовані дані      = <%*.*d>', [10, 4, 1234]);
end;