Сокращение десятичных знаков в Delphi

Question

Я сохраняю список цифр (как двойной) в текстовом файле, а затем снова считываю их.

Однако, когда я прочитал их из текстового файла, цифры помещаются в текстовое поле как 1.59993499, например, вместо 1.6.

AssignFile(Pipe, 'EconomicData.data'); 
    Reset(Pipe); 
    For i := 1 to 15 
    Do ReadLn(Pipe, SavedValue[i]); 
    CloseFile(Pipe); 
    Edit1.Text := FloatToStr(SavedValue[1]); 

Текст в Edit1.Text, из приведенного выше кода, будет 1,59999 ... вместо 1.6 в текстовом файле. Как я могу это сделать, чтобы текстовое поле отображало исходное значение (1.6)?

Answer 1

вы можете использовать FormatFloat Функция

var 
    d: double; 
begin 
d:=1.59993499 ; 
Edit1.Text:=FormatFloat('0.0',d); //show 1.6 
end; 

Answer 2

К сожалению, я не был уверен, будет ли он удовлетворить ваши требования, но мой первоначальный ответ был использовать:

Format('%n', [SavedValue[1]]);

Answer 3

Просто осторожно при использовании плавающих точек. Если вы собираетесь выполнять вычисления с использованием значений, то вам лучше использовать либо тип валюты, либо целое число, и подразумевая десятичную точку до сохранения. Как вы заметили, значения с плавающей запятой являются аппроксимациями, и ошибки округления неизбежно будут связаны.

Например, можно сказать, что вы хотите сохранить десятые в своей программе (1.6), просто создайте целочисленную переменную и для всех интенсивных целей подумайте об этом как десятые. Когда вы идете, чтобы отобразить значение, то используйте следующее:

Format('%n',[SavedValue[1]/10]); 

валюты представляет собой целое число типа с подразумеваемой десятичной тысячных.