Arsip: Mengganti ekstensi namafile otomatis di dialog FileSaveAs


by delphy in Articles more 15 years ago 1325
Banyak sekali aplikasi yang memiliki fitur ini pada dialog penyimpanannya, misal: di Excel namafile yang tertulis 'Book1.xls' dan ketika kamu mengganti FileType dengan '.txt' maka nama file yang tersimpan akan otomatis berubah menjadi "Book1.txt".

Berikut contoh FileSaveAs sederhana,
Uses
...., CommDlg;

procedure TForm1.FileSaveAs1SaveDialogTypeChange(Sender: TObject);
var
I : Integer;
Fn, Ext : String;
ExtList : TStringList;
const
CB_FILENAME_ID = 1148;
begin
ExtList                             := TStringList.Create;
try
ExtList.Delimiter:='|';
ExtList.DelimitedText             :=FileSaveAs1.Dialog.Filter;
Ext:=ExtList.Strings[FileSaveAs1.Dialog.FilterIndex2-1];
finally
ExtList.Free;
end;
I                                   := Pos(Ext,';');
if I>0 then Ext                     := Copy(Ext,1,I-1);
Ext:=StringReplace(Ext,' ','',[rfReplaceAll]);
Fn:=ChangeFileExt(ExtractFilename(FileSaveAs1.Dialog.FileName),Ext);
SendMessage( GetParent(FileSaveAs1.Dialog.Handle), CDM_SETCONTROLTEXT, CB_FILENAME_ID, LongInt(Pchar(Fn)));
end;

selamat mencoba.

saduran dari:
http://www.delphi3000.com/articles/article_4326.asp?SK=

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com