Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.74/19: Рейтинг темы: голосов - 19, средняя оценка - 4.74
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 50
1

Присвоение массиву значений stringgrid

06.12.2012, 03:05. Показов 3757. Ответов 4

Author24 — интернет-сервис помощи студентам
Не могу присвоить, выдает ошибку, подскажите , что исправить
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button2Click(Sender: TObject);
var
  a:array of array of integer;
  i,j:integer;
  begin
  setlength(a,stringgrid1.RowCount,stringgrid1.ColCount) ;
    for i := 0 to stringgrid1.RowCount - 1 do
      for j := 0 to stringgrid1.ColCount - 1 do
        a[i,j]:=strtoint(stringgrid1.Cells[j,i])
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2012, 03:05
Ответы с готовыми решениями:

Присвоение значений всему массиву
Друзья, подскажите, пожалуйста. Есть в Delphi оператор или команда, с помощью которой можно...

Присвоение отрицательных значений в StringGrid-е
Вопрос легкий для тех кто занимается программированием регулярно. В граничные строки и столбцы...

Присвоение значений
Есть код Delphi: unit Unit2; interface uses Windows, Messages, SysUtils, Variants,...

Чтение и присвоение значений из файла
Есть куча форм, из каждой формы происходит сохранение значений и свойств элементов (эдиты,...

4
71 / 70 / 21
Регистрация: 04.04.2012
Сообщений: 351
06.12.2012, 03:24 2
попробуй массив свой описать
Pascal
1
a:array[0..100,0..100]of integer;
0
3337 / 2435 / 554
Регистрация: 11.09.2009
Сообщений: 8,844
06.12.2012, 03:29 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button2Click(Sender: TObject);
var
  a:array of array of integer;
  i,j:integer;
  begin
  setlength(a,stringgrid1.RowCount);  // установить длину динамического массива элементов
  for i:=0 to Length(a) do setlength(a[i], stringgrid1.ColCount) ;  // установить длину каждого элемента динамического массива
    for i := 0 to stringgrid1.RowCount - 1 do
      for j := 0 to stringgrid1.ColCount - 1 do
        a[i,j]:= StrToIntDef(stringgrid1.Cells[j,i], 0);  // Незаполненная или ошибочно заполненная (не число) ячейка = 0
end;
0
0 / 0 / 0
Регистрация: 30.10.2012
Сообщений: 50
06.12.2012, 18:20  [ТС] 4
Ипользовал последний код, добавил туда функцию удаления определенной строки, но при нажатии на кнопку ничего не происходит, когда использовал просто StringGrid1.Cells[j, i]:=StringGrid1.Cells[j, i+1], то всё работало, но с массивом как то не получается. Подскажите , в чем ошибка
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
var
  a:array of array of integer;
  i,j:integer;
  begin
  setlength(a,stringgrid1.RowCount);
  for i:=0 to Length(a) do setlength(a[i], stringgrid1.ColCount) ;
    for i := 0 to stringgrid1.RowCount - 1 do
      for j := 0 to stringgrid1.ColCount - 1 do
        a[i,j]:= StrToIntdef(stringgrid1.Cells[j,i],0);
          a[i,j]:=a[i+1,j];
          stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
end;
0
3337 / 2435 / 554
Регистрация: 11.09.2009
Сообщений: 8,844
06.12.2012, 18:29 5
Цитата Сообщение от Marcus Kane Посмотреть сообщение
добавил туда функцию удаления определенной строки
Вы иногда потом читаете, что пишете?
В строке 11 вы присваиваете какому-то значению вообще неопределённое значение типа следующего в массиве элемента.
Но это уже вне цикла, так что i и j в общем-то не определены...

Скучно.
0
06.12.2012, 18:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2012, 18:29
Помогаю со студенческими работами здесь

Stringgrid подсчет значений
есть таблица stringgrid в ней столбец с различными словами , нужно подсчитать их и перезаписать в...

Сохранение значений. StringGrid
Здравствуйте! У меня есть StringGrid в который заносятся данные после сыгранной игры (3 столбца),...

Сортировка значений в StringGrid
у меня есть табл которую нужно отсортировать по алфавиту 1 колонку for i:=1 to m-1 do begin...

StringGrid Сортировка по диапазону значений
На форме Stringgrid,2 Edit и кнопка.В edit-ы записывается промежуток значений (например edit1-1000,...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru