07.04.2020, 08:56
|
 |
Администратор
|
|
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,564
Версия Delphi: Delphi 7
Репутация: выкл
|
|
Используй FormatFloat:
Код:
var
i: integer;
begin
Memo1.Clear;
for i := 0 to 10000 do
Memo1.Lines.Add(FormatFloat('00000', i+1))
end; |