TFileStream(50分)

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #1

var
FileStream: TFileStream;
begin
FileStream:=TFileStream.Create('1.dat', ...);
.
.
.
end;
1.dat有2M,怎么将前1M的内容从FileStream中截去

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #2

FileStream.Position:=FileStream.Size div 2
try on it

 

W

wangxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #3

FileStream.Position:=...
FileStream.read(...)

 

H

hhzh426

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #4

用一个临时文件可以吗?
先copy，然后删除该文件，再改名！

 

G

GGCAT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #5

easy ! Use a Buffer ;

Var FS:TfileStream;
Bufointer;
Begin
GetMem(Buf,YourNewFileSize);
FS:=TFileStream.Create(YourFileName, fmOpenRead);
FS.Position:=YourStartPosition;
FS.Read(Buf^,YourNewFileSize);
FS.Free;
FS:=TFileStream.Create(YourFileName, fmOpenWrite or fmCreate);
FS.Write(Buf^,YourNewFileSize);
FS.Free;
FreeMem(Buf,YourNewFileSize);
End;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #6

FileStream.Seek(1024*1024, soFromBeginning);

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-30

• #7

大家的意思都一样，跳指针！

 

龙

龙丹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-30

• #8

const
StartPos=1024*1024;
var
FileStream,fs2: TFileStream;
begin
FileStream:=TFileStream.Create('1.dat', ModeForWrite);
fs2:=TFileStream.Create('1.dat', ModeForRead);
fs2.seek(StartPos);
FileStream.CopyFrom(fs2,fs2.Size-StartPos);
fs2.Free;
FileStream.Truncate;
...
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-30

• #9

多人接受答案了。