implementation



{$R *.DFM}

const S = 'c:samlist.txt';





procedure TForm1.Button1Click(Sender: TObject);

var

F : TextFile;

SS : string;

begin

AssignFile( F, S );

Reset( F );

Readln( F, SS );

Form1.Caption := SS;

CloseFile( F );

end;





이거를 참조하시면.. 도움이 되시길 바랍니다..



행복하세요..





이문환 wrote:

> 화일을 한 번 이상 읽으면 에러가 발생합니다.

> 액세스 볼륨이 머 어쨌다고 FFFFFFFF ...

> 이런 에러가 나옵니다.

> 화일의 예외처리를 하는 방법을 알고 싶습니다.

>

> Const FileName = 'C:PICO1SOURCEVERVER.TXT'; //요건 위에 정의를 해 놨습니다.

>

>

> 버튼이 눌리면 화일을 여는 부분입니다.

> AssignFile(GFile, FileName); <-- 요기서 에러가....

> Reset(GFile);

> ReadLn(GFile, DataLine);

> ListBox3.items.Add(DataLine);

> CloseFile(GFile);

>

> 그럼.....

>