fileName := 'c:/tempPass.txt';
AssignFile(txt, fileName);
try
if ( FileExists(fileName) ) then
begin
Reset(txt);
Readln(txt, rBuf);
end
else
begin
Rewrite(txt);
end;
wBuf := conPassword.Text;
Label2.Caption := '변경되라.';
Writeln(txt, wBuf);
Label2.Caption := '변경되었습니다.';
closeFile(txt);
지금 제가 짠 소스인데 read, write가 동시에 안되더라구요...
어떻게 한 파일에 읽고 쓰는 방법이 없을까요...
아래의 소스대로 한다면 텍스트 파일안에 계속 Append 되어 Write가 되겠군요.