康 康夫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-07 #2 procedure Change10Bytes; var F: File; buf: array[1..10] of char begin AssignFile(F,'d:/ddd.ddd'); reset(F,1); BlockRead(F,buf,10); // change buf here BlockWrite(F,buf,10); CloseFile(F); end;
procedure Change10Bytes; var F: File; buf: array[1..10] of char begin AssignFile(F,'d:/ddd.ddd'); reset(F,1); BlockRead(F,buf,10); // change buf here BlockWrite(F,buf,10); CloseFile(F); end;
康 康夫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-07 #3 Seek(F,0); // hjfjjhhfgjhertyterty BlockWrite(F,buf,10);
L liguang Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-14 #8 var Buffer:array[0..9] of char; begin FileRead(FileHnadle,Buffer,10); //修改 FileWrite(FileHandle,Buffer,10); end;
var Buffer:array[0..9] of char; begin FileRead(FileHnadle,Buffer,10); //修改 FileWrite(FileHandle,Buffer,10); end;
胡 胡柚 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-14 #9 var f:TFileStream; c:array[0..9] of char; begin f:=TFileStream.Create('Test.dat'); f.write(c[0],10); f.free end;
var f:TFileStream; c:array[0..9] of char; begin f:=TFileStream.Create('Test.dat'); f.write(c[0],10); f.free end;