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

Несовместимость типов

27.02.2015, 23:56. Просмотров 317. Ответов 6
Метки нет (Все метки)

Где тут может быть несовместимоcть типов?


Delphi
1
2
 mas: array[0..8] of string;
  plus: array[0..8] of string;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm23.Button3Click(Sender: TObject);
var i,a,b,c:integer;
begin
if Edit8.Text='' then begin
Edit8.Text:='1';
end;
c:=StrToInt(Edit8.Text);
for i:=0 to razm do  begin
plus[i]:=StringGrid1.Cells[i,StrToInt(Edit5.Text)-1];
mas[i]:=StringGrid1.Cells[i,StrToInt(Edit6.Text)-1];
end;
for i:=0 to razm do  begin
a:=StrToInt(plus[i]);
b:=StrToInt(mas[i]);
a:=a+c*b;
StringGrid1.Cells[i,StrToInt(Edit5.Text)-1]:=IntToStr(a);
end;
end;
Добавлено через 12 минут
Пробовал так, все равно не получается
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm23.Button3Click(Sender: TObject);
var i,a,b,c:integer;
begin
if Edit8.Text='' then begin
Edit8.Text:='1';
end;
c:=StrToInt(Edit8.Text);
for i:=0 to razm do  begin
a:=StrToint(StringGrid1.Cells[i,StrToInt(Edit5.Text)-1]);
b:=StrToInt(StringGrid1.Cells[i,StrToInt(Edit6.Text)-1]);
a:=a+(c*b);
StringGrid1.Cells[i,StrToInt(Edit5.Text)-1]:=IntToStr(a);
end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2015, 23:56
Ответы с готовыми решениями:

Несовместимость типов
как объявить 1 общий тип на несколько юнитов?

Несовместимость типов
при работе со статическим массивом, то все работает: procedure...

Несовместимость типов
День добрый. Прошу помощи, procedure TForm4.BitBtn3Click(Sender: TObject);...

Несовместимость типов
Созданы следующие типы: type TEvent = record Title: string; ...

Несовместимость типов
Всем доброго времени! Написал вот такую вот функцию (только начало): function...

6
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25738 / 17292 / 6872
Регистрация: 22.10.2011
Сообщений: 30,513
Записей в блоге: 6
27.02.2015, 23:58 #2
Тут - нигде, этот фрагмент прекрасно компилируется.

Добавлено через 26 секунд
razm как описана?
0
buygarage
1 / 1 / 0
Регистрация: 05.02.2015
Сообщений: 48
28.02.2015, 00:04  [ТС] #3
Delphi
1
razm: integer;
0
FIL
Модератор
3412 / 2550 / 725
Регистрация: 19.09.2012
Сообщений: 7,920
28.02.2015, 00:05 #4
Цитата Сообщение от buygarage Посмотреть сообщение
несовместимоcть типов
На какой строке и каких типов?
0
buygarage
1 / 1 / 0
Регистрация: 05.02.2015
Сообщений: 48
28.02.2015, 00:06  [ТС] #5
Проект
0
Вложения
Тип файла: rar matrix.rar (746.3 Кб, 3 просмотров)
buygarage
1 / 1 / 0
Регистрация: 05.02.2015
Сообщений: 48
28.02.2015, 00:15  [ТС] #6
Вылетает, когда пытаешься к одной строке прибавить другую
0
northener
пофигист широкого профиля
3257 / 2309 / 629
Регистрация: 15.07.2013
Сообщений: 13,643
28.02.2015, 00:48 #7
Цитата Сообщение от buygarage Посмотреть сообщение
Проект
Нет никаких несовместимостей типов.
0
28.02.2015, 00:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2015, 00:48

Несовместимость типов в Delphi
Есть код: unit Unit1; interface uses Windows, Messages, SysUtils,...

Несовместимость типов, оператор цикла
Здравствуйте! Есть задача: Дано натуральное число n. Вычислить...

Ошибка при запуске программы в Delphi7. Несовместимость типов Slovo и String
Программа должна определять кол-во слов в списке, которые начинаются на ту же...


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

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

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