项目经验交流（CODE)-CSDN论坛

项目经验交流（CODE)

Delphi > VCL组件开发及应用

收藏回复

[问题点数：0分]

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837 结帖率 100%: 工作了两年，在以往的项目中，或多或少的会碰到一些技术上的难题，然后翻阅资料，直到解决，但好东东不该独享，虽然谈不上什么经典，但也许会解决大家日常中的燃眉之急吧呵呵````````

用LISTVIEW显示表中的信息：
procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);
begin
       tlistview(listv).Items.BeginUpdate;
        try
          tlistview(listv).Items.Clear;
          with table do
           begin
            active:=true;
            first;
            while not eof do
             begin
              listitem:=tlistview(listv).Items.add;
              listitem.Caption:=trim(table.fields[i].asstring);
              listitem.ImageIndex:=8;
             next;
             end;
        end;
        finally
        tlistview(listv).Items.EndUpdate;
      end;
end;

2003-07-30 11:02:01

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: 按回车键，自定义触发BUTTON
procedure enter(button:tbutton;var key:word);
begin
if key=13 then
tbutton(button).Click;
end;

2003-07-30 11:05:58

点赞只看TA 引用举报 #1得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: 处理单击LISTVIEW时，如果没有选中ITEM的错误负值：
procedure oneclick(listv:tlistview);
var
I:integer;
begin
if tlistview(listv).Selected=nil then
begin
   list:='';
   abort;
end;
try
  I:=tlistview(listv).Selected.Index;
  except
// list:='';
// mycaption:='';
// abort;
end;
try list:=trim(tlistview(listv).Items.Item[I].Caption);
mycaption:=trim(tlistview(listv).Items.Item[I].Caption);
except
end;
end;

2003-07-30 11:09:32

点赞只看TA 引用举报 #2得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: function findmdiwindow:boolean;
begin
if application.MainForm.MDIChildCount>0 then   //判断是否有子窗体存在
  result:=true
  else
   result:=false;
end;

2003-07-30 11:10:33

点赞只看TA 引用举报 #3得分 0

⋅C#调用Delphi写的Dll时出现乱码[解决后再加分] ⋅有谁用过微软的Mirror Driver？ ⋅如何将Canvas里的内容快速的画到一个Bmp中（解决问题后单独开贴赠分） 更多帖子 关注私信空间博客 fengjn 等级 本版专家分：7234: 应该是
procedure enter(button:tbutton;var key:word);
begin
if key=13 then
begin
key:= 0;
tbutton(button).Click;
end;
end;

2003-07-30 11:13:55

点赞只看TA 引用举报 #4得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: VB中读取INI文件
Private Sub Form_Load()
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(App.Path & "\init.txt") Then
        Set a = fs.opentextfile(App.Path & "\init.txt")
        con_str = a.readline
        a.Close
        conn.ConnectionString = con_str
        conn.Open
        b_ip = InStr(1, con_str, "server=") + 7
        e_ip = InStr(b_ip, con_str, ";")
        server_ip = Mid(con_str, b_ip, e_ip - b_ip)
    Else
        frm_database.Show 1
        If Len(ip) = 0 Then End
        If server_client = "ser" Then
            con_str = "driver=SQL Server;server=" & ip & ";database=master;uid=sa;pwd="
            conn.ConnectionString = con_str
            conn.CommandTimeout = 15
            conn.Open
            conn.Execute "exec sp_attach_db plat_xyj,'" & App.Path & "\plat_Data.MDF','" & App.Path & "\plat_Log.LDF'"
            conn.Close
        End If
        con_str = "driver=SQL Server;server=" & ip & ";database=plat_xyj;uid=sa;pwd="
        conn.ConnectionString = con_str
        conn.CommandTimeout = 15
        conn.Open
        server_ip = ip
        Set a = fs.CreateTextFile(App.Path & "\init.txt", True)
        a.writeline con_str
        a.Close
    End If
    client_ip = Winsock1.LocalIP
    Combo1.ListIndex = 3
    Set rs = conn.Execute("select name from p_user order by id")
    While Not rs.EOF
        If Not IsNull(rs!Name) And Trim(rs!Name) <> "" Then
            Combo2.AddItem Trim(rs!Name)
        End If
        rs.MoveNext
    Wend
