T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
请教诸位
L
luyear
Unregistered / Unconfirmed
GUEST, unregistred user!
用ORD和Chr兩個函數混合使用就可以了
小
小人物
Unregistered / Unconfirmed
GUEST, unregistred user!
chr(ord('A')+1);
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
//我这样用可是编译通不过阿，如下
for i:=0 to Length(s)-1 do
S:=Chr(Ord(S+1));
for i:=0 to Length(s)-1 do
S:=Chr(Ord(S+1));
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
请教小人物大侠，如果我要使得整个字符串里面的每一个字符都加一应该怎么做呢？
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
to 卷起千堆雪tyn:
你的程序和我的一样的阿，没有办反通过。
你的程序和我的一样的阿，没有办反通过。
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
再to 卷起千堆雪tyn
我按照你的程序改过了，可是还是有错，请问如何解决呢？
我按照你的程序改过了，可是还是有错，请问如何解决呢？
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
to YnTW:
我又修改了程序，可是还是不行阿，源程序全部附在下面：
------------------------------
function mzha(const S:String
sType: DWord):String;
var
i: Integer;
begin
result:='';
case sType of
0:
begin
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
Result:=S;
end;
1: //GetPass
Begin
for i:=1 to Length(s) do
S:=Chr(Ord(S)-1);
Result:=s;
end;
end;
end;
我又修改了程序，可是还是不行阿，源程序全部附在下面：
------------------------------
function mzha(const S:String
sType: DWord):String;
var
i: Integer;
begin
result:='';
case sType of
0:
begin
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
Result:=S;
end;
1: //GetPass
Begin
for i:=1 to Length(s) do
S:=Chr(Ord(S)-1);
Result:=s;
end;
end;
end;
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
TO Temp：
当字符串作字符数组使用时，下标应该从1开始，故可先判断是否为空串，不为空串再执行
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
当字符串作字符数组使用时，下标应该从1开始，故可先判断是否为空串，不为空串再执行
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
function mzha(const S:String
sType: DWord):String;
var
i: Integer;
begin
if S='' then
Exit;
result:=S;
case sType of
0:for i:=1 to Length(s) do
Result:=Chr(Ord(Result)+1);
1:for i:=1 to Length(s) do
Result:=Chr(Ord(Result)-1);
end;
end;
sType: DWord):String;
var
i: Integer;
begin
if S='' then
Exit;
result:=S;
case sType of
0:for i:=1 to Length(s) do
Result:=Chr(Ord(Result)+1);
1:for i:=1 to Length(s) do
Result:=Chr(Ord(Result)-1);
end;
end;
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢诸位，我知道问题出在哪里了，原来那个string不能为const阿~~sigh....费了好大的劲
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢诸位大侠的鼎立相助，分数立即送上，同时大侠能否关注我的：
50 分征求 字符串加密解密程序 一问呢？
万分感谢!!!!
50 分征求 字符串加密解密程序 一问呢？
万分感谢!!!!
C
chonghai
Unregistered / Unconfirmed
GUEST, unregistred user!
原来是个大糊涂蛋！！！[
][][]
][][]
T
Temp
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案，多谢诸位！！
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
ShowMessage(Char(Ord('a')+1));
我服了你～～
procedure TForm1.Button1Click(Sender: TObject);
var
s :string;
i :integer;
begin
s:='abcd';
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
showmessage(s);
end;
我服了你～～
procedure TForm1.Button1Click(Sender: TObject);
var
s :string;
i :integer;
begin
s:='abcd';
for i:=1 to Length(s) do
S:=Chr(Ord(S)+1);
showmessage(s);
end;