小编Re0*_*ess的帖子

是否有与<noscript>相反的HTML?

HTML中是否有标记只在启用JavaScript时才显示其内容?我知道<noscript>相反的方式,在JavaScript关闭时显示其HTML内容.但我想只在JavaScript可用的情况下在网站上显示一个表单,告诉他们为什么如果没有它就不能使用该表单.

我知道如何执行此操作的唯一方法是使用document.write();脚本标记中的方法,对于大量HTML来说,它似乎有点混乱.

html javascript noscript

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

将查询限制为一条记录可以提高性能

将查询限制为一个结果记录,如果表只有一个匹配结果,可以提高大型(ish)MySQL表的性能吗?

例如

 select * from people where name = "Re0sless" limit 1
Run Code Online (Sandbox Code Playgroud)

如果只有一个具有该名称的记录?如果name主键/设置为唯一的呢?是否值得更新查询或增益是否最小?

mysql sql database

30
推荐指数
1
解决办法
6983
查看次数

如何在Delphi中将常量字符串组合在一起

我的应用程序使用字符串作为不同状态的项目可以在其生命中.

OPEN,ACTIVE,CLOSED,DELETE,

等等,此刻它们都被硬编码成代码

MyVar := 'OPEN';
Run Code Online (Sandbox Code Playgroud)

我正在努力改变它,因为它可能是一个维护问题,所以我想将它们全部改为常量,我打算这样做

MyVar := STATUS_OPEN;
Run Code Online (Sandbox Code Playgroud)

但我想把它们组合成一个像这样的数据结构

MyVar := TStatus.Open;
Run Code Online (Sandbox Code Playgroud)

在delphi 2007中执行此操作的最佳方法是什么?

我知道我可以为此创建一个记录,但是如何用值填充它,以便系统中的所有对象都可以使用它,而不必每次创建变量并填充值?

理想我希望有一个数据结构和值的中心位置,并且可以轻松访问它们(如TStatus.Open),而无需在每次使用它时将其分配给变量或创建对象.

我确信有一个简单的解决方案,我只是缺少.有任何想法吗?

delphi

11
推荐指数
4
解决办法
5630
查看次数

如何在Delphi中检查字符串是否是有效的DateTime格式字符串

我希望用户能够在程序中手动输入日期时间字段的格式.我有Tedit组件.例如,如果用户输入'HH:nn',那么这是一个有效的日期时间格式字符串,并且所有日期时间组件都应该将format属性更改为this,但如果他输入'asd',则不是.有没有快速的方法来检查这一点,而无需编写自己的功能?

delphi string datetime datetime-format

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

停止在Delphi中覆盖函数

如何在Delphi(2007)的子类中重写超类中的函数/过程?

我想标记它以便它不能被改变,我相信有一个最后的关键字,但不能为我的生活找到它的文档,所以我不是100%肯定这是我需要的.

delphi oop class

9
推荐指数
2
解决办法
1862
查看次数

如果没有显式调用,Delphi调用是否在重写过程上继承

如果代码中没有显式调用,Delphi调用是否继承了重写过程,即(继承;),我有以下结构(从超类到子类)

TForm >> TBaseForm >> TAnyOtherForm

项目中的所有表单都将从TBaseForm派生,因为这将包含用于每种表单的所有标准设置和破坏性部分(安全性,验证等).

TBaseForm有onCreate和onDestroy程序,代码可以做到这一点,但如果有人(即我)忘记在TAnyOtherForm上添加继承到onCreate,Delphi会为我调用它吗?我在网上发现了一些说它不是必需的引用,但如果从代码中省略它就会调用它.

如果它确实为我继承了,它什么时候会调用呢?

delphi oop inheritance

7
推荐指数
1
解决办法
4253
查看次数

在Delphi中检查值是否为日期/数字的正确方法是什么

在Delphi中检查值是否为日期/数字的正确方法是什么?

我知道其他语言有像isDate和isNaN这样的函数,但Delphi的等价物是什么?在我有这个的那一刻

function isNumeric(s1:string):boolean;
begin   
   // will throw exception if its not a number
  // there must be a better way to do this!!
  try
     StrTofloat(s1);
       result :=  TRUE ;
     except
       result := FALSE;
      end;
end;
Run Code Online (Sandbox Code Playgroud)

但抛出异常不能很好,而且每次调用代码时我都会看到异常对话,这会使调试变得困难.

delphi

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

Delphi - 从IDE中运行应用程序时的外部异常C0000008

当从IDE中运行应用程序并附加调试器时,在尝试连接到导入的ActiveX控件时会引发异常"外部异常C0000008".

如果应用程序是独立运行的,或者取消选中Rad Studio选项/调试器选项/集成调试,则程序按预期工作,没有异常,ActiveX控件返回预期结果.

项目中还有其他ActiveX控件,所有这些都可以正常工作.

我尝试过: - 重新安装ActiveX控件 - 重新导入ActiveX控件 - 删除任何可能导致冲突的软件(专家/插件等) - 关闭大多数正在运行的应用程序和服务等,以防它们导致冲突

搜索谷歌,看起来其他人遇到了同样的问题,但没有找到修复程序(除了关闭集成调试,但显然这不是一个有效的选项.

有没有想过要解决这个问题?

我正在使用Delphi 2007

delphi activex

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

为什么TDateTimePicker.Checked在Windows 7上总是返回True?

我有一个应用程序,在Delphi 2007中构建,TDateTimePicker在表单上有一个.此日期时间选择器具有ShowCheckbox设置为的属性True,其在日期或时间旁边显示一个复选框,每当用户选择日期时,或者通过代码更改日期或时间时,该复选框将自动选中.此复选框的状态也可由用户手动控制,其状态可由Checked属性确定.

以下代码显示如何确定OnChange事件中此复选框的状态:

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.ShowCheckbox := True;
end;

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  ShowMessage('Checked: ' + BoolToStr(DateTimePicker1.Checked, True));
end;
Run Code Online (Sandbox Code Playgroud)

上面的代码在Windows XP上按预期工作,但在Windows 7上,Checked无论该复选框的实际状态如何,该属性都返回True.

为什么Checked属性返回始终为True,即使取消选中复选框也是如此?有办法以某种方式修复或解决这个问题吗?

PS我的应用程序使用Windows主题

delphi delphi-2007 windows-7 tdatetimepicker

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

使用Delphi最小化外部应用程序

有没有办法最小化一个我无法用我的Delphi应用程序控制的外部应用程序?

例如notepad.exe,除了我想要最小化的应用程序只会有一个实例.

delphi window minimize

5
推荐指数
1
解决办法
8453
查看次数