For StartNum := 1 to File_Count do
begin
Assignfile(F, 'C:\Test\Learning\'+ ComboBox1.Text + '\' + IntToStr(StartNum));
Reset(f); <------------------------ 문제부분
while (not eof(f)) do
begin
ReadLn(f, Str_Line);
Memo1.Lines.Append(Str_Line);
end;
Closefile(f);
위의 코드는 Button1의 코드의 일부분입니다.
컴파일 후 첫번째 실행(Button1을)하면 아무 이상없이 결과값이 나옵니다.
그런 후 다시 Button1을 실행하면 다음과 같은 에러메세지가 뜹니다.
Project Test.exe raised exception class EInOutError with message 'Invalid filename'. Process stopped. Use Step or Run to continue.
왜 두번째 실행할때 문서가 없다고 하는지 그 이유를 모르겠습니다.
똑같은 파일을 부르는데....
그래서 문제되는 부분에 디버깅(F5) 눌러놓고 ComboBox1.Text 와 StartNum의 값을 확인해 보니,
처음 실행한것과 똑같은 값을 가지는데..왜 안되는지....
미치겠네요....-.-
그 이유를 도저히 모르겠네요. -.-