delphi-7

    0热度

    1回答

    我想制作一个应用程序,其中TStringGrid的单元格在我点击它们时会改变颜色。每次我点击一个细胞,它应该切换到下一个颜色,并保持该颜色,直到我上单击单元格,依次是: 白色==>红==>橙==>绿色= =>白色(如红绿灯)。 我正的错误(S)是有点难以解释,但我会尽力。 应用程序运行,但是当我点击一个单元格,然后在另一个,有时第一单元我点击改变颜色,但第二个没有。其他时候,两个细胞都会改变颜色。

    1热度

    2回答

    如何在Windows消息中将值转换为与lparam相同的形式? X := SMALLINT(lParam and $FFFF); Y := SMALLINT((lParam shr 16) and $FFFF); 所以lparam在Word中转换。如何进行反向转换?

    2热度

    1回答

    本声明(在Delphi 7) writeln(logfile,format('%16.16d ',[FileInfo.size])+full_name); 导致这个输出 0000000021239384 C:\DATA\DELPHI\sxf_archive10-13.zip 此语句 writeln(logfile,format('%17.17d ',[FileInfo.size])+ful

    0热度

    1回答

    我有一个Delphi 7中的项目,它使用MySQL中的数据库来存储一些配置。 每当我改变一个配置,一个“保存”按钮启用。此按钮中的OnClick过程调用TADOQuery.Edit,Select字段的SQL属性,TADOQuery.Open并设置各种FieldsByName。最后,它TADOQuery.Post的配置和Requery它。 只有至少其中一个字段实际发生了更改,才能正常工作。例如,如果

    3热度

    1回答

    对于BDE,我们可以清除像下面这样的参数数据。 with tstoredproc do begin . . for i := 0 to ParamCount - 1 do Params[i].Clear; . . end 如何为ADO数据集做同样的工作?我不想创建参数。我使用TADOStoredProc组件,它具有所有参

    -4热度

    1回答

    我需要使用'|'作为唯一Delimiter分割以下字符串为TStringList: " 0.985,EError can't find,E| 0,5186,Name,6946" 然后我需要分割使用','每个TStringList项目唯一的`分隔符。 所以,在第一TStringList将这些项目: " 0.985,EError can't find,E" "0,5186,Name,6946"

    0热度

    2回答

    我有一个项目德尔福7名为Simple隧道 和的特点之一是计算从网络上网的总下载或全部上传 这样PICT: Simple Tunnel - Rev8.3 我使用的功能: function BytesToFriendlyString(Value : DWord) : string; const OneKB = 1024; OneMB = OneKB * 1024; On

    3热度

    1回答

    我的表,我想在单列中创建三列,现转载。 id | date | type | total ------ | ------ | ------ | ----- 1 | 01.10.2016| Paypal | 50 2 | 03.10.2016| credit | 40 3 | 05.10.2016| Cash | 50 4 | 06.10.2016| payment| 100

    0热度

    2回答

    在我的表单中,我有许多TMyQuery组件。他们的名字标识他们使用哪个MySQL表。例如,COMPONENTSTABLE可与组件表一起使用,等等。 约有30个表格,但未来可能会改变。 我也使用一个基本的字符串列表从一个名为TIMESTAMPS的表中读取字段名称。当发生UPDATE,INSERT或DELETE时,通过触发器更新此表。 TIMESTAMPS表中的每个字段指的是修改了哪个表。表中只有一个

    0热度

    3回答

    我是编程新手。 我想从上午6点到下午6点计算列值。我试着使用下面的查询,但它给出了12 AM到12 AM的值。查询是 SELECT (COUNT (COLUMN_NAME)) AS TOTAL FROM TABLE_NAME WHERE AREA = 1 AND TRIM(DATE_COLUMN) = TRIM ((SYSDATE)+6/24) 这里我不能使用日期,这将更新在d