20160115学习日志

1.关于：InputBox，由于Android不支持showmadle. FMX.Dialogs中的很多窗口函数就不能直接使用。要修改成通过存储过程作为方法传递

比如：

InputBox(‘新建单元‘, ‘单元名称‘, ‘‘,
  procedure(const AResult: TModalResult; const AValue: string)
  begin
    strName := AValue;
    // 增加一个单元
    if strName <> ‘‘ then
    begin

      if TDirectory.Exists(FdyPath + TPath.DirectorySeparatorChar + strName)
      then
        ShowMessage(‘单元[‘ + strName + ‘]已经存在,请删除后再创建!‘)
      else
      begin
        TDirectory.CreateDirectory(FdyPath + TPath.DirectorySeparatorChar
          + strName);
        ReadDy;
      end;
    end;
  end);

2.关于路径，貌似创建系统无法创建根目录下的文件，可能是权限问题，有待处理。