小编men*_*raz的帖子

TTimer没有开火

我有一个奇怪的问题.我的主表单上有一个TTimer,应该触发500毫秒.创建表单后.

当我从IDE运行它时它工作正常,但是当我在其他W7 PC上运行时,主窗体被创建,但计时器不会触发.(某些组件未更新)如果我单击一个控件,一切都会更新,计时器会触发,一切都很好.如果我移动表单,每个东西都会更新,但计时器不会启动.如果我在安装了Delphi的PC上运行它,它可以正常工作.没问题.

MyForm.OnCreate中的代码执行正常.Timer.Enabled := True没有变化.

知道是什么原因引起的吗?我真的被困在这里了.

最好的祝福.

delphi timer delphi-7 windows-7

3
推荐指数
1
解决办法
2796
查看次数

在D中解析事物的惯用方法是什么?

假设我想解析jquery选择器语法并将事物转换为标记.

我应该将事物解析为字节数组吗?作为std.string的字符串?Char的char或者也许是在phobos的某个地方进行的boyer-moore搜索?D有最快的正则表达式所以也许正则表达式?

如果有人可以链接到用D编写的任何好的解析器,也会受到赞赏.

d

3
推荐指数
1
解决办法
219
查看次数

如何为pdf配置phpexcel

我一直在寻找官方文档,但我似乎无法把所有的东西放在我的脑海里(我是编程新手).我设法使用excel库并且它工作超级,但现在我想让用户有机会在.xls或.pdf中下载文件.

我正在使用Codeigniter和WAMP.

我下载了PHPExcel,它在我的C:目录下.

后来我将Classes:PHPExcel(文件夹)和PHPExcel.php复制到我的codeigniter的第三方文件夹中.

然后,在Codeigniter的Application,Libraries中,我创建了一个名为pdf.php的文件,并在那里复制了原始PHPExcel文档中的代码(21pdf.php)

pdf.php

/** PHPExcel_IOFactory */
require_once dirname(__FILE__) . '/../Classes/PHPExcel/IOFactory.php';
$rendererName = PHPExcel_Settings::PDF_RENDERER_TCPDF;
$rendererLibrary = 'tcPDF5.9';
$rendererLibraryPath = '/php/libraries/PDF/' . $rendererLibrary;


if (!PHPExcel_Settings::setPdfRenderer(
    $rendererName,
    $rendererLibraryPath
)) {
die(
    'NOTICE: Please set the $rendererName and $rendererLibraryPath values' .
    EOL .
    'at the top of this script as appropriate for your directory structure'
);
}
Run Code Online (Sandbox Code Playgroud)

我真的不知道如何配置它,我的脑子现在被烧了.任何帮助将非常感谢!

pdf phpexcel

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

在编译时D任意代码

我听说D可以在编译时执行任意用户代码.这是真的?有人可以给出一个例子(特别是当编译永远不会终止时)?这个功能是为了什么?另外,如果是这样的话有一种方法可以通过一些编译器选项来禁用它(编译器是dmd)?

d dmd ctfe

3
推荐指数
1
解决办法
128
查看次数

使用jQuery进行数组聚合

假设可用,则下一个 数组的所有对象具有相同的长度,并严格遵循分别如下所示的模式


数组1

[
  {
    "Company": "Etsy",
    "Link": "https://angel.co/etsy?utm_source=companies"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

数组2

[
  {
    "Market": "Handmade"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

数组3

[
  {
    "Website": "http://www.etsy.com"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

阵列4

[
  {
    "Employee": "-"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

数组5

[
  {
    "Stage": "-"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

数组6

[
  {
    "Raised": "$97,250,000"
  },

  ...

]
Run Code Online (Sandbox Code Playgroud)

题:

什么是方式使用上面引用的数组作为输入来产生相同长度的数组,其架构如下所示?


阵列输出

[
  {
    "Company": "Etsy",
    "Link": "https://angel.co/etsy?utm_source=companies",
    "Market": "Handmade"
    "Website": "http://www.etsy.com",
    "Employee": "-", …
Run Code Online (Sandbox Code Playgroud)

arrays jquery json

3
推荐指数
1
解决办法
46
查看次数

BNF语法+ Gold LALR解析器,无法区分特殊情况NewLine和Whitespace

  • 我想将空格和换行视为普通的空格.
  • 我想区分换行符和其他空格而且允许特殊情况.

首次尝试编写兼容语法失败.

这是语法:

! ------------------------------------------------- Sets

{WS}           = {Whitespace} - {CR} - {LF}
{ID Head}      = {Letter} + [_]
{ID Tail}      = {Alphanumeric} + [_]
{String Chars} = {Printable} + {HT} - ["\]

! ------------------------------------------------- Terminals

! The following defines the Whitespace terminal using the {WS}
! set - which excludes the carriage return and line feed 
! characters

Whitespace    = {WS}+ | {CR}{LF} | {CR} | {LF}
!NewLine       = {CR}{LF} | {CR} | {LF}
MyNewLine      = {CR}{LF} | …
Run Code Online (Sandbox Code Playgroud)

gold-parser

2
推荐指数
1
解决办法
833
查看次数

在同一时间点发送短信

以前我发布了一个关于多线程的问题.实际上我的意图是通过使用c#和asp.net应用程序在同一时间点(例如:凌晨12:00)向1000(或更多)人发送短信.可以选择多线程概念来实现这一目标吗?

c# asp.net sms multithreading

2
推荐指数
1
解决办法
2246
查看次数

如何将任意数据粘贴到TMemo中?

复制和粘贴文本很容易,因为它内置于TMemo中,但它似乎只能处理文本.但在我看来,任何类型的数据都可以表示为字符串.如果我从另一个程序中复制一些任意数据并想将其粘贴到TMemo中,我如何让Delphi接受它作为原始字符串?

delphi copy-paste tmemo

2
推荐指数
1
解决办法
1143
查看次数

如何以编程方式将操作添加到Delphi 2010中的操作管理器

我正在尝试动态添加actionitems,我可以添加项目,当我这样做时它可以工作:

HostActionItem := ActionManager.ActionBars[0].Items[0].Items[2];
  NewItem := HostAction.Items.Add;
  NewItem.Action :=  MyActionToPerform;
  NewItem.Caption := Description;
  NewItem.ImageIndex := 1;
  NewItem.Tag := 13;
Run Code Online (Sandbox Code Playgroud)

但是,当操作Execute方法触发时,我尝试从Sender对象获取ActionComponent,如下所示:

  if (Sender is TAction) then
  tag := (Sender As TAction).ActionComponent.Tag;
Run Code Online (Sandbox Code Playgroud)

但是ActionComponent总是为零.为什么ActionComponent没有初始化?

delphi taction delphi-2010 tactionmanager

2
推荐指数
1
解决办法
2958
查看次数

如何在Innosetup脚本中在非俄语本地化计算机上粘贴没有痛苦的俄语文本

每当我想将一些俄语文本粘贴到Innosetup脚本中时,我必须更改计算机的本地设置.

可以在Innosetup内部解决编码问题吗?

谢谢

inno-setup

2
推荐指数
1
解决办法
578
查看次数