怎么实现把字符串的值加1,比如abcd+1=abce,abc123+1=abc1234用ord函数只能是ordinal类型的参数,而当是string类型该怎么办,能不能把string 或 char 类型转换为ordinal类型啊?http://expert.csdn.net/Expert/topic/1395/1395245.xml?temp=.4390528
解决方案 »
- 帮忙用delphi写个读取RS232接口数据,并存入指定数据库的程序
- D5下OpenDialog的一个奇怪问题
- 如何在StatusBar中显示当前form中所有控件的hint的值
- 哪位能帮一下忙?当网络上的电脑联接我的计算机时,我能用什么方法知道联接操作?
- 一个很怪的问题,急!
- 寻求:主表\细表\从表,三级表实现联级更新的方法!!!(急)
- 神啊!救救我吧! 我要改名字! 天下的好心人!!
- Delphi编写程序时,按什么键可以查找begin ... end 的配对.(如C++ 中ALT+{ )
- 求delphi程序员开发远程控制软件!
- delphi,foxpro,重新索引
- 在线等待:如何调用StringGrid控件的DrawCell事件? 紧急!!!!!!!!!!
- 有谁知道如何实现代码着色,就象Delphi IDE 一样
type Colors = (RED,BLUE,GREEN);var
S: string;
begin
S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10;
S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) + ' decimal';
MessageDlg(S, mtInformation, [mbOk], 0);
end;可以这样:
var
I: Integer;
mStr: string;
begin
for i:=0 to x then Ord(mStr[I])......
var
Len: Integer;
sStr: Array [0..255] of char;
sTemp : String;
iADD : Integer;
begin
sTemp := 'Hello';
iADD := 10; // Last char add 10;
StrCopy(@sStr,Pchar(sTemp));
Len := Length(sTemp);
sStr[Len-1] := Chr(Ord(sStr[Len-1]) + iAdd);
showmessage(sstr);
end;
var s:string;
begin
s:='abcd2';
inc(s[length(s)]);
showmessage(s);
end;
c := S[Length(S)];
Inc(Byte(c));
Delete(S,Length(S),1);
S := S+c;