подскажите как перевсти Integer в extendent

[Ol'ga]

Помогите плиз как перевести Integer в extendednt. Заранее спасибо!

[VVM]

Может объявить новую переменную типа extended и присвоить ей значение переменной integer?

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  E: extended;
begin
  I := 100;
  E := 0;
  E := I;
  ShowMessage(FloatToStr(E));
end;

[Ol'ga]

Спасибо! Огромное!

[puporev]

Помогите плиз как перевести Integer в extendednt.

А какой смысл?

[Arigato]

Пришло в голову такое решение:

var I: Integer;
    E: Extended;
begin
  I := 150;
  E := StrToFloat (IntToStr (I));
end;

На практике использовать не стоит, просто забавный вариант.

[puporev]

Никак не врублюсь, зачем это надо, если все целые числа и так входят в состав вещественных чисел. Напишите так:

var n:integer;
begin
n:=5;
Edit1.Text:=Floattostr(n);

И все нормально работает.

[_SERGEYX_]

Никак не врублюсь, зачем это надо

Наверное, для деления, когда нужно написать
x/y, а не x div y. ИМНО.

[puporev]

Наверное, для деления, когда нужно написать

Ну вы даете мужики. Зачем же переводить?
a,b:integer;
c:real;
c:=a/b;

[Квэнди]

флуд уже пошел.
закрыто.