}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 98668008 Описание: Код загружен: 28 февраля 2011, 08:18 (min@y™)

program pXXXX;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
type
  TMatrix = array of array of Integer;
 
procedure FillMatrix(var X: TMatrix; const M, N: Cardinal);
var
  Row, Col: Integer;
begin
  SetLength(X, M, N);
  for Row:= 0 to M - 1 do
    for Col:= 0 to N - 1 do
      X[Row, Col]:= Random(10);
end;
 
procedure PrintMatrix(const X: TMatrix);
var
  Row, Col: Integer;
begin
  for Row:= 0 to High(X) do
    begin
      for Col:= 0 to High(X[0]) do
        Write(X[Row, Col]: 4);
      WriteLn;
    end;
end;
 
// Сохранение матрицы X в файл FileName
function SaveM
function SaveMatrixToFile(const X: TMatrix; const FileName: string): Boolean;
var
  Stream: TFileStream;
  RowCount, ColCount, xSize: Cardinal;
begin
  RowCount:= Length(X); //t:= Length(X[0]); // Кол-во стролбцов
  xSize:= RowCount * ColCount * Si
  xSize:= RowCount * ColCount * SizeOf(Integer); //Stream.Create(FileName, fmCreate or fmShareExclusive);
    try
      Stream.Write(RowCount, SizeOf(Cardi
    try
      Stream.Write(RowCount, SizeOf(Cardinal)); //nal)); // Запись кол-ва столбцов
      Stream.Write(X[0, 0], xSize);             // Запись матрицы
    finally
     
      Stream.Write(X[0, 0], xSize);             //pt
    Result:= False;
  end;
end;
 
// Загрузка матрицы X из файла FileName
function LoadMatrixFromFile
    Result:= False;
  end;
end;
 
//ing): Boolean;
var
  Stream: TFileStream;
  RowCount, ColCount, xSize: Cardinal;
begin
  try
    Stream:= TFileStre
var
  Stream: TFileStream;
  RowCount, ColCount, xSize: Cardinal;
begin
  try
    Stream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      Stream.Read(RowCount, SizeOf(Cardinal)); //izeOf(Integer); // Размер матрицы в байтах
      SetLength(X, RowCount, ColCount);              // Выделение памяти
      Stream.Read(X[0, 0], xSize);             // Чтение матрицы
    finally
      Stream.Fre
      SetLength(X, RowCount, ColCount);              //False;
  end;
end;
 
var
  X: TMatrix;
 
const
  FileName = 'D:\Temp\Matrix.bin';
 
begin
  Randomize();
  FillMatrix(X, 5, 6);
  WriteLn('  Source matrix:'#13#10);
  PrintMatr
  end;
end;
 
var
  X: TMatrix;
 
const
  FileName = 'D:\Temp\Matrix.bin';
 
begin
  Randomize();
  FillMatrix(X, 5, 6);
  WriteLn('  Source matrix:'#13#10);
  PrintMatrix(X);
 
  if SaveMatrixToFile(X, FileName)
    then WriteLn(#13#10'  Saving to file ', FileName, ' - SUCCESS.')
    else begin
           WriteLn(#13#10'  Saving to file ', FileName, ' - FAIL.');
           ReadLn;
           Exit;
         end;
 
  if LoadMatrixFromFile(X, FileName)
    then begin
           WriteLn(#13#10'  Loading form file ', FileName, ' - SUCCESS.');
           WriteLn(#13#10'  Loaded matrix:'#13#10);
           PrintMatrix(X);
 

Ссылка на данный код:

На главную страницу сервиса обмена кодом »