Поблоковая запись в файл(BlockWrite)

[Finnesko]

Помогите плиз.
Вот код:

var
  I,J,N,M : Integer;
  F : File;
  Str:string;

begin
 AssignFile(F,Fn);
  try
    Rewrite(F,1);
    BlockWrite(F, FRows, SizeOf(FRows));
    BlockWrite(F, FColumns, SizeOf(FColumns));
    for I := 0 to FRows-1 do
     for J := 0 to FColumns-1 do
        BlockWrite(F, Fvalues[I,J], SizeOf(Fvalues[I,J]));
  finally
    CloseFile(F);
  end;
end;

/////////////////

где
FRows,Fcolumns:integer
FRows:=5;
FColumns:=5;
FValues-масcив типа integer
//////////////////
И пишит ошибку -> BlockWrite(F, FRows, SizeOf(FRows));
BlockWrite(F, FColumns, SizeOf(FColumns));
помогите плз исправить. А если чесно я незнаю как зделать поблоковую запись типа integer( . Этот код записывает и читает тип double гуд но мне нужно через integer=/



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Какую ошибку пишет? Ошибка выдаётся компилятором или во время выполнения программы?

дайте кусок кода, где у Вас описаны FRows,Fcolumns


а так, вроде всё нормально. должно работать.

точно. проверил код.
всё работает.
ищите ошибку в другом месте!

пруф

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = 'D:\myFile$.dat';
var
  I,J,N,M : Integer;
  F : File;
  Str:string;
  FRows, FColumns : integer;
  Fvalues : array[0..100,0..100] of integer;
begin
  FRows := 2;
  FColumns := 10;
  AssignFile(F,Fn);
  try
    Rewrite(F,1);
    BlockWrite(F, FRows, SizeOf(FRows));
    BlockWrite(F, FColumns, SizeOf(FColumns));
    for I := 0 to FRows-1 do
     for J := 0 to FColumns-1 do
        BlockWrite(F, Fvalues[I,J], SizeOf(Fvalues[I,J]));
    ShowMessage('файл '+Fn+' успешно создан!');
  finally
    CloseFile(F);
  end;
end;

[Finnesko]

Ошибка выдаётся во время выполнения этой процедуры, когда я сохраняю данные в файл(записываю).
Вот полностью весь код:

unit Matrix;
interface
uses SysUtils, Classes;

 type
  ELoadFile = class(Exception);


TMatrix = class

  private
  FValues : array [0..100, 0..100] of integer;
  FRows, FColumns : integer;


  protected
   function GetRows: integer;
    function GetValues(ARow, ACol: integer): integer;
    procedure SetRows(AValue: integer);
    procedure SetValues(ARow, ACol: integer; AValue: integer);
    function GetColumns: integer;
    procedure SetColumns(AValue: integer);


  public
  Constructor create;
  property  mas[ARow, ACol: integer]: integer read GetValues write SetValues; Default;
  property   N : integer read GetRows write SetRows;
  property  M : integer read GetColumns write SetColumns;
  procedure LoadMatrixFromFileBin( FileName: string);
  procedure SaveMatrToFileBin(Fn: string);
  procedure SaveMatrToFile(FileName: string);
  procedure LoadMatrixFromFile( FileName: string);

  end;

implementation



const
  Leb = 'Матрица';
  FileSign = 'Матрица';
function TMatrix.GetRows: integer;
begin
If (FRows < 0)  then
  raise EmathError.Create('Ошибка значения индекса');
 result:= FRows;
end;



constructor TMatrix.create;
begin
FRows :=1;
FColumns := 1;
end;

function TMatrix.GetColumns: integer;
begin
If (FColumns < 0)  then
  raise EmathError.Create('Ошибка значения индекса') ;
   result:= FColumns;
end;

function TMatrix.GetValues(ARow, ACol: integer): integer;
begin
If (ARow < 0) or (ARow > FRows-1 ) or (ACol < 0) or (ACol > FColumns-1 ) then
  raise EmathError.Create('Ошибка значения индекса');
 result := FValues[ARow,ACol];
end;


procedure TMatrix.LoadMatrixFromFile(FileName: string);
var
  Sign: String;
  F: TextFile;
  I, J: Integer;
begin
  AssignFile(F, FileName);
  try
    try
      Reset(F);
      Readln(F, Sign);
      if Sign <> FileSign then
        raise EInOutError.Create('Файл поврежден');
        Readln(F, FRows);
        Readln(F, FColumns);
        if (FRows < 1) or (FColumns < 1) then
          raise EInOutError.Create('Неправильные значение!');

        for I := 0 to FRows - 1 do
          for J := 0 to FColumns - 1 do
            Readln(F, FValues[I, J]);
    except
      on E: Exception do
        raise EInOutError.Create('Файл не загружен!');
    end;
  finally
    CloseFile(F);
  end;

end;

procedure TMatrix.LoadMatrixFromFileBin(FileName: string);
var
  I,J : Integer;
  F : File;
  D : ShortString;
begin
  AssignFile(F,FileName);
  try
    Reset(F,1);
   SetLength(D,16);
    BlockRead(F, D[1], 16);
    if D <> Leb then
      raise ELoadFile.Create('Файл поврежден');
    BlockRead(F, FRows, SizeOf(FRows));
    BlockRead(F, FColumns, SizeOf(FColumns));
    for I := 0 to FRows-1 do
      for J := 0 to FColumns-1 do
        BlockRead(F, FValues[I,J], SizeOf(FValues[I,J]));

  finally
    CloseFile(F);
  end;
end;





procedure TMatrix.SetRows(AValue: integer);
begin
 if (Avalue<1)or (AValue > 100) then
    raise EMathError.Create('Ошибка значения размера');
    FRows := AValue ;
end;



procedure TMatrix.SaveMatrToFile(FileName: string);
var
   F: TextFile;
   I, J: integer;
begin
   AssignFile (F, FileName);
   try
     Rewrite (F);
      writeln (F, FileSign);
      writeln (F);
      writeln (F, FRows);
      writeln (F, FColumns);
      writeln (F);
      for I := 0 to FRows-1 do
        for J := 0 to FColumns-1 do
          writeln (F, FValues[I, J]);
   finally
      CloseFile (F);
   end;

end;

procedure TMatrix.SaveMatrToFileBin(Fn: string);
var
  I,J : Integer;
  F : File;
begin
 AssignFile(F,Fn);
  try
    Rewrite(F,1);
    BlockWrite(F, Leb, 16);
    BlockWrite(F, FRows, SizeOf(FRows));
    BlockWrite(F, FColumns, SizeOf(FColumns));
    for I := 0 to FRows-1 do
      for J := 0 to FColumns-1 do
        BlockWrite(F, Fvalues[I,J], SizeOf(Fvalues[I,J]));
  finally
    CloseFile(F);
  end;
end;

procedure TMatrix.SetColumns(AValue: integer);
begin
   if (Avalue<1)or (AValue > 100) then
    raise EMathError.Create('Ошибка значения размера');
    FColumns := AValue ;
end;

procedure TMatrix.SetValues(ARow, ACol: integer; AValue: integer);
begin
  FValues[ARow,ACol]:= AValue;
end;


end.

Вот скрин ошибки http://www.programmersforum.ru/attac...1&d=1352532330

[Stilet]

Скриншот совсем не видно.

[Finnesko]

О шибка тут

 BlockWrite(F, FRows, SizeOf(FRows));

Так делфи указывает((

[Stilet]

О шибка тут

С криншот п оказывает т екст о шибки
Но его н евидно

[Finnesko]

Вот текст ошибки.
И вот ещё исходник кину. Если смож помоги исправить.

[Serge_Bliznykov]

сейчас посмотрю исходник.
но, для начала,
а зачем ЭТО?!

  BlockWrite(F, Leb, 16);

потому как почему 16 байт пишете?! Во-вторых, тип константы LEB определяется компилятором. Не исключено, что Leb будет AnsiString => Leb - это указатель на данные!

тогда, уже, хотя бы так попробуйте:

  BlockWrite(F, Leb[1], Length(Leb)*SizeOf(Char));

да и вообще, совсем не понятно, зачем строки в бинарном файле... но это уже, конечно, ваше право, что хотите, то и пишете!

[Finnesko]

Да это можно ваще закоментить ,мне главное зделать запись данных о матрице и её содержимого.

 BlockWrite(F, FRows, SizeOf(FRows)); 
BlockWrite(F, FColumns, SizeOf(FColumns));
 for I := 0 to FRows-1 do for J := 0 to FColumns-1 do BlockWrite(F, Fvalues[I,J], SizeOf(Fvalues[I,J]));

[Serge_Bliznykov]

ну, сохранение и не должно работать!
Вы обращаетесь к объекту Mat, который ещё НЕ СОЗДАН!

проверьте:

procedure TForm3.Savetobinari1Click(Sender: TObject);
begin
 if Not Assigned(mat) then
      Application.MessageBox( Pchar('Чтобы обращаться к объекту MAT, нужно его создать сначала!'),
                              'Ошибка',  MB_ICONERROR or MB_OK)
 else
   if SaveDialog1.Execute then
      Mat.SaveMatrToFileBin (SaveDialog1.FileName );
end;

заглянул в Task.Zapolnenie
я вообще в шоке о такого кода:

  FMatr:=TMatrix.create ;
  FMatr:=TMatrix.create ; // создали нашу матрицу 100х100

Вы вообще понимаете, что такое операция присвоения? И что такое ООП? И для чего нужно вызывать конструктор класса?...