Unas cuantas cosas de archivos y hexadecimal.

[dec]

Hola,

Empezado por alt126

Y como cargo un archivo entero en una cadena???

Se me ocurren estas dos maneras: no dudo que existan otras mejores.

 void __fastcall TForm1::Button1Click(TObject *Sender)
 {
   AnsiString archivo = "C:\\archivo.txt";
   TStringList *temporal = new TStringList();
   try
   {
 	temporal->LoadFromFile(archivo);
 	ShowMessage(temporal->Text);
   }
   __finally
   {
 	temporal->Free();
   }
 }

 void __fastcall TForm1::Button2Click(TObject *Sender)
 {
   AnsiString archivo = "C:\\archivo.txt";
   TFileStream *fs = new TFileStream(archivo, fmOpenRead);
   TStringStream *ss = new TStringStream("");
   try
   {
 	ss->CopyFrom(fs, 0);
 	ShowMessage(ss->DataString);
   }
   __finally
   {
 	fs->Free();
 	ss->Free();
   }
 }