测试

  1. procedure TForm3.Button2Click(Sender: TObject);  
  2. var  
  3.   OpenDlg: TOpenDialog;  
  4. begin  
  5.   OpenDlg := TOpenDialog.Create(nil);  
  6.   try  
  7.     OpenDlg.Filter := 'Method File|*.ini';  
  8.     OpenDlg.DefaultExt := '*.ini';  
  9.     if OpenDlg.Execute then  
  10.     begin  
  11.       FDMemTable1.LoadFromFile(OpenDlg.FileName);  
  12.       ShowMessage('read Ok');  
  13.     end;  
  14.   finally  
  15.     FreeAndNil(OpenDlg);  
  16.   end;  
  17.  
  18.  
  19. end;  
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678