델파이에서 리드 라이트가 동시에 안되네요??
어찌하죠..
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가 동시에 안되더라구요...
어떻게 한 파일에 읽고 쓰는 방법이 없을까요...
둘다 읽기쓰기전용이라 닫은 후 사용하셔야 됩니다.
ini 파일 관리하는 함수로 편볍으로 한번 연후 읽기쓰기해도 되는데 실제 형식은 틀리지만요.....
fileName := 'c:/tempPass.txt';
AssignFile(txt, fileName);
try
if ( FileExists(fileName) ) then begin
Reset(txt);
Readln(txt, rBuf);
closeFile(txt);
AssignFile(txt, fileName);
end ;
Rewrite(txt);
wBuf := conPassword.Text;
Label2.Caption := '변경되라.';
Writeln(txt, wBuf);
Label2.Caption := '변경되었습니다.';
closeFile(txt);