TFileStream

var
Buff:array of char;
....
Stream:=TFilestream.Create('C:\4.fb2',fmOpenRead);
stream.Seek(0,soFromBeginning);
setlength(buff,i);//i-размер файла
stream.Read(buff,i);
memo1.Text:=strpas(buff); //тут ошибка вылетает. Так как записать содержимое из buff в переменную 
//типа стринг если массив динам???

var
  StrBuff : String;
...
begin
...
  SetLength(StrBuff, i);
  //Копирование данных из массива в строку.
  Move(Pointer(Buff)^, Pointer(StrBuff)^, Length(StrBuff));
  Memo1.Text := StrBuff;
...

var
Buff:array of char;
....
Stream:=TFilestream.Create('C:\4.fb2',fmOpenRead);
stream.Seek(0,soFromBeginning);
//i + 1 - предусматриваем дополнительный байт в конце - в него мы запишем терминальный ноль.
setlength(buff,i + 1);//i-размер файла
stream.Read(Pointer(Buff)^, i);
//Добавляем в конец буфера терминальный ноль.
Buff[i] := 0;
memo1.Text:=strpas( PChar(Buff) );

var
  i, n, e: Integer;
  F:TFileStream;
  buf: string;
begin
  Memo1.Lines.Clear;
  F:=TFileStream.Create('1.txt',fmOpenRead);
  F.Seek(0,soFromBeginning);
  SetLength(buf,i);
  F.Read(buf,i);
  Move(Pointer(buf)^, Pointer(buf)^, Length(buf));
  Memo1.Text := buf;
  F.Free;

...
var
  i, n, e: Integer;
  F:TFileStream;
  buf: string;
  buff:array of char;
begin
  Memo1.Lines.Clear;
  F:=TFileStream.Create('1.txt',fmOpenRead);
  F.Seek(0,soFromBeginning);
  SetLength(buff,i);
  F.Read(buff,i);
  SetLength(buf,i);
  Move(Pointer(buff)^, Pointer(buf)^, Length(buf));
  Memo1.Text := buf;
  F.Free;
...

const
  Fn = '1.txt';
var
  FileName : String;
begin
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  Memo1.Lines.LoadFromFile(FileName);
end;

//Загрузка содержимого файла в Мемо. Способ 1.
procedure TForm1.Button1Click(Sender: TObject);
const
  Fn = '1.txt';
var
  FileName : String;
begin
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  Memo1.Lines.LoadFromFile(FileName);
end;
 
//Загрузка содержимого файла в Мемо. Способ 2.
procedure TForm1.Button2Click(Sender: TObject);
const
  Fn = '1.txt';
var
  F : TFileStream;
  FileName : String;
begin
  //Полный путь к файлу.
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  try
    F := TFileStream.Create(FileName, fmOpenRead);
    F.Seek(0,soFromBeginning);
    Memo1.Lines.LoadFromStream(F);
  finally
    F.Free;
  end;
end;
 
//Загрузка содержимого файла в Мемо. Способ 3.
procedure TForm1.Button3Click(Sender: TObject);
const
  Fn = '1.txt';
var
  i : Integer;
  F : TextFile;
  FileName, buf : String;
begin
  Memo1.Clear;
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  AssignFile(F, FileName);
  try
    Reset(F);
    i := 0;
    while not Eof(F) do begin
      Read(F, Buf);
      if i = 0 then begin
        Inc(i);
        Memo1.Text := Buf;
      end else begin
        Memo1.Lines.Add(Buf);
      end;
      if Eoln(F) and (not Eof(F)) then Readln(F);
    end;
  finally
    CloseFile(F);
  end;
end;
 
//Неточная загрузка содержимого файла в Мемо. Если в файле нет завершающей
//пустой строки, то в Мемо она всё же будет присутствовать.
procedure TForm1.Button4Click(Sender: TObject);
const
  Fn = '1.txt';
var
  F : TextFile;
  FileName, buf : String;
begin
  Memo1.Clear;
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  AssignFile(F, FileName);
  try
    Reset(F);
    while not Eof(F) do begin
      Readln(F, Buf);
      Memo1.Lines.Add(Buf);
    end;
  finally
    CloseFile(F);
  end;
end;
 
//Загрузка содержимого файла в буфер. Способ 1.
procedure TForm1.Button5Click(Sender: TObject);
const
  Fn = '1.txt';
var
  i : Integer;
  F : TFileStream;
  FileName, buf : String;
