Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.08.2011, 15:16   #1
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию добавление данных в массив

Код:
var
  a: array of integer;
  k: integer; // текущий элемент массива
  i: integer; // индекс для ввода и вывода массива
  changed: boolean; // TRUE, если в текущем цикле были обмены
  buf: integer; // буфер для обмена элементами массива
begin
  // ввод массива
  StringGrid1.Col:=0;
  while StringGrid1.Col<StringGrid1.colCount-1 do
  begin
    SetLength(a[i],i+1);
    StringGrid1.Col:=StringGrid1.Col+1;
    a[i]:=StringGrid1.Col;
  end;
ругаеться
[DCC Error] Unit2.pas(40): E2008 Incompatible types
TotKtoNado вне форума Ответить с цитированием
Старый 20.08.2011, 15:31   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
  StringGrid1.Col:=0;
  while StringGrid1.Col<StringGrid1.colCount-1 do
  begin
    SetLength(a,Length(a)+1);
    StringGrid1.Col:=StringGrid1.Col+1;
    a[High(a)]:=StringGrid1.Col;
  end;
Пойдет?

P.S. код мусорный смысла не вижу в такой реализации
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.08.2011, 15:36   #3
TotKtoNado
юзер
Форумчанин
 
Аватар для TotKtoNado
 
Регистрация: 22.12.2010
Сообщений: 245
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
  StringGrid1.Col:=0;
  while StringGrid1.Col<StringGrid1.colCount-1 do
  begin
    SetLength(a,Length(a)+1);
    StringGrid1.Col:=StringGrid1.Col+1;
    a[High(a)]:=StringGrid1.Col;
  end;
Пойдет?

P.S. код мусорный смысла не вижу в такой реализации
все равно ругаеться
что значит мусорный?
слушай я кажется понял [i] просто убрать надо было что туплю

Последний раз редактировалось TotKtoNado; 20.08.2011 в 15:43.
TotKtoNado вне форума Ответить с цитированием
Старый 20.08.2011, 16:17   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
что значит мусорный?
Поясняю:
Код:
  
With StringGrid1 do begin
 // Выделяем память одноразово, а не в каждой итерации, что заставляет комп делать лишнюю работу   
 SetLength(a,Length(a)+1);
 // В цикле просто набиваем массив без проходя по гриду, ибо в этом нет смысла 
 // учитывая твой код.
 for i:=0 to colCount-1 do  a[i]:=i;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
добавление в массив prostac Помощь студентам 0 23.09.2010 20:37
Добавление данных в 2-х мерный массив parikmaher534 Общие вопросы .NET 3 13.05.2010 16:50
добавление столбца в массив DeFace Общие вопросы C/C++ 3 09.01.2009 19:29
Добавление в массив Шура Помощь студентам 6 30.11.2008 10:48
Добавление строк в массив boks Microsoft Office Excel 2 28.09.2007 10:08