Цитата:
Сообщение от Stalker2-42
...похудели на немного, но оставил...
|
Различие не в размерах исходных файлов, а в получаемом бинарнике. На данный момент у меня 25 Кб.
Для информации:
Код:
function FloatToStr(Value: Extended; Width, Decimals: Integer) : String;
begin
Str(Value : Width : Decimals, Result);
end;
Вторую функцию нет смысла переписывать полностью, достаточно только нужную для работы часть.