![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Необходимо из фала заполнить массив(0 и 1) массив задали динамически(так как мы не знаем сколько элементов) не могу корректно заполнить его из файла, вот что получилось (писал на лазарусе, но та же делфи только бесплатная)
http://www.fayloobmennik.net/212711 файл для запуска project1.lpi |
|
#2
|
||||
|
||||
|
Не знаю, что конкретно у вас не получается, но вот несколько идей:
Код:
//задаем дин. массив типа integer:
var
mas: array of Integer;
len: Integer; // кол-во чисел в массиве
begin
len:=0;
SetLength(mas, len);
... читаем из файла...
while(not(EOF(F)) do begin // пока не конец файла
mas[len] := ... // записываем нужное в массив
inc(len); // увеличиваем на 1 длину массива
SetLength(mas, len);
end;
// ЗЫ если надо двухмерный массив, то измениться:
var
mas: array of array of Integer; // объявляем двухмерный массив.
len1, len2: Integer; // длина
begin
...
mas[len1, len2] := ...;Последний раз редактировалось v1s2222, 23.11.2010 в 15:23. |
|
#3
|
|||
|
|||
|
Мы уже создали массив динамически, но прога выводит только 1 строку и ее сумму а не все (((
|