안녕하세요 이제막 델파이 초입부분을 공부하고있는 신입직딩입니다.
다름이아니오라 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;
입니다.
새해 복많이 받으세요^^
|