Лаба 10 вар 9 / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//LastMax, LastCol, LastRow: real;

procedure TForm1.Button1Click(Sender: TObject);
var f1, f2:textfile;
i, j, a, b:byte;
LastMax: real;
x: array of array of real;
y:array of byte;
begin
if OpenDialog1.Execute then
begin
AssignFile(f1, OpenDialog1.FileName);
{$I-} Reset(f1); {$I+}
if IOresult<>0 then
begin
ShowMessage('Файл не найден');
Exit;
end;
end
else
begin
ShowMessage('Файл для чтения не выбран');
Exit;
end;
if eof(f1) then
begin
ShowMessage('Файл пуст');
Closefile(f1);
Exit;
end;
i:=0;
while not eof(f1) do
begin
SetLength(x,i+1);
SetLength(y,i+1);
j:=0;
while not eoln(f1) do
begin
SetLength(x[i],j+1);
{$I-} Read(f1, x[i,j]); {$I+}
StringGrid1.Cells[j,i]:=FloatToStr(x[i,j]);
if LastMax<x[i,j] then
begin
LastMax:=x[i,j];
a:=i;
b:=j;
end;
if IOResult<>0 then
begin
ShowMessage('Ошибка синтаксиса');
CloseFile(f1);
SetLength(x,0,0);
SetLength(y,0);
Exit;
end;
j:=j+1;
end;
y[i]:=j;
i:=i+1;
Readln(f1);
end;
CloseFile(f1);

if SaveDialog1.Execute then
begin
AssignFile(f2, SaveDialog1.FileName);
{$I-} Rewrite(f2); {$I+}
if IOResult<>0 then
begin
ShowMessage('Ошибка доступа');
Exit;
end;
end
else
begin
ShowMessage('Файл для записи не выбран');
Exit;
end;



Write(f2, LastMax:0:0,' ');
Writeln(f2);
Write(f2, 'Столбец: '+FloatToStr(b+1));
writeln(f2);
Write(f2, 'Строка: '+FloatToStr(a+1));
CloseFile(f2);
SetLength(x, 0, 0);
SetLength(y, 0);


end;
end.