begin
  //Полный путь к файлу.
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  try
    F:=TFileStream.Create(FileName, fmOpenRead);
    F.Seek(0,soFromBeginning);
    //Размер файла в байтах.
    i := F.Size;
    SetLength(buf, i);
    F.Read(Pointer(buf)^,i);
  finally
    F.Free;
  end;
  Memo1.Text := buf;
end;
 
//Загрузка содержимого файла в буфер. Способ 2.
procedure TForm1.Button6Click(Sender: TObject);
const
  Fn = '1.txt';
var
  i : Integer;
  F : File;
  FileName, buf : String;
begin
  FileName := ExtractFilePath( Application.ExeName ) + Fn;
  AssignFile(F, FileName);
  try
    //Открываем файл в режиме оперирования блоками размером в 1 байт.
    Reset(F, 1);
    //Размер файла в блоках. В нашем случае 1 блок = 1 байту.
    //Поэтому FileSize() вернёт размер файла в байтах.
    i := FileSize(F);
    SetLength(buf, i);
    BlockRead(F, Pointer(buf)^, i);
  finally
    CloseFile(F);
  end;
  Memo1.Text := buf;
end;

  Move(Pointer(buf)^, Pointer(buf)^, Length(buf));

var
  S : String;
begin
  S := '012345' + #0 + '6789';
  Memo1.Text := S;
end;

...
type
  TIncodeMes = array of Integer;
...
private
    { Private declarations }
    FMes: TIncodeMes;
....
procedure TForm1.Button7Click(Sender: TObject);
var
s,buf: string;
Enc,Dec : TFileStream;
FileName, buff : String;
i,n,e: Integer;
 
begin
{ if OpenDialog2.Execute then
   s:=OpenDialog1.FileName;    } // Тут бы я хотел реализовать открытие файла через проводника
  try
    Enc:=TFileStream.Create('123.txt', fmOpenRead);
    Enc.Seek(0,soFromBeginning);
    i := Enc.Size;
    SetLength(buff, i);
    Enc.Read(Pointer(buff)^,i);
  finally
    Enc.Free;
   end;
  n := StrToIntDef(Edit4.Text,0); // Число n необходимое для шифрования 
  e := StrToIntDef(Edit5.Text,0); // Число e необходимое для шифрования 
  FMes := Encrypt(buff, e, n);
 
   try
    Dec:=TFileStream.Create('Dec.txt', fmOpenWrite);
    Dec.Seek(0,soFromBeginning);
    i := Dec.Size;
    SetLength(buff, i);
    Dec.Write(Pointer(FMes)^,i);
  finally
    Dec.Free;
  end;

//Функция быcтрого возведения в степень
function FastPower(a, b, n: integer): integer;
var i: integer;
    ai: extended;
begin
  ai := a;
  for I := Trunc(log2(b)) - 1 downto 0 do
  if Bit(b, i) then ai := Round(sqr(ai) * a) mod n else ai := Round(sqr(ai)) mod n;
  result := Round(ai);
end;
 
function Encrypt(s: string; e, n: integer): TIncodeMes;
  var I: Integer;
begin
  SetLength(result, length(s));
  for I := 0 to Length(s) - 1 do
    result[i] := FastPower(ord(s[i + 1]), e, n)
end;

   try
    Dec:=TFileStream.Create('Dec.txt', fmOpenWrite);
    Dec.Seek(0,soFromBeginning);
    //Если файл создаётся впервые, получим i = 0.
    i := Dec.Size;
    //Buff при записи не понадобится. И здесь выставляется для Buff нулевая длина.
    SetLength(buff, i);
    //Так как i = 0, то в файл ничего не будет записано.
    Dec.Write(Pointer(FMes)^,i);
  finally
    Dec.Free;
  end;

   try
    Dec:=TFileStream.Create('Dec.txt', fmOpenWrite);
    Dec.Seek(0,soFromBeginning);
    //Количество байт, которые будут записаны в файл.
    i := Length(FMes) * SizeOf(Integer);
    //Запись данных массива в файл.
    Dec.Write(Pointer(FMes)^,i);
    //Переопределяем размер файла. Это надо на случай, если перед записью файл имел
    //больший размер, чем массив FMes.
    Dec.Size := i;
  finally
    Dec.Free;
  end;

buf: string;
Enc,Dec : TFileStream;
FileName, buff : String;
i,n,d: Integer;
 
