Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Массив Integer

Автор: Canyon 23.4.2012, 00:17

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

Код


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;

Автор: IBS 23.4.2012, 00:25

Судя по всему:
array [1..3,1..3] of integer

Автор: northener 23.4.2012, 00:26

Цитата(Canyon @ 23.4.2012, 00:17

)

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

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

Автор: Canyon 23.4.2012, 01:04

Пушкин сказал, что ему лень. ))))))
Память я выделял, но указывал длину не через Length а через High масива, результаты у них разные на 1
Поэтому и происходил крах. Уже разобрался. Сейчас буду дальше писать Спасибо.

Автор: northener 23.4.2012, 01:22

Цитата(Canyon @ 23.4.2012, 01:04

)

Память я выделял, но указывал длину не через Length а через High масива

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

Автор: Canyon 23.4.2012, 01:47

Выделял размер памяти вот так 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

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

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

Автор: bems 23.4.2012, 02:30

Цитата(Canyon @ 23.4.2012, 01:47

)

X := 0
Y := 0

Цитата(Canyon @ 23.4.2012, 01:47

)

[I][S]

Автор: northener 23.4.2012, 03:59

Цитата(Canyon @ 23.4.2012, 01:47

)

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

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

Автор: Akella 23.4.2012, 09:35

Цитата(Canyon @ 23.4.2012, 01:04

)

указывал длину не через Length а через High масива

а что, нонче справки читать не камильфо?

Автор: Canyon 23.4.2012, 11:22

ABCD[X][Y]

Вчера компьютер выключил и понял, что не работает потому что два цикла выполняеться, и новым данным не откуда прийти.
Уже Исправил.

Автор: Canyon 23.4.2012, 16:09

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

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

user posted image

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

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

Автор: Canyon 23.4.2012, 23:36

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

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

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

Автор: Canyon 24.4.2012, 01:02

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

Все таки надо больше отдыхать, а то голова порой совсем думать не хочет.