关于错误“Incompatible types”……
本帖最后由 卡布基米 于 2013-3-17 15:29 编辑新人不懂格式，还望见谅。 这两天看了小甲鱼老师的教学视频，印象很深，我看的是：凯撒密码和栅栏密码-密码学基础01，视频中最后说道用C和delphi各自实现了凯撒密码，我也手痒痒试着做了一遍，（因为鱼币不足无法下载源码，好痛苦……）C语言的，很快就在控制台中实现了。但是delphi的我弄了好久，一直没能成功，也许是我的思路不对，我在form里添加了两个文本框和一个按钮，希望的是在Edit1中输入任意字母，按下按钮，Edit2中就输出加密后的文本。以下是用于实现加密的procedure，但是一直在报错，求大神解救！！！！！！！报错类型为“Incompatible types”，出错位置为红色字体
procedure TCaesarMain.encryption;
var
i,j:integer;
Arr1,Arr2:array of char;
m,c: string;
begin
m:=Edit1.text；
setlength(Arr1,sizeof(m)); //设置数组长度为输入字串长度
StrCpoy(@Arr1,PChar(m)); //将字符串中的每个字符赋给数组Arr1
for i:=1 to sizeof(m) do
begin
for j=1 to i do
begin
if ord(Arr1)>64and ord(Arr1 )<91then
Arr2:= chr((ord(Arr1)-65+3)mod 26+65);
if ord(Arr1)>96and ord( Arr1)<123 then
Arr2:= chr((ord (Arr1)-65+3)mod 26+65); //判断字符ASCII码并移位
end;
end;
Edit2.Text:=PChar(@Arr2);
end;
不知道为什么保存一直出问题，if 判断的条件是：
if 0rd(Arr)>64 and ord(Arr1)<91
页:
[1]