End Sub

2003-07-30 11:15:52

点赞只看TA 引用举报 #5得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: fengjn(小枫) :我这样写得也执行过去了。
不过在ACCESS（VB）中作开发的话，就要屏蔽一些系统键了，比如F5之类的

2003-07-30 11:17:56

点赞只看TA 引用举报 #6得分 0

⋅关于shell link问题 ⋅delphi 和 vcl 中的几个问题 ⋅哪位大哥经济学好,给讲一下人民币升值会在哪些方面给中国带来坏处? 更多帖子 关注私信空间博客 geodgehoul 等级 本版专家分：952: 1. 将popmenu 的几个事件写在一块，可以适当减少代码冗余
2. 能使用tquery的情况下尽量不要使用Ttable
3. 整个程序只放置一个tdatabase 来连接一个服务器,这是初学者
经常可能出错的地方
4. 将业务和界面控制分离,这是我一直想达到却怎么也完全达不到到的一
个目标
5. 程序的不同模块之间尽量使用函数的方式来通信,尽量不用使用共享变量
个人感觉,不一定是准则,大家看着拍砖,不要砸死人就行

2003-07-30 11:18:11

点赞只看TA 引用举报 #7得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: 缩小步长
在设计窗体时使用“（靠到格线）Snap to grid”功能，可以节省安置组件的时间，但是，有时你还需要微调其位置和大小。
其一：将组件在窗体上一次移动一个象素点。首先，选中你想移动的组件，然后，按下<Ctrl>键不放，按光标键，选中的控制将一次移动一个象素点，方向与光标键所指方向相同。
其二：每次按一个象素点调整控制的大小。选中控制，按下<Shift>键不放，按光标键，根据光标键所指方向不同，选中的控制每次放大或缩小一个象素点。

2003-07-30 11:24:42

点赞只看TA 引用举报 #8得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: 标签的加速键
对含有Caption属性的组件，添加快捷键是比较容易的，只需在Caption属性中特定字符前加上“&”符号即可。那么，怎样给没有Caption属性的控制添加快捷键呢？现以给一个TMemo控制添加快捷键为例说明如下：在窗体上放置一个TMemo控制，再在其旁边放置一个TLabel控制，将其Caption属性设置为“&Memo1”，将TLabel的FocusControl属性设置为“Memo1”。编译并运行这个程序，按快捷键 <ALT+M>，就可以快速存取Memo1控制的内容。这项技术不需要任何代码，可以应用到所有没有Caption属性的控件上。
呵呵很不错的方法

2003-07-30 11:26:31

点赞只看TA 引用举报 #9得分 0

⋅大家近来看看哦 ⋅散分贴！！庆祝自己开发的工具软件被广泛转载、下载 ⋅分多了压死人,散分 更多帖子 关注私信空间博客 IORILI 等级 本版专家分：8837: 处理自己的热键
向窗体添加自己的热键：将窗体的KeyPreview属性设置为True，然后在窗体的OnKeyDown事件处理程序中添加如下代码：
if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then ShowMessage('Ctrl-A');
就OK了

2003-07-30 11:29:47

点赞只看TA 引用举报 #10得分 0

1 2 3

收起

收藏回复

IORILI

等级：

关注私信 TA的帖子

也谈谈CodeReview: 一个注重技术规范和分享的团队，往往会做好Code review工作，在紧张的项目之余，为了后期的效率和技术上的提高，我们需要引入Code review。本文是第一次准备Code Review时查阅了大量相关资料，整理总结形成本文，...

Google是如何做Code Review的: 听说今天发原创有徽章，先占个坑，等周末有空补上内容。本篇博客内容我和几个小伙伴一起翻译了google前一段时间放出来的Google’s Engineering Practices documentation，之后我会整理一下放在这里。...

AURIX TC275/TC234开发----(1) 开发准备工作: TC234/TC275 是英飞凌推出的较新一代AURIX 系列的单核/三核处理器，适合应用于车载控制器的开发，目前在很多车型上有在使用，下面对两种芯片做个简单的分析对比： 1）TC275 该芯片有三个运算核、两个校验核，类似...

