двумерный массив делфи

[VinDiz]

Отредактируйте пожалуйста код!
задумка чтобы он считывал файл и выводил в image а он не вывод и ошибку не дает.

procedure TForm1.Button9Click(Sender: TObject);
var f: textfile;
mas: array [1..100,1..2] of integer;
i,j:integer;
begin
assignfile(f, '1.txt');
reset(f);
for i:=1 to 100 do
for j:=1 to 2 do
begin
readln (f, mas[i,j]);
image1.Canvas.moveTo(mas[i][j],mas[i][j]);
end;
while (not eof(f)) and (not eoln(f))do
begin
readln(f,mas[i,j]);
image1.Canvas.LineTo(mas[i][j], mas[i][j]);
end;
closefile(f);
end;

[Mad_Cat]

он считывал файл и выводил в image

что считывал? и что выводил?

[VinDiz]

.тхт файл содержимое
126 65
126 52
48 52
48 192
127 192
127 114
62 114
62 65
126 65
\\пробел надо!
114 130
62 130
62 181
113 181
113 130

[whatever]

Чушь какая-то...

procedure TForm1.Button9Click(Sender: TObject);
 var f: textfile;
 mas: array [1..100,1..2] of integer;
 i,j:integer;
 begin
 assignfile(f, '1.txt');
 reset(f);
 for i:=1 to 100 do
 for j:=1 to 2 do
 begin
 readln (f, mas[i,j]);//все считали, непонятно как, причем второе число в строке никуда не попало.
 image1.Canvas.moveTo(mas[i][j],mas[i][j]); //постоянно отправляем на диагональ
 end;
 reset(F);
 while (not eof(f)) and (not eoln(f))do//так давно уже конец, после 200 readln'ов то, даже добавленый мной ресет не имеет смысла по большому счету.
 begin
 readln(f,mas[i,j]);//зачем опять?
 image1.Canvas.LineTo(mas[i][j], mas[i][j]);//снова по диагонали
 end;
 closefile(f);
 end;

В итоге первые двести раз курсор носится по диагонали image, вторые двести раз безотрывно рисует прямые, на той же диагонали.

Да и вообще, зачем тут массив? Он же нигде не сохранится после завершения процедуры, хватило бы одной переменной.

В общем я бы порекомендовал переписать циклы, причем без всяких for, только while, EOLn & EOF.

Кстати, допер в чем изначальная ошибка:

126 65
126 52
48 52
48 192
127 192
127 114
62 114
62 65
126 65
\\пробел надо!
114 130
62 130
62 181
113 181
113 130

При чтении файла \\ как коментарий не ворпринимается, как следствие - invalid numeric input, или как он там ругается.. Впрочем в самом дэлфи тоже слэши в другую сторону ставятся.

Еще вариант, т.е. предположение: под конец массив заполняется нулями, возможно в image нет координаты (0,0), отсюда ошибка. Повторюсь, специально не проверял, только предположил.

[VinDiz]

\\ этого в файле нету! это чтобы в дальнейшем не было вопросов! а это все мне надо в массив чтобы потом его двигать привязывать к точке и переворачивать можно было!
отредактируйте пожалуйста!!!!

[VinDiz]

должна быть буква "б" откорректируйте пожалуйста!

[whatever]

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
  mas:array [1..100,1..2] of integer;
  mas2:array [1..100,1..2] of integer;
  i,j,k,tmpint:integer;
  tmp,t1:string;
begin
  assignfile(f, '1.txt');
  reset(f);

  read(f,mas[1,1]);
  read(F,mas[1,2]);
  readln(F);
  image1.Canvas.moveTo(mas[1][1],mas[1][2]);//переместили на начало
  i:=2;
  j:=1;
  while not EOF(F) do
    begin
      tmp:='';
      readln(f,tmp);
        if (tmp=' ') then
          begin
            readln(F);
            read(F,mas2[j,1]);
            read(F,mas2[j,2]);
            image1.Canvas.moveTo(mas2[j][1],mas2[j][2]);
            readln(F);
            inc(j);
            while not EOF(F) do
              begin
                read(F,mas2[j,1]);
                read(F,mas2[j,2]);
                image1.Canvas.LineTo(mas2[j][1], mas2[j][2]);
                inc(j)
              end;
          end
        else
          begin
            k:=2;
            t1:='';
            while tmp[k]<>' ' do
              begin
                t1:=t1+tmp[k];
                inc(k)
              end;
            mas[i,1]:=StrToInt(t1);
            t1:='';
            t1:=copy(TMP,k+1,(length(tmp)-k));
            mas[i,2]:=StrToInt(t1);
            image1.Canvas.LineTo(mas[i][1], mas[i][2]);
            inc(i);
          end;
    end;
    image1.Canvas.LineTo(mas2[1][1], mas2[1][2]);
end;

Лично мне код совершенно не нравится, но в поставленных условиях...