lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
Diana2019 din Vaslui
Femeie
25 ani
Vaslui
cauta Barbat
25 - 80 ani
lisp2arx / Abecedar Scolar / Lm_getfiles1 - browse for file  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 519
uses System.Windows.Forms;

Code:

const 
  TextFileExt = 'txt';
  TextFileFilter = 'Текстовые файлы (*.'+TextFileExt+')|*.'+TextFileExt;

Procedure MenuOpenClick(sender:object; args:System.EventArgs);
begin
  var sd := new OpenFileDialog;
  sd.DefaultExt := TextFileExt;
  sd.Filter := TextFileFilter;
  if sd.ShowDialog = DialogResult.OK then 
    OpenFile(sd.FileName);
end;



Code:

procedure MenuSaveClick(sender:object; args:System.EventArgs);
begin
  //Диалог для выбора файла
  var sd := new SaveFileDialog;
  //Расширение поумолчанию
  sd.DefaultExt := TextFileExt;
  //Фильтр для диалга
  sd.Filter := TextFileFilter;
  if sd.ShowDialog=DialogResult.OK then 
    //если результат выполнения sd.ShowDialog это нажатие кнопки подтверждения то
    SaveFile(sd.FileName);
end;



_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la