19 lines
359 B
ObjectPascal
19 lines
359 B
ObjectPascal
{function GetElementFromMatrix(fname: string; i, j: integer): integer;
|
|
begin
|
|
assert((fname <> '') and (i > 0) and (j > 0));
|
|
try
|
|
var f := OpenBinary&<integer>(fname);
|
|
try
|
|
var arr := f.Elements.ToArray;
|
|
var size := round(sqrt(f.FileSize));
|
|
finally
|
|
f.Close;
|
|
end;
|
|
except
|
|
writeln('File Error');
|
|
end;
|
|
end;}
|
|
|
|
begin
|
|
|
|
end. |