Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
Keiziz
0 / 0 / 0
Регистрация: 28.12.2016
Сообщений: 1
#1

не могу составить программу - Lazarus

28.12.2016, 18:08. Просмотров 188. Ответов 1
Метки нет (Все метки)

нужно что бы над максимальным числом создавалась какая либо пометка
но что то не пашет
вылазит ошибка будто выходит за пределы ограничения

Pascal
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
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Grids, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,n:byte;
begin
n:=strtoint(edit1.Text);
stringgrid1.ColCount:=strtoint(edit1.text);
stringgrid1.ROWCount:=strtoint(edit2.text);
stringgrid2.ColCount:=strtoint(edit1.text);
stringgrid2.ROWCount:=strtoint(edit2.text);
for i:=1 to n do
begin
stringgrid1.cells[I-1,0]:=inttostr(i);
stringgrid2.cells[I-1,0]:=inttostr(i);
end
end;
 
procedure TForm1.Button2Click(Sender: TObject);
VAR
N,I:INTEGER;
x:array[1..20] of integer;
begin
x[i]:=strtoint(stringgrid1.cells[I-1,1]);
N:=STRTOINT(EDIT1.TEXT);
FOR I:=1 TO N DO
STRINGGRID2.Cells[I-1,1]:=INTTOSTR(X[I])
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 
end;
 
initialization
  {$I unit1.lrs}
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 18:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос не могу составить программу (Lazarus):

Коэффициент аннуитет (Не могу составить в delphi)! - Delphi
A = P * (1+P)N / ((1+P)N-1) - это коэффициент аннуитета , где A — коэффициент аннуитета; P — процентная ставка выраженная в сотых...

Не могу закончить программу - Lazarus
Есть код авторизации для подключения к базе данных, необходимо его закончить, потому как при вводе неправильного логина, пароля или хоста,...

Не могу запустить программу - Delphi
Всем привет,пожалуйста помогите не могу завести программу уже не знаю что и делать выходит Фатальная ошибка UDM.pas(98) ...

Составить программу - Delphi
Здравствуйте, помогите, пожалуйста, составить программу вычисления суммы ряда с заданной точностью E. Использовать отношения при...

Составить и отладить программу - Delphi
Составить и отладить программу нахождения расстояния на плоскости между точками (х1,у1) и (х2,у2). (d=корень из всего этого(x2-x1)^2...

Не могу написать программу в среде Lazarus - Lazarus
Ни как не могу создать событие Click для Button2. Я не умею работать с Check.Box, поэтому даже понятия не имею, как мне написать программу.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
edukra
454 / 431 / 131
Регистрация: 24.01.2012
Сообщений: 1,048
29.12.2016, 07:59 #2
Самая распространенная ошибка. Ячейки в stringgrid нумеруются от 0 до rowcount-1 (colcount-1), а не от 1 до rowcount (colcount)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.12.2016, 07:59
Привет! Вот еще темы с ответами:

составить программу-простейший калькулятор - Delphi
составить программу-простейший калькулятор составить программу простейший калькулятор.использовать компоненты ActionList,...

Не могу запустить программу написанную на Borland Delphi 7.0 - Delphi
Не могу запустить программу написанную на Borland Delphi 7.0. при запуске ругается на uses Classes, Controls, IWControl, IWExtCtrls,...

Составить программу вычисления арифметических выражений - Delphi
Добрый день! В Delphi ещё совсем новичок, помогите составить программу вычисление арифметических выражений: Буду очень благодарен.

Составить программу вычисления значения функции z(x) - Delphi
Ребят помогите:Составить программу вычисления значения функции z(x):


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

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

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