begin

Screen.Cursor := crHourglass;

for i := 1 to 150000 do

begin

ar_key := random(50000) + 1;

year1 := random(7)+3;

year2 := random(10);

month := random(12)+1;

day := random(30)+1;

release := '19'+inttostr(year1)+inttostr(year2);

if month < 10 then

release := release+'0'+inttostr(month)

else

release := release+inttostr(month);

if day < 10 then

release := release+'0'+inttostr(day)

else

release := release+inttostr(day);

rating := random(4)+1;

type1 := random(2);

type2 := random(2);

al_type := '1'+inttostr(type1)+inttostr(type2);

track := random(8)+5;

price_cd := random(25000)+5000;

price_v := random(15000)+5000;

price_tape := random(47000)+3000;

av_cd := random(10000000);

av_tape := random(10000000);

av_v := random(10000000);

StrL := TStringList.Create;

progressbar1.position := i;

try

StrL.LoadfromFile('c:dbhwdataalbum.txt');

StrL.Insert(i,inttostr(i)+','+inttostr(ar_key)+','+

'AL'+inttostr(i)+','+release+','+inttostr(rating)+','+

'rock'+','+'01:10:00'+','+al_type+','+inttostr(track)+','+

inttostr(price_cd)+','+inttostr(price_v)+','+

inttostr(price_tape)+','+inttostr(av_cd)+','+

inttostr(av_v)+','+inttostr(av_tape)+','+'SONY');

StrL.SaveToFile('c:dbhwdataalbum.txt');

finally

StrL.Free;

end;

end;

Screen.Cursor := crDefault;

Edit1.Text := '입력완료됐습니다.';

end;

end.



위와 같은 코딩으로 실행을 시키면 진행되는 중간에 프로세스가 죽어버립니다...



이유를 잘 모르겠습니다...어제는 StrL을 계속 부르고 죽이고 부르고 죽이고



해서 다운되는줄 알았는데 그것도 아닌것 같고....도와주십시요...



그리고 i 카운터값이 커질수록 느려지는데 이건 어쩔수 없는 건가요?



고수님 도와주십시요...