Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
ergan238
0 / 0 / 0
Регистрация: 13.03.2018
Сообщений: 1
1

Ошибки [Error] Unit1.pas(40): Incompatible types

13.03.2018, 12:33. Просмотров 142. Ответов 6
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 var S,p,ku:Real;
begin
 
 
 p:=StrToInt( Edit1.Text);
 ku:=StrToInt( Edit2.Text);
 s:= StrToInt(Edit3.Text);
 if p= [1..3,13,14] then
  s:= ku*270*1
 else if p=[4..7] then
s:=ku*270*2.5
 else if p=[8,9] then
  s:= ku*270*1.8
  else if p=[10..12] then
  s:=ku*270*1.5
   else ShowMessage('Помилка');
 
end;
 
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2018, 12:33
Ответы с готовыми решениями:

[Error] Unit1.pas(46): Incompatible types
Вот делаю Лабораторку по масивам напесал unit Unit1; interface uses Windows, Messages,...

[Error] Unit1.pas(50): Incompatible types: 'Integer' and 'Extended'
procedure TForm1.Button1Click(Sender: TObject); begin a:=StrToInt(edit1.Text);...

Ошибка [Error] Unit1.pas(38): Incompatible types: 'Array' and 'String'
На строке s:=memo1.lines; выводит Unit1.pas(38): Incompatible types: 'Array' and 'String' Не знаю...

Ошибка [Error] Unit1.pas(84): Incompatible types: 'Integer' and 'Extended'
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

[Error] Unit1.pas(205): Incompatible types: 'String' and 'Integer'
Memo1.Font.Name:=Ini.ReadInteger('Font.Name','Memo1.Font.Name',100); Скажите в чем проблема...

6
Puporev
Модератор
55418 / 42547 / 29399
Регистрация: 18.05.2008
Сообщений: 100,652
13.03.2018, 12:38 2
Строка 33
Delphi
1
var S,p,ku:integer;
0
qwertehok
2325 / 2226 / 605
Регистрация: 29.08.2013
Сообщений: 14,902
13.03.2018, 12:44 3
и лучше кучу if'ов заменить на 1 case
0
DenNik
Непрофессионал
2012 / 1494 / 308
Регистрация: 26.07.2011
Сообщений: 8,126
13.03.2018, 15:08 4
Цитата Сообщение от ergan238 Посмотреть сообщение
if p= [1..3,13,14] then
а что, это правильно?
0
Puporev
Модератор
55418 / 42547 / 29399
Регистрация: 18.05.2008
Сообщений: 100,652
13.03.2018, 15:12 5
Да уж
Delphi
1
var p:byte;
0
DenNik
Непрофессионал
2012 / 1494 / 308
Регистрация: 26.07.2011
Сообщений: 8,126
13.03.2018, 15:16 6
может, все-таки if p in [4..7] и т.д.?

Добавлено через 53 секунды
может, in вместо равенства, если я неточно выразился?
0
Puporev
Модератор
55418 / 42547 / 29399
Регистрация: 18.05.2008
Сообщений: 100,652
13.03.2018, 15:18 7
Конечно
Delphi
1
if p in [4..7]
Лучше не смотреть в этот код, как мне в зеркало.
0
13.03.2018, 15:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2018, 15:18

[Error] Unit1.pas(186): Incompatible types: 'String' and 'dynamic array'
Unit1.pas(186): Incompatible types: 'String' and 'dynamic array' как решить проблему?

Ошибка [Error] Unit1.pas(165): Incompatible types: 'WideString' and 'Char'
procedure TForm1.GetDrives; var Driv:char; begin SetLength(Drives,0); for Driv:='A' to 'Z' do...

[Pascal Error] Unit1.pas(50): E2010 Incompatible types: 'Char' and 'TCaption'
описать логическую функцию ХОДФЕРЗЯ (n1,n2), которая проверяет, может ли ферзь за один ход переидти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru