社区
Delphi
帖子详情
Delphi的送分小问题
goldenkey
2000-08-09 10:23:00
在Delphi中case语句不能对字符串进行比较,不知道有没有别的方法可以对字符串实现类似case操作?
...全文
129
5
打赏
收藏
Delphi的送分小问题
在Delphi中case语句不能对字符串进行比较,不知道有没有别的方法可以对字符串实现类似case操作?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pjy
2000-08-10
打赏
举报
回复
lotto的方法可行!
lotto
2000-08-09
打赏
举报
回复
procedure case(sendstr:string);
var sample:array[1..4] of string;
i:integer;
begin
i:=1;
sample[1]:='abcd';
sample[2]:='efd';
sample[3]:='mnq';
sample[4]:='xyz';
while (i<=4) and (sample[i]<>sendstr) do
i:=i+1;
case i of
1:
2:
3:
4:
else
end;
end;
meijg
2000-08-09
打赏
举报
回复
其实case 就是好多的if...then
你少用点else 就是了
无非是 if 条件1 then 过程1;
if 条件2 then 过程2;
....
goldenkey
2000-08-09
打赏
举报
回复
if...then的确可以实现,但在判断条件较多的情况下,复杂得一塌糊涂,还请指点迷津
meijg
2000-08-09
打赏
举报
回复
用if...then
复杂一点,但是可能管用
只是建议
delphi
商品配送管理
本管理系统,是由
delphi
+SQL 2000开发的。包含商品基础信息管理、客户基础信息管理、操作员管理、库存管理、商品申请、商品审核、配送开票、配送查询、数据备份与还原等功能。数据库ID为sa,密码为123456
delphi
货物配送物流系统源代码
delphi
货物配送物流系统源代码
Delphi
遗传算法相关的小例子,源码免费送上.rar
遗传算法的小例子,用
Delphi
实现,相当基本的遗传算法了,用控制台的形式去展现。遗传算法简称GA(Genetic Algorithm),在本质上是一种不依赖具体
问题
的直接搜索方法。遗传算法在模式识别、神经网络、图像处理、机器学习、工业优化控制、自适应控制、生物科学、社会科学等方面都得到应用。在人工智能研究中,现在人们认为“遗传算法、自适应系统、细胞自动机、混沌理论与人工智能一样,都是对今后十年的计算技术有重大影响的关键技术”。
dll bpl
delphi
框架 源代码 大放送
dll bpl
delphi
框架 源代码 大放送
基于
Delphi
XE4的微信公众平台接口范例
这是本人根据微信公众平台接口文档简单得不能再简单的资料编写的一个范例,希望对各位
delphi
程序员开发微信应用带来点帮助。 文件包中包含两个例程,一个是服务器端的,另一个是为方便在本地测试,模拟微信服务器推送信息的小工具,均有源码。 要测试本范例,需要一个微信公众账号,一个有公网IP的服务器,本范例自带web服务器,所以请先停掉服务器上已有的web服务再运行。 本范例在
Delphi
XE4 Update1上开发。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章