标签: delphi-xe5

我想保存unicode字符串.有我所拥有的:

Uses IniFiles;
const
SZ_APP_NAME;

Procedure TForm1.SaveSettings;
var
  _MemIniU: TMemIniFile;
  SettingsPath: string;
begin
  SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME + PathDelim;
  _MemIniU := TMemIniFile.Create(ChangeFileExt(SettingsPath, 'Settings.ini'),
    TEncoding.UTF8);
  try
    if Form1.WindowState <> TWindowState.wsMaximized then
    begin
      _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowLeft', Form1.Left);
      _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowTop', Form1.Top);
      _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowWidth', Form1.Width);
      _MemIniU.WriteInteger(SZ_APP_NAME, 'WindowHeight', Form1.Height);
      _MemIniU.WriteString(SZ_APP_NAME, 'UnicodeText', Edit1.Text);
    end;
  finally
    _MemIniU.Free;
  end;
end;

但是没有创建ini文件.我做错了什么？RAD Studio XE5.

如何阻止线程纳秒或微秒？该Sleep()功能是不可能的,因为它接受毫秒,这显然不是我需要的.

在我的代码中,我有时会得到零除.调试器始终指向包含Ln或Exp函数的行.

使用Ln功能.正如您所看到的,本节中根本没有任何区分.vsn代表非常小的数字,等于1.0e-100.

 if a3 [row] <= 0 then a := vsn else
 if a3 [row] >= 1 then a := 1 - vsn
                  else a := a3 [row];
 costTerm := costTerm -1 * y [row] * Ln (a) -
                  (1 - 1 * y [row]) * Ln (1 - a);

使用Exp函数:这里存在一个除法,但是没有看到它如何产生零除错误.

function TBack_Prop.g (value: double): double;
begin
   Result := 1 / (1 + exp (-value));
end; // g //

知道我做错了什么吗？

我有一个包含四个字段的表，其中一个字段是主键。当我运行以下命令时：

var
  iAffectedRows: integer;
begin
  ADOCommand1.CommandText := 'insert into table_1(Field_1, Field_2, Field_3)   values(:A_Field_1, :A_Field_2, :A_Field_3)';      

  ADOCommand1.Parameters.FindParam('A_Field_1').Value := '100';
  ADOCommand1.Parameters.FindParam('A_Field_2').Value := '200';
  ADOCommand1.Parameters.FindParam('A_Field_3').Value := '300';

  ADOCommand1.Execute(iAffectedRows);
end;

结果是：

所述Field_1值是0。

（这个结果是由于运行命令：ADOCommand1.Execute(iAffectedRows)）

但是有了这个命令，一切都是正确的：ADOCommand1.Execute()

这个问题有解决方案吗？

标题说明了一切。互联网上充满了如何转换FILETIME为TDateTime而不是相反的示例。

我正在尝试执行以下操作.它工作但cmd窗口等待acrobat.exe在退出之前完成执行.我必须使用这种启动方法,因为我打算将来传递某些命令行参数.

cmdLineString := Format('/c ""%s" "%s""',['C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe', 'F:\Android-interview\Packt.Android.3.0.Application.Development.Cookbook.Jul.2011.ISBN.1849512949.pdf']);
ShellExecute(Handle, 'open', 'cmd.exe', PChar(CmdLineString), nil, SW_SHOWNORMAL);

我有一个sqlite数据库,我想执行一个选择查询并在TEdit中显示结果.我该怎么做？

 query := 'SELECT username FROM users';  //The query returns only one row
 FDQuery1.ExecSQL;
 FDQuery1.Open();
 Edit1.Text := ??

有 jstringtostring 或 stringtojstring。如何将字节转换为 JByte（或其他变量类型）？

....
var x:jbyte;
begin
 x:=bytetojbyte(65);
....
end;

谢谢。

我想在我的应用程序的启动时设置我RadioButton的一些和我的s或者是Checkbox真的还是假的...但是当我执行它时OnShow,OnActivate或者OnCreate事件处理程序我得到异常,甚至整个表单都没有绘制(缺少形式上的许多控制).

你有什么好的做法吗？

此代码用于解析编辑器是否应该是只读的.

Code Snippit

var
TempBool : Boolean;
begin
      TempBool := (fCurrentSelectedItem as TMyCustomObject).CanEdit; //Check whether this object can be edited; TempBool resolves to True
      TempBool := not(TempBool); // Toggle the Boolean value; !!-- TempBool still resolves to True
      curredtEach.properties.ReadOnly := TempBool; // Set the read only property on the editor
end;

TempBool解析为整数,如下所示

      // Integer(TempBool) = 0
      TempBool := (fCurrentSelectedItem as TMyCustomObject).CanEdit; 
      // Integer(TempBool) = -1
      TempBool := not(TempBool); 
      // Integer(TempBool) = -2     

找到这个链接, 但没有帮助.

Delphi版 - XE5

操作系统 - …

我正在将Delphi Xe5用于Windows和Firemonkey移动应用程序.

我在我的项目组中有两个不同项目的单元.(Windows应用程序和Firemonkey移动应用程序)

1.)如何确定Delphi Xe5的版本？或者,版本是什么？

2.)有没有办法确定Win 32应用程序之间.赢得64应用程序和Firemonkey移动应用程序

3.)在代码中,如何根据应用程序的类型告诉编译器使用哪个版本的Dialogs.那就是VCL.Dialogs(Windows App)与FMX.Dialogs(Firemonkey移动应用程序)

谢谢

这个问题与以下方面有直接关系:

使用Indy的IDTCPClient从响应流中获取HTML

我只需要一个版本的get函数来检索XML

function TMyConnector.GETXML(aRawHeader: String): String;

使用idHTTP组件,我可以执行以下操作

HTTP.Request.ContentType := 'text/xml';

我所追求的文件的标题如下所示:

<?xml version="1.0" encoding="utf-8" ?>

如何使用IDTCPClient组件执行此操作？

我想检查Form1.OnCreate事件处理程序过程,如果Form1构造函数Create完成作业,填充Form1上的所有组件.然后想使用Form1循环遍历组件并更改Text属性.我试过了:

WHILE NOT Assigned(Form1) DO 
  Sleep(100); 

......但它没有用.

现在,当我尝试使用Form1时,出现访问冲突错误.