标签: delphi-xe5

在TWebBrowser中将引脚添加到Google Map并处理点击

如何在TWebBrowser中将引脚添加到Google Map并在单击引脚时调用事件?该解决方案需要适用于iOS和Android.

delphi android google-maps ios delphi-xe5

6
推荐指数
1
解决办法
686
查看次数

6
推荐指数
1
解决办法
3729
查看次数

Delphi XE5中的AdMob支持

我在哪里可以在Delphi XE5中找到Android的AdMob支持? 我试图在所有组件中找到它,但找不到任何东西.我应该自己使用JNI,如果是,那我该怎么办呢?

delphi android admob delphi-xe5

6
推荐指数
1
解决办法
1618
查看次数

Delphi为Windows Mobile编程

所以Delphi现在支持Windows,MacOS,Android和iOS编程.有没有办法,使用Delphi(XE5)为Windows Mobiles编写程序?

windows delphi delphi-xe5

6
推荐指数
2
解决办法
5951
查看次数

如何以编程方式更改Tlabel的FontColor

当我TLabel在表单上放置时,我可以通过更改FontColor属性来更改其文本的颜色.但是,当我在我的程序中执行此操作时

Label1.FontColor := TAlphaColors.Aquamarine;
Run Code Online (Sandbox Code Playgroud)

这不起作用.知道什么是错的吗?

delphi label colors firemonkey-fm3 delphi-xe5

6
推荐指数
2
解决办法
2万
查看次数

更快的替代InttoStr/StrToInt?

我想知道是否有更快的替代品System.IntToStr / System.StrToInt.有一个快速版本,但只有UTF8.哪个是Int32ToUTF8来自SynCommons.pas慢速字符串转换并且由于慢字符串转换,它必然会很慢.purepascal RTL版本对于64位来说真的很慢.

delphi delphi-xe5

6
推荐指数
2
解决办法
1953
查看次数

LongDayNames - 最初在SysUtils中

从Delphi XE迁移到XE5.

Label1.Caption:= 'Today''s day is '+LongDayNames[DayOfWeek(Date)];
Run Code Online (Sandbox Code Playgroud)

'LongDayNames'不再有效.我看到Delphi将这些用于我的用途:

System.SysUtils, System.Variants, System.Classes,
Run Code Online (Sandbox Code Playgroud)

我如何找到'LongDayNames'以便它可以工作?

delphi delphi-xe delphi-xe5

6
推荐指数
1
解决办法
1801
查看次数

作为函数的结果的"函数引用"

我有一个返回函数的功能TFunc<Integer>reference to function:Integer.我有一个过程,它接受一个函数TFunc<Integer>作为参数,调用它并打印其结果.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function GetFunction:TFunc<Integer>;
begin
  result := function:Integer begin result := 42 end;
end;

procedure FunctionCall(AFunc:TFunc<Integer>);
var i:Integer;
begin
  i := AFunc;
  WriteLn(Format('Function Result = %d',[i]));
end;

begin
//  FunctionCall(GetFunction);    // error
  FunctionCall(GetFunction());  // works as excpected
end.
Run Code Online (Sandbox Code Playgroud)

这个call(FunctionCall(GetFunction);)会导致错误.和()作品一样被打电话.

我的问题是:
在delphi中我需要使用brakets来调用函数,何时不需要(我认为我从不需要它们)
或者
我不需要它们而且它是否是一个bug?

我在windows 7 dcc32上使用delphi xe5.

delphi function-pointers delphi-xe5

6
推荐指数
1
解决办法
539
查看次数

delphi xe5 StrToFloat故障将ThousandSeparator更改为','

我在这做错了什么?我只是想将格式化的字符串转换为double,并使用传入的TFormatSettings作为StrToFloat的参数.我得到以下异常:

  '3,332.1' is not a valid floating point value.  
Run Code Online (Sandbox Code Playgroud)

千位分隔符和小数分隔符是TFormatSettings中的预期值(','和'.').

procedure TForm2.Button1Click(Sender: TObject);
var
  FS: TFormatSettings; 
  S: String;
  V: double;
begin
  FS:= TFormatSettings.Create; 
  codesite.Send('ThousandSeparator', FS.ThousandSeparator);  //correct ','
  codesite.Send('DecimalSeparator', FS.DecimalSeparator);    //correct '.'
  S := '3,332.1';
  try
    V := StrToFloat(S, FS);
  except on E: Exception do
    ShowMessage(e.Message);
  end;
  CodeSite.Send('S', S);
  CodeSite.Send('V', V);
end;
Run Code Online (Sandbox Code Playgroud)

delphi delphi-xe5

6
推荐指数
2
解决办法
1413
查看次数

如何为我自己的组件创建Vcl-Theme-Style?

我使用BitmapStyleDesigner.exe(随delphi xe5一起提供)编辑vcl样式到我的应用程序.

如何将自定义组件添加到样式器调色板?我希望我的TMyButton,继承TButton,具有不同于标准的颜色,形状等TButton.

这可以只通过编辑样式来完成,还是我必须编辑源代码TMyButton

Embarcadero的维基并没有帮助(到目前为止).

提前致谢!

delphi vcl-styles delphi-xe5

6
推荐指数
1
解决办法
1005
查看次数