var

f: file of Byte;

size : Longint;

S: string;

y: integer;

begin

if OpenDialog1.Execute then begin

AssignFile(f, OpenDialog1.FileName);

Reset(f);

size := FileSize(f);

S := 'File size in bytes: ' + IntToStr(size);

y := 10;

Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;

S := 'Seeking halfway into file...';

Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;



Seek(f,size div 2);

S := 'Position is now ' + IntToStr(FilePos(f));

Canvas.TextOut(5, y, S);

CloseFile(f);

end;

end;





redlock wrote:

> 죄송합니다.

> 이렇게 불쑥 찾아와서리..

> 그러나.. 조금 급하고 해서 무례를 범합니다..

> 많은 조언을 부탁드립니다.

> 문제는요..

> Text 화일을 열어서 읽어 내려가는데...

> 현재 읽고 있는 라인까지의 화일 크기는 알수 없나요..

> 화일의 전체 크기가 아닌 현재 읽고 있는 라인까지의 크기를

> 알고 싶거든요...

> 방법이 없을까요???

> 부탁드립니다..