Можно ли применить функцию format в таком случае?

[XE5]

Имеем 3 переменных типа integer, хранящие соответственно количество дней, часов, и минут. Можно ли функцией format, либо иной подобной функцией вывести приблизительно такой текст.

2 дн. 4ч. 3 мин.

Входные числа могут равняться, либо быть меньше нуля. Тогда эти числа должны игнорироваться, т.е.

2 дн. 3 мин.

- часы меньше, или равны нулю.

......

if a1 > 0 then ..
if a2 > 0 then ..
if a3 > 0 then ..

Такой вариант понятен, можно не предлагать.

[ZuBy]

Ну format для это не предназначен, он просто подставляет данные в нужных местах.

Вам проще создать две/три константы:

const
  Format_1 = '%d дн. %dч. %d мин.';
  Format_2 = '%d дн. %d мин.';
  ...

И через if then, case сделать

Ну или переписать функцию Format

[XE5]

ZuBy Может есть иные аналогичные format встроенные функции, которые удовлетворяют таким условиям? Их, я знаю, несколько есть.

[ZuBy]

Сообщение от XE5

ZuBy Может есть иные аналогичные format встроенные функции, которые удовлетворяют таким условиям? Их, я знаю, несколько есть.

Я по крайней мере не знаю, но могу предложить еще такой способ

По памяти как-то так, поправьте если ошибаюсь

 Str := ReplaceString(' 0ч. ', ' ', Str, [ReplaceAll]);

[raxp]

type ff = packed record
 dni,
 chasi,
 minute: integer;
end;
var tf: ff;

...
const
paramdat = 'Дни %d Часы %d Минуты %d';

...
...:= format(paramdat, [ff.dni, ff.chasi, ff.minute]);

[XE5]

ZuBy Идея ясна, спасибо. Хотелось бы конечно решение в одну строчку. С ReplaceString не прокатит. Чувствую что есть такая функция. Буду искать.
raxp Не уловил смысла. Выполнение условия i > 0 не вижу.

[raxp]

Входные числа могут равняться, либо быть меньше нуля. Тогда эти числа должны игнорироваться

недочитал.

...но вообще, ноль никогда при визуализации не игнорируется, это всегда значащее число/символ. В какой конкретно задаче такое могло понадобиться?

[ZuBy]

Думаю будильник или что-то подобное

[Stilet]

Чувствую что есть такая функция.

По-моему нет такой функции.
Я когда-то для себя описал

function IIF(a:boolean;b,c:variant):variant;
begin
 if a then result:=b else result:=c;
end;

Соответственно

...:=iif(a1 > 0,IntToStr(a1)+' дн. ',' ')+
      iif(a2 > 0,IntToStr(a2)+' ч. ',' ')+
      iif(a3 > 0,IntToStr(a3)+' мин. ','');

И часто ее использую.

[XE5]

В какой конкретно задаче такое могло понадобиться?

Условное архивирование данных. Входные данные представлены одним большим числом int64. Моя задача разбить это число на "подчисла", и отобразить в текстовом варинте. На пальцах можно изобразить так.

i := 10000;
a1 := i div 100;
i := i mod 100;
a2 := i div 10;
a3 := i mod 10;

Разложили число на элементы. Осталось вывести. Это всё условно. На деле задача более сложна, я просто дал самую суть, чтоб не путать, и чтоб показать, что это точно не очередной будильник. Собственно вопрос не критичный, мне просто в процессе программирования пришла в голову мысль, что эту часть кода можно упростить.