[Delirium]

Открываем файл, удаляем все пробелы, ибо там одни 0 и 1 и погнали циклом без всяких поисков пробела.

[Tweety_yeah]

Открываем файл, удаляем все пробелы, ибо там одни 0 и 1 и погнали циклом без всяких поисков пробела. »

Буду пробовать.

Загрузило, но без переносов на строку вниз, как это сделать?

[DedAlex]

Для варианта без пробелов

Код:

var
  level : array [1..20, 1..20] of integer;
  lvl : textfile;
  s : string;
  i, k : byte;
begin
  AssignFile(lvl, 'txt.txt');
  Reset(lvl);
  begin
    for i := 1 to 20 do
    begin
      ReadLn(lvl, s);
      for k := 1 to 20 do
        level[k,i] := StrToInt(s[k]);
    end;
  end;
  CloseFile(lvl);
end;

[Tweety_yeah]

Все отлично, спасибо.

Показывает ошибку: I/O error 104, показывая на строку

Код:

ReadLn(lvl, s);

[Delirium]

Tweety_yeah, ну а самому дальше развить идею и подумать? Неужели надо абсолютно все разжевать?

[Delirium]

Эээххх, ну не знаю я Дельфи. Ладно, давай посмотрим, что там происходит...

Код:

var
  level : array [1..20, 1..20] of integer;  -- массив 20 на 20
  lvl : textfile;                                       -- наш текстовик
  s : string;                                           --строковая переменная, в которой будет текущая строка из файла
  i, k : byte;                                          --переменные  
begin
  AssignFile(lvl, 'txt.txt');                        --закинули наш файл в lvl
  Reset(lvl);                                           --это не знаю чего.
  begin
    for i := 1 to 20 do
    begin
      ReadLn(lvl, s);                                 --Записали строку в S
      for k := 1 to 20 do                           --цикл по  строке S
        level[k,i] := StrToInt(s[k]);            --пишем в массив элемент
    end;
  end;
  CloseFile(lvl);
end;

Таак, погуглил малость. Причина банальна, цитирую:

ты или фаил не создал, или ты его открыл и запускаеш прогу, что вероятней всего!

[Tweety_yeah]

Проблема найдена, и она совсем не в загрузке файла. Она в моей процедуре прорисовки всего массива.
Всем спасибо, дальше как нибудь сам)

[Delirium]

ну вот и чудненко