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

Исправить ошибки в программе

05.04.2015, 13:51. Показов 591. Ответов 9
Метки нет (Все метки)

День добрый!
Сделал часть необходимого задания, но не могу довести его до ума, не могли бы Вы мне помочь и указать на мои ошибки! Т.к. при нажатии на кнопки вылетает куча ошибок уже в работающей программе и их порядок не соответствует заданию. Фото задания приложено.
Заранее благодарен за помощь и советы!

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
54
55
56
57
58
59
60
var
  Form1: TForm1;
  plita: Tshape;
  plit:array[1..100]of Tshape;
  var i:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to spinEdit1.Value do
 begin
  plit[i]:=Tshape.Create(Self);
  plit[i].parent:=self;
  plit[i].top:=150;
  plit[i].Left:=i*plit[i].Width;
  end;
 
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
for i:=1 to spinEdit3.Value do
 begin
  plit[i]:=Tshape.Create(Self);
  plit[i].parent:=self;
  plit[i].top:=150;
  plit[i].Height:=i*plit[i].Width;
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
plit[SpinEdit2.Value].Brush.Color:=clBlue;
 
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
plit[SpinEdit4.Value].Brush.Color:=clBlue;
end;
 {
procedure TForm1.Button3Click(Sender: TObject);
begin
 for i:=1 to spinEdit1.Value do
    plit[i].clear;
end;   }
 
procedure TForm1.Button4Click(Sender: TObject);
begin
plita:=Tshape.Create(Self);
plita.parent:=self;
plita.left:=random(Panel1.Width);
plita.Top:=random(Panel1.Height);
end;
 
 
end.
Миниатюры
Исправить ошибки в программе  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.04.2015, 13:51
Ответы с готовыми решениями:

Исправить ошибки в программе
Здравствуйте! Помогите исправить ошибки в программе. Вроде написал все как в методичке. Вот код...

помогите исправить ошибки в данной программе
помогите исправить ошибки в данной программе unit Unit12; interface uses Windows,...

Нужно исправить ошибки в классе и программе
Здравствуйте! У меня проблема с заданием по разработке класса. Собственно, задание: разработать...

Исправить ошибки в программе
type TFigure = class Name: string; function Аrea; virtual; abstract; constructor...

9
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
05.04.2015, 14:32 2
Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
при нажатии на кнопки вылетает куча ошибок
На какие кнопки и какие ошибки ?
1
0 / 0 / 0
Регистрация: 05.04.2015
Сообщений: 5
05.04.2015, 14:44  [ТС] 3
Ошибки вылетают при несоблюдении очередности нажатия кнопок окрашивания, так же ошибка при удалении последнего созданного элемента. Ошибки на подобии таких:
Миниатюры
Исправить ошибки в программе  
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
05.04.2015, 14:59 4
Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
при несоблюдении очередности нажатия кнопок окрашивания
А какая у них очередность?

Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
ошибка при удалении последнего созданного элемента
Удаления вообще не вижу в твоем коде.
1
0 / 0 / 0
Регистрация: 05.04.2015
Сообщений: 5
05.04.2015, 15:07  [ТС] 5
А какая у них очередность?
Если окрашивать не после каждого установленного элемента, а после установки всех окрасить элементы.
Удаления вообще не вижу в твоем коде.
Delphi
1
2
for i:=1 to spinEdit1.Value do
    plit[i].Destroy;
Так по заданию во вложенной картинке. Задача 4.
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
05.04.2015, 16:19 6
Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
после установки всех окрасить элементы.
Ничего не понимаю.
У тебя должно быть 3 кнопки:
1-я - создает заданное кол-во Шейпов.
2-я - красит выбранный Шейт (при этом: spinEdit2.Value <= spinEdit1.Value).
3-я - все их удаляет.
0
0 / 0 / 0
Регистрация: 05.04.2015
Сообщений: 5
05.04.2015, 16:49  [ТС] 7
Да, но далее в Задания для самостоятельной работы во вложенной фотографии в 1 посте идет задание, о том, что необходимо по мимо вертикального расположения элементов сделать и горизонтальное, так же и смена их цвета.
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
05.04.2015, 18:28 8
Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
по мимо вертикального расположения элементов сделать и горизонтальное
Вообще-то там говорится о прямоугольной области)
А для этого нужно использовать другой (и лучше двумерный) массив и работать уже с ним.
0
0 / 0 / 0
Регистрация: 05.04.2015
Сообщений: 5
06.04.2015, 09:54  [ТС] 9
FIL не подскажите, что именно необходимо, сделать и как?
0
Модератор
3476 / 2600 / 740
Регистрация: 19.09.2012
Сообщений: 7,966
06.04.2015, 10:29 10
Цитата Сообщение от IvanAlekseevich Посмотреть сообщение
не подскажите, что именно необходимо
Уже подсказал:
Цитата Сообщение от FIL Посмотреть сообщение
нужно использовать другой (и лучше двумерный) массив
и проделать с ним все тоже самое, что и с одномерным в методичке делается.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2015, 10:29

Исправить ошибки в программе, работающей с матрицами
unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Помогите пожалуйста исправить ошибки в программе
Собственно, нужно решить квадратное уравнение a2x-bax-c=0(a в степени 2x минус ba(a в степени x)...

Исправить ошибку в программе
uses SysUtils; var i,n,a,b: integer; begin writeln('Skolko chisel bydem proverat? '); ...

исправить ошибку в программе
Дан исходный текстовый файл, содержащий программу на языке Паскаль. Написать визуальное приложение...


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

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

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