procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+ - 免费下载

Delphi/CppBuilder资源 文件大小:2 K

📋 资源详细信息

文件格式
RAR
所属分类
上传用户
上传时间
文件大小
2 K
所需积分
2 积分
推荐指数
⭐⭐⭐⭐⭐ (5/5)

💡 温馨提示:本资源由用户 xieqinplay 上传分享,仅供学习交流使用。如有侵权,请联系我们删除。

资源简介

procedureTForm1.Button1Click(Sender:TObject) var S:String begin S:=idhttp1.Get(PostURL.text+ ?username= +EdUserName.Text+ &password= +EdPassWord.Text+ &password2= +EdPassWord.Text+ &email= + EdEMail.Text+ &gendernew=1&year=&month=&day=&locationnew =&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew =&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew =yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar =&sig=®submit=注册 )  //一句代码 ifPos( 非常感谢您的注册 ,s)>1then //判断部分  ShowMessage( 注册成功! ) else  ifPos( 已经被注册了 ,S)>1then   ShowMessage( 该用户名或E-Mail已被注册! )  else   ShowMessage( 已关闭注册,注册失败! ) end

源码文件列表

📂 共 1 个源码文件 点击文件名可在线查看源代码

1 📃
讨论.txt
大小: 1.62 KB
查看源码
💡
温馨提示:点击文件名或"查看源码"按钮可在线浏览源代码,支持语法高亮显示。

立即下载此资源

提示:下载后请用压缩软件解压,推荐使用 WinRAR 或 7-Zip

资源说明

📥 下载说明

  • 下载需消耗 2积分
  • 24小时内重复下载不扣分
  • 支持断点续传
  • 资源永久有效

📦 使用说明

  • 下载后用解压软件解压
  • 推荐 WinRAR 或 7-Zip
  • 如有密码请查看说明
  • 解压后即可使用

🎁 积分获取

  • 上传资源获得积分
  • 每日签到免费领取
  • 邀请好友注册奖励
  • 查看详情 →

相关标签

点击标签查看更多相关资源:

相关资源推荐