Hola,
Cita:
|
Empezado por alt126
Y como cargo un archivo entero en una cadena???
|
Se me ocurren estas dos maneras: no dudo que existan otras mejores.
Código:
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();
}
}
Código:
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();
}
}