ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.FormCreate(Sender: TObject);
const
   a: array [0..9] of Integer = (0,1,2,3,4,5,6,7,8,9);
begin
   ...
end;

const
  str = 'This text initialized';
  N = 5;

const 
  n=5;

var
  matrix: array [0..n, 0..n] of Integer;

for i:=0 to razmer do
  begin
    BlockRead(myFile, oneByte, 1);
    oneByte:= oneByte+c;
    seek(myfile,i);
    Blockwrite(cryptfile,oneByte,1);  
    seek(cryptfile,i); 
  end;

for i:=0 to razmer do
  begin
    seek(myfile,i);
    BlockRead(myFile, oneByte, 1);
    oneByte:= oneByte+c;
    seek(cryptfile,i); 
    Blockwrite(cryptfile,oneByte,1);  
  end;

var
  FromName,
  ToName    : String;
  myfile,
  cryptfile : file;
  NumRead,
  NumWritten: Integer;
  OneByte   : Byte;
begin
  AssignFile(myfile, FromName);
  Reset(myfile, 1);
  AssignFile(cryptfile, ToName);
  Rewrite(cryptfile, 1);
  repeat
    BlockRead(myfile, OneByte, 1, NumRead);
    oneByte:= oneByte+c;
    BlockWrite(cryptfile, OneByte, 1, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(myfile);
  CloseFile(cryptfile);
end;

BOOL ReadFile(

    HANDLE hFile,	// handle of file to read 
    LPVOID lpBuffer,	// address of buffer that receives data  
    DWORD nNumberOfBytesToRead,	// number of bytes to read 
    LPDWORD lpNumberOfBytesRead,	// address of number of bytes read 
    LPOVERLAPPED lpOverlapped 	// address of structure for data 
   );

BOOL WriteFile(

    HANDLE hFile,	// handle to file to write to 
    LPCVOID lpBuffer,	// pointer to data to write to file 
    DWORD nNumberOfBytesToWrite,	// number of bytes to write 
    LPDWORD lpNumberOfBytesWritten,	// pointer to number of bytes written 
    LPOVERLAPPED lpOverlapped 	// pointer to structure needed for overlapped I/O
   );