VPF::Помогите чайнику - Форум программистов

Drizhenko

Дата 21.10.2005, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Помогите, пожалуйста. Нимогу ничего понять. Почему выдается ошибка [Error] Unit1.pas(30): Incompatible types: 'Integer' and 'Extended' и показывает на строчку

Код


  g:=100/2;

В чем дело?

Код


unit Unit1;

interface

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

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

var
  Form1: TForm1;
  g:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  g:=100/2;
end;

end.

Rennigth

Дата 21.10.2005, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Drizhenko

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  g:=Round(100/2);
end;

Это сообщение отредактировал(а) Rennigth - 21.10.2005, 11:16

--------------------

(* Honesta mors turpi vita potior *)

~FoX~

Дата 21.10.2005, 11:21 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Drizhenko
Ну какое же integer, если ты делене производишь?
Компилер, он дурак....если очень хочиться выполняей целочисленное деление.

--------------------

…множественность никогда не следует полагать без необходимости…

Drizhenko

Дата 21.10.2005, 11:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Спасибо парни smile

Это сообщение отредактировал(а) Girder - 21.10.2005, 14:39

Bibimij

Дата 23.10.2005, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 19.8.2005

Репутация: нет
Всего: нет

Цитата(Drizhenko @ 21.10.2005, 11:08)

Код


  g:=100/2;

Можешь ещё div вместо "/" использовать!
будет смотреться так:

Код


  g:=100 div 2;

И всё заработает! Удачи! smile

sergejzr

Дата 30.10.2005, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 1
Всего: 360

Модератор: Название темы должно отражать ее суть!
Модератор: Название темы должно отражать ее суть!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

CaMoroH

Дата 30.10.2005, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.10.2005
Где: Rostov-on-Don

Репутация: нет
Всего: нет

Код


var
  g : Extender; {or real}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »