如何取得文件长度 ( 积分: 50 )

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #1

用delphi打开了一个文件，请问如果取得该文件的长度。
说明：通过delphi中server组件中的wordapplication,worddocument,wordfont，成功打开了word文件，现在不知道如何取得该文件长度，请高手指点，用length(edit1.text)显示的只是edit1里的长度，edit1.text里是打开文件的路径。

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #2

用delphi打开了一个文件，请问如果取得该文件的长度。
说明：通过delphi中server组件中的wordapplication,worddocument,wordfont，成功打开了word文件，现在不知道如何取得该文件长度，请高手指点，用length(edit1.text)显示的只是edit1里的长度，edit1.text里是打开文件的路径。

 

O

oiwin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #3

//得到文件大小
var f: file of Byte;
size : Longint;

AssignFile(f,DataName);
Reset(f);
try
size := FileSize(f);
edtNewSize.text:=IntToStr(size div 1024)+'K';
finally
CloseFile(f);
end;

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-20

• #4

to oiwin:
这个取得的是文件大小，我现在取得里面字符的长度，比如说里面只写了abcd，我想得到的是长度应该为4，
或者如何判断文件结束也行，我用eof，老是出现io error 。

 

D

delphibbs_Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-21

• #5

var
F: Integer;
begin
F := FileOpen(OpenDialog1.FileName, fmOpenRead);
Result := FileSeek(iFileHandle,0,2);
FileClose(F)
end;

 

D

delphibbs_Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-21

• #6

Result := FileSeek(F,0,2);写错了，不好意思：）

 

B

badboy014081052

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-21

• #7

终于解决啦，高兴啊，是俺自己解决地，你们说的都不对，呵呵，谢谢大家，分你们分吧，