Главная страницаОбратная связьКарта сайта

Показать число с разделителями тысячных знаков

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function AddThousandSeparator(S: string; Chr: Char): string;
 var
    I: Integer;
 begin
   Result := S;
   I := Length(S) - 2;
   while I > 1 do
    begin
     Insert(Chr, Result, I);
     I := I - 3;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit1.Text := AddThousandSeparator("400500210", """");
   // -- 400"500"210 
end;


 // Other possibility / andere Mцglichkeit: ThousandSeparator := """"; 

 label1.Caption := FormatFloat("#,###,###.###", 23453452);

 // --> 23"453"452 

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Показать число с разделителями тысячных знаков", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info