谈谈我们公司如何做Code Review: 只不过一个接一个的项目交付没有给他们太多停留的时间，在这种情况下如何给团队营造浓厚的工程师交流氛围呢？方法有多种，最近进行了《代码分支管理》和《代码的好味道和坏味道之22种坏味道》培训，大家兴趣很高...

项目经验教训总结（教育软件）: 今年主要做的项目已经验收通过，做了一些经验教训的总结，记录于此：一、项目的描述这个项目是一款院校的实验室软件，因牵涉到几个因素：政府拨款、新学院和新专业的设立、市场是的新产品，所以备受关注，各方...

作为开发人员，这四类Code Review方法你都知道吗？: 本文翻译自：https://dzone.com/articles/4-types-of-code-reviews-any-professional-developer 转载请注明出处：葡萄城官网...下文阐述了4种主流的代码审查(code review)类型，相信作为专业的开发人员，你应该都了...

Gitlab Code Review流程使用向导: 一、 GitLab Code Review机制... 1 二、 GitLab Code Review 配置... 1 1. 通用Git工作流说明... 1 2. Code Review 环节及工作流... 2 3. Code Review 流程演示... 3 三、 IDE Merge Request 插件使用介绍... ...

项目、团队管理经验: 团队管理方法高效地管理员工有难度，但也并非做不到，关键是要找到规律、遵循规律。按照规律管理员工，难以驯服的员工会变的温顺，低效的团队会变地生机勃勃。管理没有捷径可走。 01 树立制度高于一切的管理思想 ...

再见， VS Code ！: 来自：机器之心Github 最新推出的 Codespaces 可以实现基于 VS Code 的云端代码编译。现在，你在手机、平板上都可以直接进行开发。云端开发不能更美好了，用上 Cod...

CodeCombat中国官方介绍来啦！: CodeCombat（**中国官方网址：http://koudashijie.com）**于2013年成立于美国硅谷，是美国大学理事会权威认证的青少年编程学习平台，学习者可以在CodeCombat学习后参加AP计算机考试，拿到美国和世界一流名校如斯坦福...

基于MATLAB的水果分级设计: 基于MATLAB的水果分级识别技术研究摘要本次毕业设计介绍了基于MATLAB的水果分级自动识别，利用手机端获取苹果的样本图像，应用MATLAB软件编程实现了对样本图像的预处理，包括图像滤波、图像填充、图像灰度化、图像...

verilog 综合注意事项: verilog

入Ali的过去一年，谈谈我对code-review的理解: codereview（CR）一直以来在软件行业被视为提升代码质量的一种有效的方式，也被视为一种工程师文化的代表。关于什么是CR，在goole出具体的定义如下：代码评审是指在软件开发过程中，对源代码的系统性。通常的...

Source Code Chain（SCC）：基于区块链的人工智能软件工程项目: 行业现状随着数字化时代日新月异的发展，市场对软件的需求不断增加，近年来全球软件...开发者真正重要的工作在于对系统架构的把握，对成型算法的选择，和对未知领域的探索，但是这些有价值的工作，在绝大多数项目中...

敏捷开发中Code Review的目的及内容: 本文结合实践，介绍笔者对敏捷开发中CodeReview的理解和相关经验。文/陈序明黄彦军敏捷开发中Code Review的目的及内容做任何事情，首先要清晰为什么要做，才能有目标和动力把事情做...

Codewarrior 10.5 仿真烧写 PowerPC 的NOR FLASH 方法: Codewarrior 10.5 仿真烧写PowerPC 的NOR FLASH 方法3162412793@qq.com技术交流QQ群：691976956 很多开发PowerPC的新手朋友们，都会遇到一个很尴尬的问题： T2080 的板卡设计回来，需要把程序下载到NOR FLASH启动，...

记一次千人大项目的感受: 最近有幸参与了一个千人的大项目，深刻感受到了项目中存在的一些问题，做如下的记录。也希望大家能够讨论一下自己项目中面临的问题以及更好的解决问题方法。

腾讯云直播 tcplayer，前端 vue 项目经验记录: 腾讯云文档直播拉流：https://cloud.tencent.com/document/product/454/7503 1. 在 index.html 中引入初始化脚本（可将其保存在本地） <script src="//imgcache.qq....

