Форматирование текста. Делфи

[Valera]

Здравствуйте.
У меня есть число "5". Мне нужно его записать куда-то, как "000 000 005".
Встроеной функции я не нашел.

[Stilet]

Функцию format() нужно посмотреть в хелпе.
Иначе писать свой цикл типа

while Length(s)<11 do begin
 if (Length(s) mod 3)=0 then s:=' '+s else
  s:='0'+s;
end;

[Аватар]

А я нашел: FormatFloat('000 000 000',5)

[Valera]

Дело в том, что "5" - это не всегда число. Это может быть и "ло5д" и т.д. Надо оставшееся дополнить нулями и разбить по 3 шт.

[Stilet]

Ха. Тогда циклом

[Valera]

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

Функцию format() нужно посмотреть в хелпе.
Иначе писать свой цикл типа

while Length(s)<11 do begin
 if (Length(s) mod 3)=0 then s:=' '+s else
  s:='0'+s;
end;

Проверил. Работает неправильно. Результат: 0 00 00 005.
Попробую доработать.
Спасибо

[Аватар]

Дело в том, что "5" - это не всегда число.

А сразу нельзя сказать? Мало того, что от работы отвлекаешь, так еще вопрос не умеешь задать

[Valera]

Сообщение от Аватар

А сразу нельзя сказать? Мало того, что от работы отвлекаешь, так еще вопрос не умеешь задать

Прошу прощения. Неправ.

[Serge_Bliznykov]

а если так?

  s := '5';
  s := trim(s);
  while length(s)<9 do s:='0'+s;
  insert(' ',s,7);
  insert(' ',s,4);

[Valera]

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

а если так?

  s := '5';
  s := trim(s);
  while length(s)<9 do s:='0'+s;
  insert(' ',s,7);
  insert(' ',s,4);

Да, все работает.