小编Too*_*the的帖子

包含许多单元的Delphi项目需要大量运行

我有一个拥有290多个单位的dpr.

编译的exe是50MB.

dpr代码现在是这样的:

begin
  ShowMessage('Before Initialize');
  Application.Initialize;
Run Code Online (Sandbox Code Playgroud)

当我双击构建的exe时,我注意到8秒后才看到"Before Initialize"之前.这是因为大的exe大小?或者有没有办法减少这个时间?

delphi performance

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

检查蓝牙是否已启用?

我只是想简单检查一下是否在设备上启用了蓝牙.

我不想改变应用程序内部(或根本没有)的状态,使用私有API,越狱设备,或做任何会导致Apple拒绝应用程序的事情.

我想要的只是知道蓝牙是否打开.

任何人都可以对此有所了解吗?有没有Apple允许这样做的方法?

我完全清楚,在阅读了无数的帖子和文档后,Apple在蓝牙(其中包括)方面非常严格.

如果您只能通过文档链接和/或关于学习目标-c,阅读文档等的一些讽刺评论来为这个问题做出贡献,那么请不要回复.

iphone bluetooth objective-c ipad ios

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

使用rsync执行增量备份的脚本

有人可以帮助我在linux中使用bash脚本进行备份.必须每周进行一次完整备份,每天都要增量备份.

linux bash

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

Dwscript Web服务器

我想使用dwscript进行Web编程(生成动态内容).我想知道apache web服务器是否有任何模块?或者我如何基于dwscript运行自己的Web服务器?

delphi webserver dwscript

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

如何以编程方式设置我的IP地址?

如何以编程方式设置我的IP地址?

我的应用程序正在使用DelphiTricks中的代码进行检查(虽然我不确定About.com的代码是否可能更好)

我希望能够以编程方式设置地址以进行测试.并且(我不知道这是否重要),我希望能够这样做,即使我没有连接到任何网络(在笔记本电脑上,在火车上).

delphi

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

JavaScript OOP最佳实践:构建和扩展

我正在努力优化我在JS中的实践,但我无法构建一个完美的基准来回答我以下问题.

JS"Class"的最佳结构是什么?

我已经尝试了以下各项,没有任何明显的性能峰值.

(function() { // Scope! as a JS function
    //0.example
    var A = new function() {
            this.x = 0; // Will be constructed on runtime initiation
            A.prototype.afunc = function() {
                // do something
                return this;
            };
        };

    //1.example
    var B = new function() {
            var x = 0;
            B.prototype.bfunc = function() {
                // do something
                return this;
            };
        };

    //2.example
    var C = new function() {
            var x = 0;
            this.cfunc = function() {
                // do something
                return …
Run Code Online (Sandbox Code Playgroud)

javascript oop optimization

6
推荐指数
0
解决办法
915
查看次数

启动VS2012项目中不可用的调试按钮

我正在使用visual studio 2012,我没有找到按钮启动调试.相反,有一个按钮"附加".如何启用"开始"按钮.我在vs2010中导入的解决方案中只有一个项目.从头开始创建新项目时,可以使用"开始".

visual-studio-2012

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

泰米尔日历视图

如何在日历视图中设置泰米尔语日期,在我的应用程序中设置泰米尔语字体?

android calendar tamil

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

带括号的HTML编号

请问如何以这种格式设置编号:

1) number 1
2) number 2
3) ...
Run Code Online (Sandbox Code Playgroud)

在HTML?

我只找到了获得这种格式的方法:

1. number 1
2. number 2
3. ...
Run Code Online (Sandbox Code Playgroud)

数字后没有括号.

此外,是否可以设置开始,编号类型,但没有其他格式.

html

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

匿名方法对TypeInfo的奇怪行为

对于需要泛型类型"family"的一段代码,我尝试使用它TypeInfo来检索所需的信息.

class function GetTypeKind<T>:TTypeKind;
Run Code Online (Sandbox Code Playgroud)

对于大多数类型,我可以解决这个问题.但匿名方法类型表现出意外.

我有一个匿名方法类型定义为:

TMethodProc = reference to procedure;
Run Code Online (Sandbox Code Playgroud)

我试着获取类型信息:

MyKind := GetTypeKind<TMethodProc>;

class function GetTypeKind<T>:TTypeKind;
var 
  TI: PTypeInfo;
begin
  TI := TypeInfo(T);

  ...
end;
Run Code Online (Sandbox Code Playgroud)

我知道匿名方法背后有一些编译魔术.但我得到以下结果:

TI.TypeData.IntfParent == IInterface
TI.TypeData.IntfFlags == [(out of bounds)6]
Run Code Online (Sandbox Code Playgroud)

标志有一个意外的值,TIntfFlag有三个值,所以6是意外的.GUID也不是指导.它有一个相同的8个字节的重复集,大多数是00.例如(0,225,48,180,0,0,0,0,0,225,48,180,0,0,0,0)

匿名方法是否被排除在TypeInfo某些调整之外或者是否有用.

另外,(奇怪的)6是一个无证的特征,还是可以是任何值?

delphi anonymous-methods typeinfo delphi-10.2-tokyo

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