Здравствуйте!
Столкнулся с проблемой... Задача тривиальна - в *.txt файле дан ряд в одну строку дробных чисел, к примеру:
0 0.1 1 0.777 0.5
Задача - как считать из него данные и занести в двумерный массив? Кол-во строк, столбцов - дано изначально. В общем, пишу так:
Код:
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: Не забываем про теги!
А он ничего не читает...
Помогите, пожалуйста, разобраться...