Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15619] SaveDialog 관련 질문 부탁드립니다.
신민철 [] 2266 읽음    2015-12-28 10:15
안녕하세요 이제막 델파이 초입부분을 공부하고있는 신입직딩입니다. 

다름이아니오라 SaveDialog 관련 질문 부탁드립니다 제가 회사에서 프로그램을 수정하고있는데

스트링그리드의 리스트를 TEXT파일로 저장하려해서 저장까지 구현을 했는데

저장 버튼을 누를시 '다른이름저장' 이팝업이 뜨지안고 만들어논 저장버튼을 누를시 자동으로 저장되게끔

만들고싶습니다.

저장버튼누를시 '다른이름 저장' 팝업을 안뜨게 할수있을까요? 부탁 드리겠습니다.^^

적용한 소스는

///////////텍스트파일 저장//////////////
begin
    if grd_Good.RowCount = 0 then
    exit;

      if SaveDialog1.Execute then
       begin
        SourceFiles := TStringList.Create;
        Gauge.Visible  := TRUE;
        Gauge.MinValue := 0;
        Gauge.MaxValue := 100;
        Gauge.Progress := 0;

    with grd_Good do
    begin
      for i := 0 to RowCount - 1 do
      begin
        Gauge.Progress := ROUND((t + 1)/RowCount * 100);
        SourceFiles.Add(Cells[1, t].AsString);
      end;
    end;
   begin
       SourceFiles.SaveToFile(DateToStr(dpk_Hoisu_Date.Date)+'_'+edtCustomerCode.Text+'.txt');
       MessageDlg(SaveDialog1.FileName + ' 에' + #13#10 + '저장되었습니다.', mtInformation, [mbOk], 0);
       SourceFiles.Free;
       Gauge.Visible := FALSE;
  end;
  end;

입니다.
새해 복많이 받으세요^^

+ -

관련 글 리스트
15619 SaveDialog 관련 질문 부탁드립니다. 신민철 2266 2015/12/28
15630     Re:SaveDialog 관련 질문 부탁드립니다. 2066 2016/01/13
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.