Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Массив Integer 
:(
    Опции темы
Canyon
Дата 23.4.2012, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Подскажите что я делаю не так.

Код

Var
ABCD : Array of array [0..3] of Integer;
Begin
 For I := 0 To 100 Do
 For S := 0 To 3 Do
 Begin
  ABCD[I][S] := Round(100*(Count/AllMembers)); // сдесь происходит крах.
 End;
End;

Решил использовать такой массив так как решил что проще будет читать.
До чтения массива я еще не добрался из за ошибки, но представляю что то вроде следующего кода. Заодно скажите быдет ли это код работать, если нет что исправить
Код

for I := 0 To 100 Do
for S := 0 To 3 Do
Begin
 case ABCD[I][S] of
 IntToStr(STR[S][0]) : blabla
 IntToStr(STR[S][1]) : blabla
 IntToStr(STR[S][2]) : blabla
 IntToStr(STR[S][3]) : blabla
 IntToStr(STR[S][4]) : blabla
End;



Это сообщение отредактировал(а) Canyon - 23.4.2012, 00:19
PM   Вверх
IBS
Дата 23.4.2012, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 29.7.2008
Где: Белоруссия

Репутация: нет
Всего: 6



Судя по всему:
array [1..3,1..3] of integer
PM MAIL   Вверх
northener
Дата 23.4.2012, 00:26 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20



Цитата(Canyon @  23.4.2012,  00:17 Найти цитируемый пост)
Подскажите что я делаю не так.

А кто будет выделять память для динамического массива? Пушкин?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Canyon
Дата 23.4.2012, 01:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Пушкин сказал, что ему лень. ))))))
Память я выделял, но указывал длину не через Length а через High масива, результаты у них разные на 1
Поэтому и происходил крах. Уже разобрался. Сейчас буду дальше писать Спасибо.
PM   Вверх
northener
Дата 23.4.2012, 01:22 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20



Цитата(Canyon @  23.4.2012,  01:04 Найти цитируемый пост)
Память я выделял, но указывал длину не через Length а через High масива

Чем дальше, тем страньше. А как вы выделяли память через "High масива"?


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Canyon
Дата 23.4.2012, 01:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Выделял размер памяти вот так SetLength(ABCD, High(STR)); Нужно было добавить 1

Сейчас все работает, только криво записывает данные почему так происходит понять не могу
Код

Var
ABCD : Array of array [0..3] of Integer;
Begin
 SetLength(ABCD, Length(STR));
 For X := 0 To HIgh(ABCD) Do
 For Y := 0 To 3 Do
 Begin
  ABCD[I][S] := Round(100*(Count/AllMembers[Y+1])); 
Утвж
End;

А данные записываються не правильно

X  Y   =    X  Y   =    X  Y   =    X  Y   = 
0  1  29   0  2  29   0  3  25   0  4  38
1  1  29   1  2  29   1  3  25   1  4  38
2  1  29   2  2  29   2  3  25   2  4  38
3  1  29   3  2  29   3  3  25   3  4  38

В графе равно должны быть на каждый х и у разные данные.

Что сейчас я не правильно делаю?

Это сообщение отредактировал(а) Canyon - 23.4.2012, 01:48
PM   Вверх
bems
Дата 23.4.2012, 02:30 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88



Цитата(Canyon @  23.4.2012,  01:47 Найти цитируемый пост)
X := 0
Y := 0

Цитата(Canyon @  23.4.2012,  01:47 Найти цитируемый пост)
[I][S]




--------------------
Обижено школьников: 8
PM MAIL   Вверх
northener
Дата 23.4.2012, 03:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20



Цитата(Canyon @  23.4.2012,  01:47 Найти цитируемый пост)

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

А вот мы никак не можем понять что работает, а что нет! 



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Akella
Дата 23.4.2012, 09:35 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329



Цитата(Canyon @  23.4.2012,  01:04 Найти цитируемый пост)
указывал длину не через Length а через High масива

а что, нонче справки читать не камильфо?
PM MAIL   Вверх
Canyon
Дата 23.4.2012, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



ABCD[X][Y]

Вчера компьютер выключил и понял, что не работает потому что два цикла выполняеться, и новым данным не откуда прийти.
Уже Исправил.
 
PM   Вверх
Canyon
Дата 23.4.2012, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Разобрался со своими ошибками. Много чего по упускал, что то не догледел.
Сейчас все отлично работает.

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

user posted image
Нужно данные из массива сравнить на примере этой талички. Мои данные из масива целые, без запятых и десятых.
Только в четвертях 1,2,3,4 нужно вписать значения в диапозоне и сравнивать в диапозоне.
С case не выходит так как попадаються дубликаты записей.

Подскажите в какую сторону копать.

Это сообщение отредактировал(а) Canyon - 23.4.2012, 16:11
PM   Вверх
Canyon
Дата 23.4.2012, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Данные сравнить уже могу. Сделал через Инструкцию If and Then

Теперь не могу никак загрузить данные из txt файла в переменную Array of Array of Integer
Длину масива устанавливаю, просто данные не верно записываються, а точнее вообще фигня полная пишеться.
Потом решил что бы глаза и мозг не ломать при заполнении txt файла 
решил записать в такой структуре 
1;56;23;52 - 5;59;28;58;

Нужен совет и помощь, как мне цифры между знаком ; записать в массив?




Это сообщение отредактировал(а) Canyon - 23.4.2012, 23:36
PM   Вверх
Canyon
Дата 24.4.2012, 01:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет



Решил проблему.
Данные в файле предоставил бех точки с запятой
и при помощи цикла и Copy записал данные в масив.

Все таки надо больше отдыхать, а то голова порой совсем думать не хочет.
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1120 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.