delphi加密函数问题
定义一个加密解密函数
function Encode(s:string):string ;
var
n,i :integer ;
str:string ;
begin
n:=length(s) ;
str:= '' ;
for i:=1 to n do
begin
str :=str+ char(ord(s[i])-1) ;
end;
encode:=str ;
end;
function Decode(s:string):string ;
var
n,i:integer ;
str:string ;
begin
n:=length(s);
str:= ' ' ;
for i:=1 to n do
begin
str:=str+char(Ord(s[i])+1) ;
end;
Decode:=str ;
end;
======
打开文本
=========
procedure TForm1.OpenClick(Sender: TObject);
var
Textvar : Textfile ;
TextLine :string ;
begin
if opendialog1.Execute then
begin
MemoB.Clear ;
caption:= '文本加密器' +Opendialog1.FileName ;
AssignFile(TextVar,Opendialog1.FileName) ;
Reset(TextVar) ;
while not eof(TextVar) do
begin
ReadLn(TextVar,TextLine);
MemoB.Items.Add(textLine);
end;
closefile(TextVar) ;
end;
end;
=====
加密是出错
procedure TForm1.EncodeClick(Sender: TObject);
begin
Memob.Items:=Encode(Memob.Items ) ;
end;
========
Missing operator or semicolon
错误信息
如何解决?