請問SaveDialog的用法? |
|
尚未結案
|
|
TaylorKe
一般會員   發表：21 回覆：40 積分：17 註冊：2003-08-28 發送簡訊給我 |
|
|
gemi0305
版主  發表：81 回覆：564 積分：629 註冊：2003-05-11 發送簡訊給我 |
這是改寫包大哥的範例:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
BYTE a[100][128];
int i=0, j=0;
AnsiString sz;
for(i=0; i<100; i )
{
for(j=0; j<128; j )
{
a[i][j]=j;
}
}
TStringList *sl=new TStringList;
for(i=0; i<100; i )
{
sl->Add("@" IntToStr(i));
sz="";
for(j=0; j<128; j )
{
if(j!=0 && j==0)
{
sl->Add(sz);
sz="";
}
sz =IntToStr(j) " ";
}
}
if (SaveDialog1->Execute())
sl->SaveToFile(SaveDialog1->FileName); delete sl; } 國泰平安
|
|
blck
一般會員 發表：17 回覆：19 積分：12 註冊：2003-08-02 發送簡訊給我 |
|
|
gemi0305
版主 發表：81 回覆：564 積分：629 註冊：2003-05-11 發送簡訊給我 |
|
|
TaylorKe
一般會員 發表：21 回覆：40 積分：17 註冊：2003-08-28 發送簡訊給我 |
|
|
gemi0305
版主 發表：81 回覆：564 積分：629 註冊：2003-05-11 發送簡訊給我 |
要自己寫程式來判斷才行，
不過SaveDialog已經給你很好用的參數讓你自己寫，
利用FilterIndex去指定DefaultExt，
如，你Filter有三個，一個是*.txt，一個是*.tmp,一個是*.*
可以像這樣用:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (SaveDialog1->Execute())
{
switch(SaveDialog1->FilterIndex)
{
case 1 :
SaveDialog1->DefaultExt="txt";
break;
case 2 :
SaveDialog1->DefaultExt="tmp";
break;
default:
SaveDialog1->DefaultExt="";
break;
}
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
} } 試試看 |
|
TaylorKe
一般會員 發表：21 回覆：40 積分：17 註冊：2003-08-28 發送簡訊給我 |
發表時間：2003-10-17 22:04:37
IP:219.68.xxx.xxx 未訂閱
系統時間：2024-05-07 21:15:14
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |