社区
Delphi
帖子详情
Delphi的送分小问题
goldenkey
2000-08-09 10:23:00
在Delphi中case语句不能对字符串进行比较,不知道有没有别的方法可以对字符串实现类似case操作?
...全文
126
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
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录程序,让学员初步掌握软件开发的全部流程让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。
Delphi
遗传算法相关的小例子,源码免费送上.rar
遗传算法的小例子,用
Delphi
实现,相当基本的遗传算法了,用控制台的形式去展现。遗传算法简称GA(Genetic Algorithm),在本质上是一种不依赖具体
问题
的直接搜索方法。遗传算法在模式识别、神经网络、图像处理、机器学习、工业优化控制、自适应控制、生物科学、社会科学等方面都得到应用。在人工智能研究中,现在人们认为“遗传算法、自适应系统、细胞自动机、混沌理论与人工智能一样,都是对今后十年的计算技术有重大影响的关键技术”。
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章