会员登录 用户名: 密码: 登录 新会员注册 [找回密码]
当前位置:编程论坛 >> C/S程序开发专区 >> Delphi编程论坛 >> 这些代码要出现在库单元里的什么位置才正确?
首页
  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 530 个阅读者浏览上一篇主题  刷新本主题   平板显示贴子 浏览下一篇主题
 * 贴子主题:这些代码要出现在库单元里的什么位置才正确? 悬赏分30 [已结帖] 报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 lfkm 帅哥哟,离线,有人找我吗?
  
  
  等 级:初出江湖
  积 分:15
  专家分:20
  提问帖:8/6
  回答帖:2
  总帖数:26
  经验值:119
  注 册:2008-4-19
给lfkm发送一个短消息 把lfkm加入好友 查看lfkm的个人资料 搜索lfkm在Delphi编程论坛的所有贴子 引用回复这个贴子 回复这个贴子

发贴心情 

以下是引用[i]苦寒在2008-5-12 12:57:00[/i]的发言:
unit Unit1;
............
............
 {$R *.dfm}

 
 function   LocalIP:string;   
   type   
           TaPInAddr   =   array   [0..10]   of   PInAddr;   
           PaPInAddr   =   ^TaPInAddr;   
   var   
           phe     :   PHostEnt;   
           pptr   :   PaPInAddr;   
           Buffer   :   array   [0..63]   of   char;   
           I         :   Integer;   
           GInitData             :   TWSADATA;      
   begin   
................
...........................
   end;

 
 end.
 你在函数中用到的一些其他单元文件必须要放到uses中,否则是不行的。



如果我里面加个按钮的话。那形式是不是这样:
unit Unit1;
............
............
 {$R *.dfm}

 function   LocalIP:string;   
   type   
           TaPInAddr   =   array   [0..10]   of   PInAddr;   
           PaPInAddr   =   ^TaPInAddr;   
   var   
           phe     :   PHostEnt;   
           pptr   :   PaPInAddr;   
           Buffer   :   array   [0..63]   of   char;   
           I         :   Integer;   
           GInitData             :   TWSADATA;   
     
   begin   
.....................................
...........
   end;
procedure TForm1.Button1Click(Sender: TObject);-----加的按钮。
begin
.............................
end;
end.


[此贴子已经被作者于2008-5-12 17:12:16编辑过]

临渊羡鱼,不如退而结网.

发帖:2008-5-12 17:10:00

本主题贴数8,分页:[返回帖子列表] [上一页] [1] [下一页]

 *树形目录 顶端 
主题:  这些代码要出现在库单元里的什么位置才正确?(1461字) - lfkm,2008年5月11日
    回复:  unit Unit1;interfaceuses Windows,..(1296字) - 苦寒,2008年5月12日
        回复:  [QUOTE[B以下是引用苦寒在2008-5-12 12:57:00的..(1435字) - lfkm,2008年5月12日
    回复:  连这些基础的都搞不明白怎么写码呀。[em09]DELPHI不只是会在组件里写就完了吧。而组件里也不..(306字) - lfkm,2008年5月12日
    回复:  操作型?自己多写代码!(22字) - Godfear,2008年5月12日
    回复:  var 是声明 procedure form.fun1v..(84字) - 若惜,2008年5月12日
    回复:  这些结构我也有,看了几遍。还是不明白怎么放它们。也许我是偏向操作型而不是理论型的吧。[em09]所..(126字) - lfkm,2008年5月11日
    回复:  lz看看这篇文章吧,有关单元文件结构的介绍。http://hi.baidu.com/lingyin..(113字) - crazypig,2008年5月11日

此主题已经结帖:

crazypig-5,苦寒-15,Godfear-5,若惜-5

 *快速回复:这些代码要出现在库单元里的什么位置才正确?  [ 回帖是一种美德 :) ]
会员账号 用户名    还没注册?    密码    忘记密码?
内容
  • HTML标签: 不可用
  • UBB标签: 可用
  • 贴图标签: 可用
  • 多媒体标签:可用
  • 表情字符转换:可用
  • 上传图片:不可用
  • 最多15KB
  • 点击表情图即可在帖子中加入相应的表情
                                
    邮件回复 显示签名   [Ctrl+Enter直接提交贴子]