Страница 30 из 96
Чтение из двоичного файла
Пример реализации:
AnsiString text;
FileStream *in = new TFileStream("info",fmOpenRead); // открываем файл
if( in != NULL ) {
int size;
in->Read(&size, sizeof(size));
if( size != 0 ) {
try {
text.SetLength(size);
in->Read((void *)(text.data()), size);
} catch( EOutOfMemory& ) {}
}
delete in;
ShowMessage(text);