С минимальными изменениями примрно так
| Код |
type
matrix = array[1..100] of array[1..100] of byte;
var
n, m : byte;
a : matrix;
f : TextFile;
{************************************}
{Чтение матрицы}
Procedure ReadMatr(var Matr:matrix;Name:string);
Var
i,j : byte;
S : AnsiString;
begin
AssignFile (f, Name);
reset(f);
i := 1;
while not seekeof(f)
do
begin
j := 1;
while not seekeoln(f)
do
begin
read(f, matr[i,j]);
inc(j)
end;
readln(f);
inc(i)
end;
closeFile(f);
for i := 1 to n
do
for j := 1 to m
do
Form1.StringGrid1.Cells[i, j] := FloatToStr(matr[i,j]);
end;
{*************************************}
{Запись матрицы}
Procedure WriteMatr(var Matr:matrix;Name:string);
Var
i, j : byte;
Begin
for i := 1 to n
do
for j := 1 to m
do
matr[i,j] := StrToFloat(Form1.StringGrid1.Cells[i, j]);
AssignFile(f,Name);
Rewrite(f);
For i := 1 to n
do
begin
For j := 1 to m
do
Write(f, matr[i,j]);
writeln(f)
end;
CloseFile(f)
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
n := StrToint(Edit1.text);
m := StrToint(Edit2.text);
WriteMatr(a,'1.txt');
ReadMatr(a,'1.txt');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'Strok :';
label2.Caption := 'Stolbcov :';
end;
|
|
