社区
Delphi
帖子详情
Delphi的送分小问题
goldenkey
2000-08-09 10:23:00
在Delphi中case语句不能对字符串进行比较,不知道有没有别的方法可以对字符串实现类似case操作?
...全文
134
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的微信公众平台接口范例
文件包中包含两个例程,一个是服务器端的,另一个是为方便在本地测试,模拟微信服务器推送信息的小工具,均有源码。 要测试本范例,需要一个微信公众账号,一个有公网IP的服务器,本范例自带web服务器,所以请先停...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章