Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051561 Tue, 21 Mar 2006 20:56:30 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051561 Цитата Ct757 @
... да, че-то я разогнался. Reset открывает в режиме read only, только если файл текстовый...

Или если system.filemode установлена в 0! :tong:]]> Bug Hunter Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051379 Tue, 21 Mar 2006 17:08:57 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051379 Brain Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051258 Tue, 21 Mar 2006 15:03:23 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051258 Vesper, да, че-то я разогнался. Reset открывает в режиме read only, только если файл текстовый :)]]> Ct757 Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051252 Tue, 21 Mar 2006 14:53:52 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051252 Оззя, я так понимаю стереотип... раз можно читать, значит только для чтения ;)

Ct757, асмовые процедуры конечно вещь, но они в данной ситуации просто не нужны...]]> Vesper Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051196 Tue, 21 Mar 2006 13:56:18 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1051196
    type
    {file handle}
      HFILE = Word;
     
    {seek mode}
      TSeekMode = (FILE_BEGIN, FILE_CURRENT, FILE_END);
     
    {open mode}
      TOpenMode = (FILE_READ, FILE_WRITE, FILE_READWRITE);
     
    const
      file_name = 'G:\test.bin'+#0;
     
    {file attributes}
      FA_NORMAL    = {text};
      FA_READ_ONLY = ;
      FA_HIDDEN    = ;
      FA_SYSTEM    = ;
      FA_ARCHIVE   = ;
     
    var
      h: HFILE;
      a: string;
     
    function CreateFile(szFileName: PChar; wAttr: Word): HFILE; assembler;
    asm
      push dx
      push cx
      push ds
      mov  ax,[bp+8]
      mov  ds,ax
      mov  ah,03Ch
      mov  cx,wAttr
      mov  dx,di
      int  21h
      jnc  @@exit
      xor  ax,ax
    @@exit:
      pop  ds
      pop  cx
      pop  dx
    end;
     
    function OpenFile(szFileName: PChar; wMode: TOpenMode): HFILE; assembler;
    asm
      push dx
      push ds
      mov  ax,[bp+8]
      mov  ds,ax
      mov  ah,040h
      mov  dx,[bp+6]
      mov  ah,03Dh
      mov  al,wMode
      int  21h
      jnc  @@exit
      xor  ax,ax
    @@exit:
      pop  ds
      pop  dx
    end;
     
    function SeekFile(h: HFILE; LoOffset, HiOffset: Word;
      wMode: TSeekMode): Word; assembler;
    asm
      push dx
      push cx
      push bx
      mov  ah,042h
      mov  al,wMode
      mov  cx,HiOffset
      mov  dx,LoOffset
      mov  bx,h
      int  21h
      pop  bx
      pop  cx
      pop  dx
    end;
     
    function ReadFile(h: HFILE; pBuf: Pointer; wBytesCount: Word): Word;
      assembler;
    asm
      push dx
      push cx
      push bx
      push ds
      mov  ax,word [bp+4]
      mov  ds,ax
      mov  ah,03Fh
      mov  dx,[bp+2]
      mov  cx,wBytesCount
      mov  bx,h
      int  21h
      pop  ds
      pop  bx
      pop  cx
      pop  dx
    end;
     
    function WriteFile(h: HFILE; pBuf: Pointer; wBytesCount: Word): Word;
      assembler;
    asm
      push dx
      push cx
      push bx
      push ds
      mov  ax,[bp+8]
      mov  ds,ax
      mov  ah,040h
      mov  dx,[bp+6]
      mov  cx,wBytesCount
      mov  bx,h
      int  21h
      pop  ds
      pop  bx
      pop  cx
      pop  dx
    end;
     
    procedure CloseFile(h: HFILE); assembler;
    asm
      push bx
      mov  ax,03E00h
      mov  bx,h
      int  21h
      pop  bx
    end;
     
    procedure DeleteFile(szFileName: PChar); assembler;
    asm
      push dx
      push ds
      mov  ax,[bp+6]
      mov  ds,ax
      mov  dx,[bp+4]
      mov  ax,04100h
      int  21h
      pop  ds
      pop  dx
    end;
     
    begin
      h:=OpenFile(file_name, FILE_READWRITE);
      if (h <> 0) then
        begin
          a:='Hello, world!';
          SeekFile(h, 0, 0, FILE_END);
          WriteFile(h, @a[1], Length(a));
          CloseFile(h);
        end;
    end.


Добавлено
Цитата Оззя @
Риторический вопрос:
Почему у меня в голове закрепилось, что ReWrite - только для записи, а ReSet - только для чтения

Потому что так было, есть и будет :)]]> Ct757 Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050677 Tue, 21 Mar 2006 07:40:43 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050677 Damirjano
Пора мне на покой, похоже. Старею. :wall:
Конечно, ReSet

Добавлено
Риторический вопрос:
Почему у меня в голове закрепилось, что ReWrite - только для записи, а ReSet - только для чтения? :lool:]]> Булат Шакиров Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050660 Tue, 21 Mar 2006 07:25:54 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050660
Надо использовать RESET !!!!

    Reset ( procedure)
    Opens an existing file


Цитата из HELPa]]> Damirjano Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050652 Tue, 21 Mar 2006 07:16:38 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050652 Damirjano
Ему нужно добавить в существующий файл.
Который будет удален (ReWrite так работает) и создан заново и в него будет записаны записи заново.
Записали в файл 2 записи
    type
      Date   = record
         D, M, Y: Integer;
      end;
    var
      F: File Of Date;
      aDate: Date;
    begin
      Assign(F, 'TEST.dat');
      Rewrite(F);
      With aDate do
        begin
          d:=10;
          m:=2;
          y:=1999;
        end;
      Write(F, aDate);
      Write(F, aDate);
      Close(F);   { Close file, save changes }
      Readln;
    end.

Все ок, в файле 2 записи.

Открыли существующий, пытаемся добавить в конец файла
    type
      Date   = record
         D, M, Y: Integer;
      end;
    var
      F: File Of Date;
      aDate: Date;
    begin
      Assign(F, 'TEST.dat');
      Rewrite(F);   { Create new file }
      With aDate do
        begin
          d:=10;
          m:=2;
          y:=1999;
        end;
      Seek(F, FileSize(F));
      Write(F, aDate);
      Close(F);   { Close file, save changes }
      Readln;
    end.

Оп! В файле 1 запись.]]> Булат Шакиров Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050640 Tue, 21 Mar 2006 07:05:09 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050640 Damirjano Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050635 Tue, 21 Mar 2006 07:01:55 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050635 Ct757 Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050630 Tue, 21 Mar 2006 06:54:32 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050630
Добавлено
И это самый простой вариант

-юсртыхэю
Цитата Оззя @
Так ты перейдешь на конец файла.

Так ему это и надо]]> Damirjano Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050595 Tue, 21 Mar 2006 06:13:06 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050595 Цитата Brain @
Можно ли сделать seek(f,filesize(f)), что тем самым мы перейдем на конечный компонент

Можно :)

Добавлено
Хм, тормознул, низзя.]]> Ct757 Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050590 Tue, 21 Mar 2006 06:06:52 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050590
Цитата
Rewrite creates a new external file with the name assigned to F. If an
external file with the same name already exists, it is deleted and a new
empty file is created in its place. If F is already open, it is first closed
and then re-created. The current file position is set to the beginning of
the empty file.
]]> Булат Шакиров Pascal https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050520 Tue, 21 Mar 2006 03:35:31 +0000 Дозапись файла записей https://forum.sources.ru/index.php?showtopic=136916&view=findpost&p=1050520 Brain Pascal