Перевод

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Text = Memo1->Text;
  AnsiString Result = IntToStr(Text.Length());
  while(Result.Length() < 3)
    Result = "0" + Result;
 
  int n = 2, s = 1;
  while(n * n < Text.Length())
    n += 2;
 
  while(Text.Length() < n * n)
    Text += ".";
 
  char **matr = new char*[n];
  for(int i = 0; i < n; i++)
    matr[i] = new char[n];
 
  for(int i = 0; i < n; i++)
    for(int j = 0; j < n; j++)
      matr[j][i] = Text[s++];
 
  int x = (n / 2) - 1;
  int y = (n / 2) - 1;
  int next = 1, stop = 1, cont = 4;
  while(next < n * n)
    {
      for(int i = 0; i < stop; i++)
        {
          Result += matr[x][y];
          next++;
          if(cont % 4 == 0)
            y++;
          if(cont % 4 == 1)
            x++;
          if(cont % 4 == 2)
            y--;
          if(cont % 4 == 3)
            x--;
        }
      cont++;
      if(cont % 2 == 0)
        stop++;
    }
 
  for(int i = 0; i < n; i++)
    delete []matr[i];
  delete []matr;
 
  TFileStream *out = new TFileStream("C:\\test.txt", fmCreate);
  if(out != NULL)
    {
      int size = Result.Length();
      out->Write(&size, sizeof(size));
      if(size != 0)
        out->Write(Result.data(), size);
    }
  delete out;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  AnsiString Text;
  TFileStream *in = new TFileStream("C:\\test.txt", fmOpenRead);
  if(in != NULL)
    {
      int size;
      in->Read(&size, sizeof(size));
      if(size != 0)
        {
          Text.SetLength(size);
          in->Read((void *)(Text.data()), size);
        }
    }
  delete in;
 
  AnsiString Result;
  int lengh = StrToInt(Text.SubString(1, 3));
  Text.Delete(1, 3);
 
  int n = 2, s = 1;
  while(n * n < lengh)
    n += 2;
 
  char **matr = new char*[n];
  for(int i = 0; i < n; i++)
    matr[i] = new char[n];
 
  int x = (n / 2) - 1;
  int y = (n / 2) - 1;
  int next = 1, stop = 1, cont = 4;
  while(next < n * n)
    {
      for(int i = 0; i < stop; i++)
        {
          matr[x][y] = Text[s++];
          next++;
          if(cont % 4 == 0)
            y++;
          if(cont % 4 == 1)
            x++;
          if(cont % 4 == 2)
            y--;
          if(cont % 4 == 3)
            x--;
        }
      cont++;
      if(cont % 2 == 0)
        stop++;
    }
 
  for(int i = 0; i < n; i++)
    for(int j = 0; j < n; j++)
      Result += matr[j][i];
 
  for(int i = 0; i < n; i++)
    delete []matr[i];
  delete []matr;
 
  Result.SetLength(lengh);
  Memo1->Text = Result;
}
//---------------------------------------------------------------------------