飞 飞来石 Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-17 #1 如何使用TSream实现对文件第n个字节的读写？请给出源码。
P phenix_sd Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-17 #2 读第五个Byte procedure TForm1.Button1Click(Sender: TObject); const n=5; var b:Byte; f:TFIleStream; begin f:=TFIleStream.Create('e:/test.xx',fmOpenRead); f.Seek(n-1,soFromBeginning); f.ReadBuffer(b,1); f.Free; end;
读第五个Byte procedure TForm1.Button1Click(Sender: TObject); const n=5; var b:Byte; f:TFIleStream; begin f:=TFIleStream.Create('e:/test.xx',fmOpenRead); f.Seek(n-1,soFromBeginning); f.ReadBuffer(b,1); f.Free; end;
P phenix_sd Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-17 #4 写第五个Byte procedure TForm1.Button1Click(Sender: TObject); const n=5; var b:Byte; f:TFIleStream; begin b:=1; f:=TFIleStream.Create('e:/test.xx',fmOpenWrite); f.Seek(n-1,soFromBeginning); f.WriteBuffer(b,1); f.Free; end;
写第五个Byte procedure TForm1.Button1Click(Sender: TObject); const n=5; var b:Byte; f:TFIleStream; begin b:=1; f:=TFIleStream.Create('e:/test.xx',fmOpenWrite); f.Seek(n-1,soFromBeginning); f.WriteBuffer(b,1); f.Free; end;
