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

Lazarus

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

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

28.12.2016, 18:08. Просмотров 164. Ответов 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
Составить программу "Телефонный справочник города" Lazarus
Lazarus Составить программу вычисления А В , где А - квадратная симметричная матрица, заданная специальным способом хранения, а В - вектор - столбец
Составить автоматический тест, который будет проверять программу на работоспособность Lazarus
Составить графическую программу по коду в лазарусе Lazarus
Составить программу по изучению дорожных знаков Lazarus
Составить программу для вычисления функции Lazarus
Как составить программу рисования графика функции Lazarus
Lazarus Не могу закончить программу
Lazarus Составить программу циклической перестановки столбцов двумерного массива

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
edukra
431 / 414 / 120
Регистрация: 24.01.2012
Сообщений: 996
29.12.2016, 07:59     не могу составить программу #2
Самая распространенная ошибка. Ячейки в stringgrid нумеруются от 0 до rowcount-1 (colcount-1), а не от 1 до rowcount (colcount)
Yandex
Объявления
29.12.2016, 07:59     не могу составить программу
Ответ Создать тему
Опции темы

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