这是怎么实现的?

youngycye 2003-12-04 10:04:42
如何实现从

!肿肼IICSA龈 ǎ⒋娲咏敝苣喽钭娲谀BK1

到 “1KB内存最多能直接存储( )个ASCII码字符。”

上面的那一句好像是下面这句的逆序。。????

...全文
17 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
午秋 2003-12-05
  • 打赏
  • 举报
回复
呵呵,试了一下,果然是,下面给出转换代码
procedure TForm1.Button1Click(Sender: TObject);
var
tmp:pchar;
i,len:integer;
s:string;
begin
s:='!肿肼IICSA龈 ǎ⒋娲咏敝苣喽钭娲谀BK1';
len:=Length(s);
GetMem(tmp,len);
for i:=1 to len do
tmp[len-i]:=s[i];
ShowMessage(tmp);
freeMem(tmp);
end;
午秋 2003-12-05
  • 打赏
  • 举报
回复
如果是逆序你就再逆一次得了,我怕不是逆序而是加入密吧
youngycye 2003-12-05
  • 打赏
  • 举报
回复
或是将其编成一个独立的程序。。因为我的机子上现在缺少Dephi。。。
太谢谢你了呀
youngycye 2003-12-05
  • 打赏
  • 举报
回复
谢谢,,,
能否再给出VB的代码呢?
guge 2003-12-04
  • 打赏
  • 举报
回复
不懂!

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