独家对话微软顶级代码女神潘正磊：Visual Studio 与 VS Code 的未来走向 | 人物志: 万字长文，解析 Visual Studio 与 VS Code 的未来走向。

如何做好代码审查？Code Review Meeting还是Single Review: Code Review是提高开发团队技能以及保持团队迭代更新最佳的实践方法，也是代码质量管理中一个非常有效的方法。什么？你不知道什么是Code Review？Code Review中文译作“代码审查”或是“代码评审”，这是一个流程，...

java后端简历项目经历_程序员面试简历准备项目经历的雷区: 写在前面：一名有三年Android开发经验的女程序员(欢迎大家关注我 ~期待和大家一起交流和学习Android的相关知识)面试一直是程序员跳槽时期非常热门的话题，虽然现在已经过了跳槽的旺季，下一轮跳槽季需要到年底才会...

VS Code插件开发-全部流程介绍（一）: VS Code插件开发 - 全部流程介绍 ... 笔者最近参与了一个制作VS Code插件的项目。由于之前没有这方面的经验，所以花了一段时间来整理插件开发的相关知识。VS Code凭借着强大的可扩展性，现在已...

浏览器上的IDE：code-server安装——服务器版的vscode: code-server服务器版的vscode前置需求code-server简介：code-server的优势（官方给出的两个优点）：code-server对服务器的配置需求：code-server的搭建下载code-server的最新版本部署code-server 本文所使用的环境...

微软良心之作——Visual Studio Code 开源免费跨平台代码编辑器: 在 Build 2015 大会上，微软除了发布了 Microsoft Edge 浏览器和新的 Windows 10 预览版外，最大的惊喜莫过于宣布推出免费跨平台的 Visual Studio Code 编辑器了！　Visual Studio Code (简称 VS Code / VSC) 是一...

聊聊clean code: clean code，顾名思义就是整洁的代码，或者说清晰、漂亮的代码，相信大多数工程师都希望...这期间算是积累了一点经验心得，想和大家分享，抛砖引玉。本文主要针对面向对象编程的clean code来阐述，面向过程代码的...

iOS Code Signing: 解惑（译）: ）：本博客提供的所有教程的翻译原稿均来自于互联网，仅供学习交流之用，切勿进行商业传播。同时，转载时不要移除本申明。如产生任何纠纷，均与本博客所有人、发表该翻译稿之人无任何关系。谢谢合作！原文链接地址...

VSCode(Visual Studio Code)使用记录: 一、安装不多说网上有。二、添加扩展1.VeturVSCode下强大的Vue开发工具。2.VSCode Great IconsVSCode图标库。三、终端操作Ctrl + `如下图1、安装nrmnrm(npm registry manager )是npm的镜像源管理工具，有时候国外...

Code Review的方式和流程: 经过在公司1年多的code review的经验回顾：原来有fisheye，开发提交代码后旺旺通知测试工程师，并通过读代码来了解测试范围，并发现代码中的错误。　后来，最近半年的项目、日常测试过程中都是开发提交代码后，测试...

前端代码规范（1）谈code review: 前端谈code review 一、review代码的认知 1、code review目的保证代码可读性，一致性代码层面减少bug，最基本缺少控制判断、异常处理传播知识+设计讨论。相信很多人第一次提交 Code Review 都有...

垃圾分类数据集及代码: 资源说明：数据集主要包括6类图片：硬纸板、纸、塑料瓶、玻璃瓶、铜制品、不可回收垃圾代码运行说明： 1、安装运行项目所需的python模块，包括tensorflow | numpy | keras | cv2 2、 train.py用于训练垃圾分类模型，由于训练的数据量过于庞大，因此不一并上传 3、 predict.py用于预测垃圾的类别，首先运行predict.py，然后输入需要预测的文件路径，即可得到结果。

相关热词 c#書籍推薦 c#打印pdf中的图片 c# 抽象函数的作用 mono打包c# c#网关技术选型 c#比java简单 c#线程和锁 c# 秒表计时器 c#数组怎么写 c#后台分类管理源码