DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡ ①
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡ ②
发布代码
发布控件
文档资料
经典工具
≡事务区≡ ③
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入： tino0914
今日帖子： 25
在线用户： 27
导航： 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/22 0:24:42
标题：
我就这样随便写一下，delphi10.1 update2崩溃了 浏览:2614
加入我的收藏
楼主：
procedure TFrmCompanyInfo.FormCreate(Sender: TObject);
begin
  inherited;
  AddEvent(
    procedure
    var
      aSysOptionArr:TSystemInfoArr;
      ISvr:IFcxsServer;
    begin
      CreateAnonymousThreadX(Self,Self,
        procedure (aThread:TAnonymousThreadX; aData:Pointer)
          function GetSysOptionStruct(iSvr:IFcxsServer;aSystemInfoEnum:TSystemInfoEnum ):TSystemInfoStruct;
          begin
          Result:=TSystemInfoStruct.Create;
          Result.aId:=aSystemInfoEnum;
          iSvr.GetSysOption(Result);
          end;
        begin
          aSysOptionArr:=TSystemInfoArr.Create;
          try
          ISvr:=CreateServerInterface(IFcxsServer_IID) as IFcxsServer;
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sieGsName));
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sieGsPhone));
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sieGsFaxNumber));
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sidGsAddr));
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sidGsManager));
          aSysOptionArr.Add(GetSysOptionStruct(ISvr, sidBankAcount));
          aThread.SetSyncPro(
          procedure
          function GetArrValue(aSystemInfoArr:TSystemInfoArr; aSystemInfoEnum:TSystemInfoEnum):string;
          var
          I:Integer;
          begin
          Result:='';
          I:=aSystemInfoArr.GetIndex('aId',aSystemInfoEnum);
          if I > -1 then
          Result:=aSystemInfoArr.Items[I].aValue;
          end;
          begin
          with TFrmCompanyInfo(aData) do
          begin
          EditGsName.Text:=GetArrValue(aSysOptionArr,sieGsName);
          EditManager.Text:=GetArrValue(aSysOptionArr,sidGsManager);
          EditPhone.Text:=GetArrValue(aSysOptionArr,sieGsPhone);
          EditFax.Text:=GetArrValue(aSysOptionArr,sieGsFaxNumber);
          EditAddr.Text:=GetArrValue(aSysOptionArr,sidGsAddr);
          EditBankAcount.Text:=GetArrValue(aSysOptionArr,sidBankAcount);
          end;
          end
          );
          finally
          aSysOptionArr.Free;
          end;
        end
      );
    end
  );
end;
先是代码提示出错，再是乱出begin end,然后IDE非法操作,最后闪退~~~
----------------------------------------------
-
作者：
男 hardnut (麦轲数据管家) ★☆☆☆☆ -
普通会员
2016/11/22 7:53:11
1楼： 看到你这代码，我也崩溃了！
----------------------------------------------
UniKeeper V10.40 -- 您最贴心的个人数据管理助手
作者：
男 www12345 (风云) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 7:56:10
2楼： 这个代码应该发给EMB，让他们去崩溃
----------------------------------------------
一卡通专家的中专家www.cnduh.com
作者：
女 google220 (google220) ★☆☆☆☆ -
普通会员
2016/11/22 8:02:17
3楼： 你这还叫代码？
----------------------------------------------
菩提本无树，明镜亦非台，本来无一物，何处惹尘埃
作者：
男 zwjchinazwj (蒲石) ★☆☆☆☆ -
普通会员
2016/11/22 8:11:49
4楼： 是不是代码都不应该崩溃.

喷错方向了吧，各位。
----------------------------------------------
-
作者：
男 wk_knife (wk_knife) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 8:31:27
5楼： 这代码相当的JavaScript! 赞一个！
----------------------------------------------
-
作者：
男 delphiteacher (delphiteacher) ▲▲▲▲▲ -
普通会员
2016/11/22 8:46:54
6楼： 代码写的很好！
----------------------------------------------
欢迎加入OrangeUI的app开发阵营：http://www.orangeui.cn/,联系QQ452330643
作者：
男 akay (akay) ★☆☆☆☆ -
普通会员
2016/11/22 8:57:54
7楼： 我更提倡一眼能看明白的代码。
----------------------------------------------
-
作者：
男 zwjchinazwj (蒲石) ★☆☆☆☆ -
普通会员
2016/11/22 10:18:15
8楼： 看样子，匿名方法相当的不得人心哪。
----------------------------------------------
-
作者：
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2016/11/22 11:31:41
9楼： 顶 2 楼。
说 EMB 质量差，结果有 BUG 不提交。鬼才给你改。
有些人，连 EMB 的账号都没有。
----------------------------------------------
(C)(P)Flying Wang
作者：
男 sdzzb (一刀) ▲▲▲▲▲ -
普通会员
2016/11/22 13:30:51
10楼： 看评论比看代码有意思多了
----------------------------------------------
-
作者：
男 ying32 (唯有此生) ▲▲▲▲▲ -
普通会员
2016/11/22 13:34:22
10楼： js风格代码了，6666
----------------------------------------------
一个热爱delphi的人,Golang GUI库。 --我的博客--
作者：
男 edwinyeah (Edwin) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 14:03:11
11楼： Delphi编译器对匿名函数的支持一直不稳定，这是我目前对Delphi最大的不爽！
----------------------------------------------
-
作者：
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2016/11/22 14:09:29
12楼： emb 不知道你不爽，因为你不提交 BUG。
----------------------------------------------
(C)(P)Flying Wang
作者：
男 abencat (远离delphi的人) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 14:48:23
13楼： 最大的不爽 竟然你们都用盗版  哈哈
----------------------------------------------
delphi爱好者
作者：
男 qiuyan81 (苦恋树) ★☆☆☆☆ -
普通会员
2016/11/22 15:41:11
14楼： 直板的代码最可爱了,久违的代码,多年没见过了.
----------------------------------------------
作者：
男 bcc2cc (bcc2cc) ▲▲▲▲△ -
普通会员
2016/11/22 16:07:43
15楼：
delphi还好，虽然不够健壮，但是你这编程习惯也不好
对以后其他接手的人，就是个坑

