Числа и запятые

[celovec]

Я вас уже наверное замучил своими глупыми вопросами.

Казалось бы просто, но почему-то не поддается.
Есть переменная, назовем ее number, в ней находятся цифры.
Возможно ли в одну строчку сделать разделитель.
Тоесть если в переменной больше 4 цифр, после третей с конца ставим запятую.
Пример 43,555 или 5,777 или 443
Помогите пожалуйста.

[_SERGEYX_]

А number - это строка или число? Кто писать будет?
или так

procedure TfrmMain.Button1Click(Sender: TObject);
 var number: Double;
begin
number:= 12345;

if number>9999 then number:= number/1000;
ShowMessage(FloatToStr(number));
end;

или так

procedure TfrmMain.RzBitBtn1Click(Sender: TObject);
 var number: string;
begin
number:= '12345';

if Length(number) > 3 then Insert(',',number,length(number)-2);
ShowMessage(number);
end;

Вообще, вариантов много

[celovec]

number это integer.
Разобрался, спасибо.

[celovec]

Прошу прощенья, а возможно ли как-то еще упростить данное решение (без if)?

[_SERGEYX_]

Именно if убрать? А чем тебе if не нравится?
Напиши функцию, типа этой

function BlaBlaBla(i: Integer): string;
begin
  case i of
    0 .. 9999:
      Result := IntToStr(i);
  else
    Result := FormatFloat('0.000', i / 1000);
  end;
end;

procedure TfrmMain.RzBitBtn1Click(Sender: TObject);
begin
  ShowMessage(BlaBlaBla(123456789));
end;

Кажется, есть какая-то строка форматирования, наподобие %10.3f, чтобы сразу выдать нужный формат, но я не помню, а справочника под рукой нет...

[Аватар]

  ThousandSeparator:=',';
  s:=FormatFloat('#,##0',45555);
  s:=FormatFloat('#,##0',555);

[celovec]

Спасибо Аватар, то что нужно!
_SERGEYX_, вам тоже спасибо.

[celovec]

Расскажите пожалуйста подробней о ThousandSeparator:=',';

FormatFloat я использую в трех функциях. Насколько я понимаю ThousandSeparator необходимо писать в каждой из них?

Потому что вчера пробовал ThousandSeparator вставить в FormCreate, он срабатывал. А сегодня запустил созданы Project.exe уже на другом компьютере и вместо запятой я вижу пробел. Тоесть ThousandSeparator не срабатывает. Почему так происходит?