Файл

Форум — Ответы ( К темам )

? Stas: Файл (05-02-2003 22:02:36)
Люди как прочитать последние 34 байта файла (ASCII),
Сначало надо прочитать 30 байт, а в самом конце ещё
4 байта и надо вывести информацию из них на Label.
Заранее спасибо.
Владимир (06-02-2003 00:25:03)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
const int RBUF=35;
char buf[RBUF];
for(int i=0; i < RBUF; i++) buf[i] = 0;

int ih = FileOpen("myFile.txt",fmOpenRead);
FileSeek(ih,-34,2);
FileRead(ih,buf,RBUF-1);
FileClose(ih);

// AnsiString sbuf = buf;
Label1->Caption = buf;
}
//---------------------------------------------------------------------------

?	Stas: Файл (05-02-2003 22:02:36)
Люди как прочитать последние 34 байта файла (ASCII), Сначало надо прочитать 30 байт, а в самом конце ещё 4 байта и надо вывести информацию из них на Label. Заранее спасибо.
Владимир (06-02-2003 00:25:03)
void __fastcall TForm1::Button1Click(TObject *Sender) { const int RBUF=35; char buf[RBUF]; for(int i=0; i < RBUF; i++) buf[i] = 0; int ih = FileOpen("myFile.txt",fmOpenRead); FileSeek(ih,-34,2); FileRead(ih,buf,RBUF-1); FileClose(ih); // AnsiString sbuf = buf; Label1->Caption = buf; } //---------------------------------------------------------------------------