안녕하세요...

날씨가 많이 춥네요...

감기 조심하시구요....

다름이 아니라 메모박스가 담을수 있는 text의 한계로...

일정한 크기가 되면...내용을 파일에 저장하구 메모박스를 clear시키구

또 파일에 append하구 또 clear하는 루틴을 만들었는데 파일이 생성이 안되네요...

도와주세요





procedure TForm1.Memo1Change(Sender: TObject);

var

exe : integer;

f1 : textfile;

fs,buffer : string;



const

fn = 'C:공유폴더투표델파이홍보용server';

begin

//메모박스의 내용을 파일에 저장하고 지움

fs := fn + datetostr(date) + '.txt';

exe := exe + 1;



if (exe mod 50) = 0 then

begin

memo1.lines.add(' [ List Clear ] ');

fs := fn + datetostr(date) + '.txt';



assignfile(f1,fs);

if not fileexists(fs) then

rewrite(f1)

else if fileexists(fs) then

append(f1);



buffer := memo1.text;

writeln(f1,buffer);

closefile(f1);

memo1.Lines.Clear ; -->내용은 잘 지워지는데...위의 파일이 안만들어 져요...

memo1.lines.add(' [ List Clear ] ');

end;





end;



메모박스의 모든 내용을 파일로 기록해야 하기때문에...

다시 열때는 항상 append로 열어야 하거든요...

저장하구 clear하구...계속 이런식으로...

아시는 분들 도움좀 주세요...

참고로...같은 소스를 form close 이벤트에서 해보니 잘 되는데

문제는 그렇게 되면...메모박스에서 지워진 로그들을 파일로 남길수가 없기때문에..

즐건 하루 대세요...