首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试
MPA考试 | 中科院
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT
新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证
华为认证 | Java认证
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格
报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师
人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平
驾驶员 | 网络编辑
卫生资格 | 执业医师 | 执业药师 | 执业护士
会计从业资格考试会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师
注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师
质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师
设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师
城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏
您现在的位置: 考试吧(Exam8.com) > 计算机等级考试 > 心得技巧 > 正文

技巧分享:计算机二级考试DELPHI基础开发技巧

来源:考试吧Exam8.com) 2010-8-30 12:54:19 考试吧:中国教育培训第一门户 模拟考场
本文是关于计算机二级考试DELPHI基础开发技巧的资料总结,希望能为广大学员的备考提供有益的帮助。

  ◇[DELPHI]解析服务器IP地址

  uses winsock

  function IPAddrToName(IPAddr : String): String;

  var

  SockAddrIn: TSockAddrIn;

  HostEnt: PHostEnt;

  WSAData: TWSAData;

  begin

  WSAStartup($101, WSAData);

  SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));

  HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

  if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='''';

  end;

  ◇[DELPHI]取得快捷方式中的连接

  function ExeFromLink(const linkname: string): string;

  var

  FDir,

  FName,

  ExeName: PChar;

  z: integer;

  begin

  ExeName:= StrAlloc(MAX_PATH);

  FName:= StrAlloc(MAX_PATH);

  FDir:= StrAlloc(MAX_PATH);

  StrPCopy(FName, ExtractFileName(linkname));

  StrPCopy(FDir, ExtractFilePath(linkname));

  z:= FindExecutable(FName, FDir, ExeName);

  if z > 32 then

  Result:= StrPas(ExeName)

  else

  Result:= '''';

  StrDispose(FDir);

  StrDispose(FName);

  StrDispose(ExeName);

  end;

  ◇[DELPHI]控制TCombobox的自动完成

  {''Sorted'' property of the TCombobox to true }

  var lastKey: Word; //全局变量

  //TCombobox的OnChange事件

  procedure TForm1.AutoCompleteChange(Sender: TObject);

  var

  SearchStr: string;

  retVal: integer;

  begin

  SearchStr := (Sender as TCombobox).Text;

  if lastKey <> VK_BACK then // backspace: VK_BACK or $08

  begin

  retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));

  if retVal > CB_Err then

  begin

  (Sender as TCombobox).ItemIndex := retVal;

  (Sender as TCombobox).SelStart := Length(SearchStr);

  (Sender as TCombobox).SelLength :=

  (Length((Sender as TCombobox).Text) - Length(SearchStr));

  end; // retVal > CB_Err

  end; // lastKey <> VK_BACK

  lastKey := 0; // reset lastKey

  end;

  //TCombobox的onKeyDown事件

  procedure TForm1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

  begin

  lastKey := Key;

  end;

上一页  1 2 3 4 5 6 7 8 9 10  ... 下一页  >> 
  相关推荐:2010年计算机等考三级网络技术历年试卷考点知识点汇总
       计算机等级考试二级VB上机试题及答案汇总
       计算机等级考试二级VB模拟试题及答案汇总
文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。