FMX - abrindo - lendo e pesquisando em arquivo

No post anterior, criamos um programa

para criar, listar, remover e apagar

cadastros, e tudo funcionou perfeitamente,

mas aquele programa não salvava os cadastros

num arquivo, tudo se perde quando o programa

é fechado, pensando em criar uma nova versão

daquele programa, com recursos para salvar,

ler, remover e alterar os cadastros em um

arquivo, comecei fazendo a parte de leitura

e pesquisa mas num arquivo previamente criado.

O programa apresentado aqui, faz uma precisa

pesquisa em um arquivo, em chamadas totalmente

aleatória, e nem foi preciso usar a função

fseek do C, mas o raciocínio lógico foi 

indispensável.

O programa oferece quatro opções num menu

clássico e funciona tudo corretamente.

Assista no vídeo o programa funcionando:

//---------------------------------------------------------------------------

void __fastcall TForm1::Pesquisando_Cadastros ( TObject *Sender ) {

   //Limpa -> "Todos os cadastros"

   T_Rect_1 ( 240, 70, 160, 18 );

   //Limpa Nome

   T_Rect_1 ( 120, 112, 60, 20 );

   //Limpa Altura

   T_Rect_1 ( 120, 128, 88, 20 );

   //Limpa peso

   T_Rect_1 ( 120, 143, 78, 20 );

   //Limpa Idade

   T_Rect_1 ( 120, 160, 95, 20 );

   T_Rect_1 ( 107, 290, 390, 20 );

   //Limpa da tela o Informe

   T_Rect_1 ( 100, 250, 180, 35 );

ScrollBox1 -> Visible = false;

const int TAM = 60;

char **buffer;

buffer = ( char** ) malloc ( 2000 * sizeof ( char* ) );

char *pt;

pt = ( char * )  malloc ( 100 );

T_Rect_4 ( 120, 80, 250, 20 );

T_Text_3 ( 120, 78, 250, 20, 16, false, true, 0, "Digite o número do cadastro" );

T_Rect_1 ( 107, 290, 390, 20 );

Edit1 -> Visible = true;

Edit1 -> SetFocus ( );

Edit1 -> Text = "";

Button1 -> Visible = true;

Button2 -> Visible = false;

String st = "0";

st += Edit1 -> Text;

wcstombs (  pt, st.c_str ( ), 100 );

free ( pt );

free ( buffer );

}

//---------------------------------------------------------------------------