首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
怎么改也编译通不过？
发表于: 2005-11-16 04:20 5056

怎么改也编译通不过？

limee 活跃值
2005-11-16 04:20
5056
// 将二进制字符串转换为无符号十进制数
Function BinToInt(Value : String) : LongInt;
var
   i : Integer;
begin
   Result := 0;
   for i := Length(Value) downto 1 do
   begin
      if Char(Value(i)) = Char('1') then
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      if Value(i) = Char('1') then
      ~~~~~~~~~~~~~~~~~~~~~
      if Value(i) = '1' then
      ~~~~~~~~~~~~~~~~~~~~~~
      这三行怎么写也编译无法通过
      
        Result := Result + (1 shl i);
   end;
end;

[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)

收藏
免费 ・0
支持
分享
最新回复 (6)
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
2 楼
//晕，取数组怎么变成调用数组函数了。
Function BinToInt(Value : String) : LongInt;
var
   i : Integer;
begin
   Result := 0;
   for i := Length(Value) downto 1 do
   begin
      if Char(Value[i]) = Char('1') then
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      if Value[i] = Char('1') then
      ~~~~~~~~~~~~~~~~~~~~~
      if Value[i] = '1' then
      ~~~~~~~~~~~~~~~~~~~~~~
      这三行怎么写也编译无法通过
      
        Result := Result + (1 shl i);
   end;
end;
2005-11-16 08:22
0
fengercn
雪    币： 214
活跃值： (70)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
3 楼
C++可以用强制类型转换，DF不懂
2005-11-18 07:36
0
心已欠费
雪    币： 200
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
对的哈,三楼说的是这个理
2005-11-23 20:21
0
鸡蛋壳
雪    币： 427
活跃值： (412)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
5 楼
最初由 fengercn 发布
C++可以用强制类型转换，DF不懂


C也可以。
2005-12-2 15:40
0
datm
雪    币： 209
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
实在不行就
if Ord(Value[i]) = Ord('1') then
2005-12-2 20:24
0
datm
雪    币： 209
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
7 楼
奇怪
      if Char(Value[i]) = Char('1') then
      if Value[i] = Char('1') then
      if Value[i] = '1' then
这三种方法我都编译过去（D9），是不是你的Delphi设置问题
2005-12-2 20:27
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回
//