날아라~밥통 wrote:

> 파일을 생성합니다.

>

> 그런데 그 파일 생성 시에 파일 사이즈를 설정하여 만들고 싶퍼요.

>

> 예를 들어 A.DAT란 파일을 생성합니다. 그리고 그 파일에 100M 뭐 이런 식으로 사이즈를 설정할려고 합니다.

>

> 그럼 그 파일은 아무 내용도 없이 뭐 있어도 상관없고요, 하여가 사이즈가 100M 이런 식으로 설정만 되면 됩니다.

>

> 도와주이소.

>

> 은혜안 잊겠슴다.

///////////////////////////////////////////////////////////////

다른 더 좋은방법도 있겠으나 아래것을 고쳐사용해보세요.

Buf 사이즈를 크게해서 for문을 적게 돌리면 좀 빨라지겟으나 시스템에

메모리를 많이 잡아먹게되서요...

일단 생성된 파일에는 메모리상의 garbage가 드러갈겁니다.

--------------------------------------------

var

F : TextFile;

i : Integer;

SavingFile : String;

Buf: array[1..1024] of Char; { 1K buffer }

begin

SavingFile := 'd:test.txt';

AssignFile(F,SavingFile);

Rewrite(F);

System.settextbuf(F,Buf);

for i := 1 to 100 do

Write(F,string(Buf));

CloseFile(F);

end;