捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 仿delphi3界面
关键字：Delphi 界面 工作流 流程图
来　自：精品
平　台：Win2K/2003/NT/XP 下载所需：10 火柴
深浅度：中级 完成时间：2013/6/4
发布者：tjsoft (奖励50火柴) 发布时间：2013/6/4
编辑器：Delphi7 语　　种：简体中文
分　类：窗体 下载浏览：39/17282
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
function TFmainForm.GetUniqueUnitName:string;
// 
var
   I,Count:Integer;
begin
    Result:='Unit1.pas';
    Count:=1;
    if  ProjectInfo.UnitItems.Count<1 then Exit;
    for I:=0 to ProjectInfo.UnitItems.Count-1 do
    begin
        if Pos('Unit',ProjectInfo.UnitItems[I])>0 then Inc(Count);
    end;
    Result:='Unit'+IntToStr(Count)+'.pas';
end;

function TFmainForm.GetUniqueFormName:string;
var
   I,Count:Integer;
begin
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论10条 当前显示最后6条评论
duronshi 2013/6/8 0:06:15
7下都无法编译通过，浪费火柴
newyj 2013/6/8 22:46:22
几百年前的东西了
kylixxp 2013/7/8 11:28:49
这。。。  精品？

精品 太不值钱了。。。
lissdd 2013/10/23 17:29:12
浪费火柴！ 网上很多，1998年韩国人写的，只有部分源码!
gong123456 2014/9/21 10:52:05
这还要火柴，也太黑了吧。 N年前的东东，而且发这个也不是原作者，最关键的是根本编译不了。
tangnyzlqq 2019/3/16 23:06:31
学习了
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表