Чтение двумерного массива из txt

[Katmai]

У нас есть файл типа txt:

Пример:
0000000
0000000
1111100
1111110

Нам нужно прочитать этот масив из файла и присвоить масиву mas, как это сделать ?

Если нужно покажу как я пытался сделать....

[psycho-coder]

покажи_____

[Katmai]

ВОт как я пытался...

FileMode := fmOpenRead;
Reset(t, '1.txt');
   for x:=1 to stkh do
    for y:=1 to stkw do
    begin
      read(t,n);
      stakan[x, y]:=StrToint(n);
  end;

stkh-высота масива
stkw-ширина

[psycho-coder]

Твой вариант почти правильный

type
  TMyArray = array of array of Integer; // Определяем новый тип данных
...
function TForm1.LoadArrayFromFile(FileName: String): TMyArray;
var
  ArrFile: TStringList;
  i, l, Len: Integer;
begin
  ArrFile := TStringList.Create;
  ArrFile.LoadFromFile(FileName);
  SetLength(Result, ArrFile.Count); // Устанавливаем величину массива в количество строк
  for i := 0 to ArrFile.Count - 1 do
  begin
    Len := Length(ArrFile.Strings[i]); // Узнаем длину строки
    SetLength(Result[i], Len); // Устанавливаем длину строки массива
    for l := 0 to Len - 1 do
    begin
      Result[i, l] := StrToInt(ArrFile.Strings[i][l+1]); // Записываем в массив
    end;
  end;
  ArrFile.Free;
end;

// Пример использования

procedure TForm1.Button1Click(Sender: TObject);
var
  i, l: Integer;
  tmp: String;
  arr: TMyArray;
begin
  tmp := '';
  arr := LoadArrayFromFile('1.txt');
  for i := 0 to High(arr) do
  begin
    for l := 0 to High(arr[i]) do
    begin
      tmp := tmp + #32 + IntToStr(arr[i, l]);
    end;
    Memo1.Lines.Add(tmp);
    tmp := '';
  end;
end;

--Добавлено--

Посмотрел соседнюю Вашу тему, про тетрис. Так как в тетрисе используется поле 20х8 то можно динамический массив заменить статическим и не мучатся с расчетами размерности. Но в этом случае нужно прописать хорошее сохранение что бы не было ошибок.