тип single - в чем ошибка?

← →
Roobee © (2004-12-19 07:40) [0]

код >>>

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n : single;
begin
n := StrToFloat(Edit1.Text);
Edit2.Text := FloatToStr(n);
end;

end.

>>>>>>>>>>>

если в Edit1 >> ,6 то после нажатия на Button1
в Edit2 получаю 0,600000023841858

ЭТО ГЛЮК???

← →
Palladin © (2004-12-19 08:00) [1]

Сколько глюкофилов развелось... кошмар... Нет чтоб поискать, подумать, обратится к первоисточникам, у себя ошибки поискать. Нет. Все нужно свалить на когото. Это ваш основной глюк! :)

http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/reals.htm

← →
roobee © (2004-12-19 12:40) [2]

ну конечно, облаять проще всего. носом ткнуть - учись мол.

учусь. просто думаю что число не должно стать
ни больше ни меньше в результате этих преобразований.
между прочим если использовать не single а любой
другой real тип то число не изменяется. так вот.

> roobee © (19.12.04 12:40) [2]

> между прочим если использовать не single а любой
> другой real тип то число не изменяется. так вот.

RTFM: Object Pascal Language Guide. Real types

--
Regards, LVT.

тип single - в чем ошибка? Найти похожие ветки