有空带你见识见识c++builder， 那编译器的质量，就像个没付尾款的外包产品
----------------------------------------------
-
作者：
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2016/11/22 16:52:53
16楼： 如果大家说的是缩进问题，那是 2CCC 的问题。
我相信楼主的原本缩进是正常的。
----------------------------------------------
(C)(P)Flying Wang
作者：
男 jingzu (123456) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 18:34:33
17楼： 看到这代码，我也崩溃了！IDE不崩溃才是怪事。
----------------------------------------------
永远是DELPHI初学者。
作者：
男 fxworld (fxworld) ▲▲▲▲▲ -
普通会员
2016/11/22 21:28:40
18楼： bcc2cc

  能大概说下c++builder 编译器的哪方面质量问题吗？ 

   很不幸，在使用c++builder 。

  谢谢
----------------------------------------------
-
作者：
男 hardnut (麦轲数据管家) ★☆☆☆☆ -
普通会员
2016/11/22 21:40:53
19楼： 我的代码中也常常使用匿名函数，除了时不时编译通不过，需要重新build一下之外，没有发现什么问题，D10 seattle
----------------------------------------------
UniKeeper V10.40 -- 您最贴心的个人数据管理助手
作者：
男 yxsoft (yxsoft) ★☆☆☆☆ -
盒子活跃会员
2016/11/22 23:05:58
20楼： 写的相当好，可以防破解
----------------------------------------------
Great!
作者：
男 mousesoft (MouseSoft) ★☆☆☆☆ -
盒子活跃会员
2016/11/23 0:42:14
21楼： 我还在用XE6 ~~~~
----------------------------------------------
-
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 8:24:27
22楼： 看来这论坛只有吐糟和奇芭才有人回复。。
都是些年轻人
----------------------------------------------
-
作者：
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2016/11/23 8:48:00
23楼： 如果大家说的是缩进问题，那是 2CCC 的问题。
我相信楼主的原本缩进是正常的。
----------------------------------------------
(C)(P)Flying Wang
作者：
男 jingzu (123456) ★☆☆☆☆ -
盒子活跃会员
2016/11/23 9:44:46
24楼： 这种代码，如果以后接手的人会疯的。
越简单越容易排错，向这种代码没有流程可言，很难排错的。
计算机为什么用 1，0表示数据，就是最简单的。
----------------------------------------------
永远是DELPHI初学者。
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 9:55:56
25楼： 楼上是Sb,
几行顺序执行的代码他说没流程，这个人可能是小学生
----------------------------------------------
-
作者：
男 jingzu (123456) ★☆☆☆☆ -
盒子活跃会员
2016/11/23 10:15:10
26楼： 这专家写出代码水平太高了，连delphi10.1 update2都崩溃了。
----------------------------------------------
永远是DELPHI初学者。
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 10:17:07
27楼： 你这小学生不懂~~你去学学ABC吧
----------------------------------------------
-
作者：
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2016/11/23 10:19:21
28楼： 完全不知道，你们因为什么吵架。
----------------------------------------------
(C)(P)Flying Wang
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 10:28:28
29楼： 他小学生不懂题，人家说IDE崩溃，没说编译不过，
实事上编译一点问题都没有
----------------------------------------------
-
作者：
男 crystalmoon (crystalmoon) ★☆☆☆☆ -
盒子活跃会员
2016/11/23 11:08:35
30楼： 装了Cnpack或类似的代码分析和高亮插件没？
----------------------------------------------
-
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 12:11:49
31楼： 楼上高见
----------------------------------------------
-
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/23 12:12:30
32楼： 可能是CnPack的问题
----------------------------------------------
-
作者：
男 scarlette (Scarlette) ★☆☆☆☆ -
普通会员
2016/11/23 22:43:20
33楼： 晕死了，那么喜欢用匿名函数，还匿名套匿名套匿名套内嵌，至于么…… -__-#
----------------------------------------------
-
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/24 8:41:23
34楼： 我下次还要试一下
 匿名套匿名套匿名套内嵌套线程同步套匿名套内嵌套匿名套内嵌套线程异步
、这样
----------------------------------------------
-
作者：
女 xingyunmm (xingyunmm) ★☆☆☆☆ -
普通会员
2016/11/24 8:51:42
35楼： 这里暴露一群说代码怎样怎样JJYY的可能就是一些连小项目都没做过的小白
----------------------------------------------
-
作者：
男 blacktulip (blacktulip) ★☆☆☆☆ -
盒子活跃会员
2016/11/24 10:15:06
36楼： 从我最近使用 10.1 这个版本的ide已经很稳健了。所有不稳定，请把不相干的第三方插件去掉然后再试下。
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行289.0625毫秒 RSS