계속해서 질문입니다(마지막질문^^;)



메모장에서 다른이름으로저장은 saveDialog컨포넌트를 이용해서.

procedure TForm1.SaveAsExecute(Sender: TObject);

begin

if saveDialog.execute then

memo1.lines.savetofile(saveDialog.filename);

end;

이렇게 구현했습니다.

그런데 일반적인 저장.그러니까 저장을 한번 한후. 다음부터는 저장버튼을 클릭하면 '다른이름으로저장'창이 안뜨고 바로 저장하도록 하고싶은데 어떻게 하나요?



또 한가지는 찾기인데요. findDialog를 이용해서

procedure TForm1.FindDialog1Find(Sender: TObject);

var

i,j,posreturn,skipchars:integer;

begin

for i:=0 to memo1.lines.count do

begin

posreturn:=pos(finddialog1.findtext, memo1.lines[i]);

if posreturn <> 0 then

begin

skipchars:=0;

for j:=0 to i-1 do

skipchars:=skipchars+length(memo1.lines[j]);

skipchars:=skipchars+(i*2);

skipchars:=skipchars+posreturn-1;



memo1.setfocus;

memo1.selstart:=skipchars;

memo1.sellength:=length(finddialog1.findtext);

break;

end;//if

end;//for

이렇게 구현했습니다. 하지만 이코드는 한번밖에 못찾거든요. '찾기대화상자'에 위아래로 버튼을 클릭할때마다 계속 찾을 수 있도록 하려면 어떻게하죠?