2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 1629|回复: 2
打印 上一主题 下一主题

求教一个D7下面正常的函数,在XE下面出错

[复制链接]

1

主题

3

帖子

29

积分

新手上路

Rank: 1

积分
29
跳转到指定楼层
楼主
发表于 2015-6-18 10:58:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
京东数码购物支持本站
function Encode(Str:String):String;
var//加密?
TmpChr:AnsiChar;
i,Len:integer;
begin
Result:=Str;
Len:=Length(Result);
TmpChr:=Result[1];
for i:=1 to Len-1 do
    Result[i]:=Result[i+1];
    Result[Len]:=TmpChr;
end;

-----------------
报错如下:
[dcc32 Error] Unit1.pas(36): E2010 Incompatible types: 'AnsiChar' and 'PAnsiChar'
[dcc32 Error] Unit1.pas(43): E2010 Incompatible types: 'Char' and 'AnsiChar'
[dcc32 Error] Unit1.pas(55): E2010 Incompatible types: 'AnsiChar' and 'Char'

之前用最多的是D7,真心救一下。如果方便给我讲一下原因
回复

使用道具 举报

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
83472
沙发
发表于 2015-6-18 12:51:53 | 只看该作者
京东数码购物支持本站
function Encode(Str: AnsiString): AnsiString;
var // 加密?
  TmpChr: AnsiChar;
  i, Len: integer;
begin
  Result := Str;
  Len := Length(Result);
  TmpChr := Result[1];
  for i := 1 to Len - 1 do
    Result[i] := Result[i + 1];
  Result[Len] := TmpChr;
end;
(C)(P)Flying Wang
回复 支持 反对

使用道具 举报

1

主题

3

帖子

29

积分

新手上路

Rank: 1

积分
29
板凳
 楼主| 发表于 2015-6-19 07:47:25 | 只看该作者
京东数码购物支持本站
function Encode(Str:String):AnsiString;
var//加密?
TmpChr:AnsiChar ;
i,Len:integer;
begin
Result:=PAnsiChar(AnsiString(Str));
Len:=Length(Result);

TmpChr:=Result[1];

for i:=1 to Len-1 do
    Result[i]:=Result[i+1];

    Result[Len]:=TmpChr;

end;
---------------
感谢,我是这样实现的。呵。。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|新时代Pascal论坛

GMT+8, 2024-11-1 06:53 , Processed in 0.063895 second(s), 23 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表