[romen]

Здравствуйте!
Столкнулся с проблемой... Задача тривиальна - в *.txt файле дан ряд в одну строку дробных чисел, к примеру:

0 0.1 1 0.777 0.5

Задача - как считать из него данные и занести в двумерный массив? Кол-во строк, столбцов - дано изначально. В общем, пишу так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

F: File of Real; cmas: array [1..1000,1..1000] of Real;   procedure TForm1.Button1Click(Sender: TObject); begin stk:=StrToInt(Edit1.Text); // кол-во строк stb:=StrToInt(Edit2.Text); // кол-во столбцов   AssignFile(F,'INPUT.txt'); Reset(F); While not eof(F) do begin for i:=1 to stk do begin for j:=1 to stb do Read(F,cmas[i,j]); end; end;

Admin: Не забываем про теги!

А он ничего не читает...
Помогите, пожалуйста, разобраться...

[NIch]

Я бы сделал так...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

F: File of Real; cmas: array [1..1000,1..1000] of Real;   procedure TForm1.Button1Click(Sender: TObject); var  n, i, j : word; begin  stk:=StrToInt(Edit1.Text); // кол-во строк  stb:=StrToInt(Edit2.Text); // кол-во столбцов  i := 0;  j := 0;  AssignFile(F,'INPUT.txt');  Reset(F);  for n := 0 to FileSize(F) do//пройдемся по всему файлу  begin   Seek(F, n);//помечаем очередную строку в файле   Read(F, cmas[i, j]);//читаем очередную строку   inc(i);//увеличиваем строку в массиве   if i = stk then//если дошли до кол-ва строк   begin    i := 0;//обнуляем кол-во строк    inc(j);//увеличиваем кол-во столбцов   end;   if j = stb then//если дошли до кол-ва столбцов, то    break;//выйти из цикла  end; end;

Возможны и другие способы...

[romen]

Спасибо, но тоже не работает.. Что означает, например, то, что выдается ошибка к примеру: "Вы не объявили эту переменную, но обращаетесь к ней". Хотя переменная объявлена.

[NIch]

Скажи, что не работает...или что неправильно работает...
И про какую переменную идет речь??? Может просто неправильно, или не в том месте ее объявил...

[romen]

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

Скажи, что не работает...или что неправильно работает...
И про какую переменную идет речь??? Может просто неправильно, или не в том месте ее объявил...

Да ладно, все в порядке, дело было в объявлении файла.. Разобрался. Спасибо