[orion_asm]

Сообщение от Archer666

спасибо, помогло

а как реализовать вывод в Label в виде таблицы 3х3?

Это глупая затея. А если задача будет вывод массив 100*100 к примеру, вы будете 10000 лейблов на форму кидать ? Лучше использовать компонент StringGrid. Удалите мемо, добавьте StringGrid. В свойствах (Properties) этого компонента значения FixedCols и FixedRows поставить в 0. RowCount и ColCount задать 3. Хотя это можно и программным способом сделать. Обработчик теперь такой:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
mass : array [0..2] of array [0..2] of integer;
i,j : integer;
begin
if OpenDialog1.Execute then
begin
  AssignFile(F, OpenDialog1.FileName);
  Reset(F);
  while not EOF(F) do
  begin
    for i := 0 to 2 do
      for j := 0 to 2 do
      Read(F, mass[i][j]);
  end;
end;
for i := 0 to 2 do
  for j := 0 to 2 do
  StringGrid1.Cells[i,j] := IntToStr(mass[i][j]);
end;
end.