初学delphi想知道，对于一个string，如何对其中的每个char进行＋3处理？谢谢！在线等待！！！
如题 问题点数：20、回复次数：11Top
1 楼jimh（Jimmy）回复于 2003-12-04 13:50:22 得分 0
var p:PChar
p:=PChar(str);
While p^<>$0 do
p^:=p^+3;
Top
2 楼SailorK（态度决定一切!）回复于 2003-12-04 14:02:54 得分 0
楼上的好像不行阿！
用什么uses阿！？Top
3 楼47522341（睡到8：30）回复于 2003-12-04 14:05:51 得分 0
for I:= 0 to length(str) - 1 do
begin
str[I] := char(ord(str[I])+3);
end;Top
4 楼47522341（睡到8：30）回复于 2003-12-04 14:08:28 得分 0
procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
str: string;
begin
str := 'ABC';
for I:= 0 to length(str) - 1 do
begin
str[I] := char(ord(str[I])+3);
end;
showmessage(str);
end;Top
5 楼47522341（睡到8：30）回复于 2003-12-04 14:09:51 得分 15
搞定了；楼主快揭帖；我差12分升级；^_^；Top
6 楼jacky_shen（jacky）回复于 2003-12-04 14:10:51 得分 0
var
S: string;
I, N: Integer;
begin
S := '1234';
N := 3; // 要增加的数值
for I := 1 to Length(S) do
S[I] := Chr(Ord(S[I]) + N); // char进行＋3
Caption := S;
end;Top
7 楼qiume（好好回贴，天天胖胖）回复于 2003-12-04 14:29:05 得分 5
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure AddChar(var AStr: string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AddChar(var AStr: string);
var
i: Integer;
begin
for i := 1 to Length(AStr) do
AStr[i] := Char((Ord(AStr[i]) + 3));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vStr: string;
begin
vStr := 'ABC';
AddChar(vStr);
ShowMessage(vStr); // DEF;
end;
end.Top
8 楼ysp24（永无止境）回复于 2003-12-04 14:44:18 得分 0
同意！Top
9 楼siwuge（五哥）回复于 2003-12-04 15:31:45 得分 0
初学帮顶。Top
10 楼SailorK（态度决定一切!）回复于 2003-12-04 18:02:01 得分 0
47522341(睡到8：30)
节帖了
恭喜恭喜！！！Top
11 楼SailorK（态度决定一切!）回复于 2003-12-04 18:11:18 得分 0
对qiume(杜克），jacky_shen(jacky)兄的严谨的治学态度表示敬佩！在此表示感谢Top