begin
  try
    Dec:=TFileStream.Create('Dec.txt', fmOpenRead);
    Dec.Seek(0,soFromBeginning);
    //Количество байт, которые будут записаны в файл.
    i := Dec.Size;
    SetLength(FMes, i);
    //Запись данных массива в файл.
    Dec.Read(Pointer(FMes)^,i);
    //Переопределяем размер файла. Это надо на случай, если перед записью файл имел
    //больший размер, чем массив FMes.
   { Dec.Size := i;   }
  finally
    Dec.Free;
   end;
 
 
  n := StrToIntDef(Edit4.Text,0);
  d := StrToIntDef(Edit6.Text,0);
  buf := Decrypt(FMes, d, n);
 
   try
    Enc:=TFileStream.Create('Enc.txt', fmOpenRead);
    Enc.Seek(0,soFromBeginning);
    //Размер файла в байтах.
    i := Enc.Size;
    SetLength(buf, i);
    Enc.Read(Pointer(buf)^,i);
  finally
    Enc.Free;
  end;

begin
  try
    Dec:=TFileStream.Create('Dec.txt', fmOpenRead);
    Dec.Seek(0,soFromBeginning);
    //Количество байт, которые будут прочитаны из файла.
    i := Dec.Size;
    SetLength(FMes, i);
    //Чтение данных из файла в массив.
    Dec.Read(Pointer(FMes)^,i);
  finally
    Dec.Free;
  end;
  
  n := StrToIntDef(Edit4.Text,0);
  d := StrToIntDef(Edit6.Text,0);
  buf := Decrypt(FMes, d, n);
 
  try
    Enc:=TFileStream.Create('Enc.txt', fmOpenRead);
    Enc.Seek(0,soFromBeginning);
    //Размер раскодированных данных в байтах.
    i := Length(buf) * SizeOf(Char);
    //Запись раскодированных данных в файл.
    Enc.Write(Pointer(buf)^,i);
    //Уточнение размера файла.
    Enc.Size := i;
  finally
    Enc.Free;
  end;

Fmes: (91, 88, 56, 118, 33, 84) // массив integer, зашифрованный текст и файла 
buff: 'priveT' переменная, то что было с читано из файла

  i := Length(Fmes)*SizeOf(Integer);

Fmes: (91, 88, 56, 118, 33, 84, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

buf: 'priveT'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0

j:= Length (buf);
Delete(buf,Pos('#0',buf),j);

i := Length(Fmes)*SizeOf(Integer);

procedure TForm1.Button2Click(Sender: TObject);
var
buf: string;
Enc,Dec : TFileStream;
FileName, buff : String;
i,n,d,j: Integer;
 
begin
if not OpenDialog1.Execute then Filename:= 'Dec.txt'
else
Filename:= OpenDialog1.Filename;
  try
    Dec:=TFileStream.Create(Filename, fmOpenRead);
    Dec.Seek(0,soFromBeginning);
    //Количество байт, которые будут записаны в файл.
    i := Dec.Size;
    
    //Заменить:
    //SetLength(FMes, i);
    //на:
    SetLength(FMes, i div SizeOf(Integer));
    
    //Запись данных массива в файл.
    Dec.Read(Pointer(FMes)^,i);
    {Dec.Read(FMes,i); }
    //Переопределяем размер файла. Это надо на случай, если перед записью файл имел
    //больший размер, чем массив FMes.
   { Dec.Size := i;   }
  finally
    Dec.Free;
   end;
...

    //Заменить:
    //SetLength(FMes, i);
    //на:
    SetLength(FMes, i div SizeOf(Integer));

i:= i div SizeOf(Integer);

buf: 'priveT'#0#0'ents and Setting'

  n := StrToIntDef(Edit4.Text,0);
  d := StrToIntDef(Edit6.Text,0);
  buf := Decrypt(FMes, d, n);
 
if not SaveDialog1.Execute then Filename:= 'Enc.txt'
  else
    begin
      Filename:= SaveDialog1.Filename;
      Dec:=TFileStream.Create(Filename, fmCreate);
      Dec.Free;
    end;
 
   try
    Enc:=TFileStream.Create(Filename, fmOpenWrite);
    Enc.Seek(0,soFromBeginning);
    i:= i div SizeOf(Integer);
    SetLength(buf, i);
    Enc.Write(Pointer(buf)^,i);
  finally
    Enc.Free;
  end;