Скачать: CL | DM;

тип 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 тип то число не изменяется. так вот.

---

← →
Leonid Troyanovsky ©   (2004-12-19 13:02) [3]

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

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


RTFM: Object Pascal Language Guide. Real types

--
Regards, LVT.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c