在实际编程中,经常会用到Buffer,当string作为Buffer传值时需要注意的是

1, string的值的起始索引是1,千万记住!

2, 有时候需要先告诉系统去开辟出内存空间,用SetLength函数。

如下代码,示范了再Move、 WriteBuffer、 ReadBuffer时候的用法:

  1. unit Unit3;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls;
  6. type
  7. TForm3 = class(TForm)
  8. Memo1: TMemo;
  9. Button1: TButton;
  10. Button2: TButton;
  11. Button3: TButton;
  12. Button4: TButton;
  13. procedure Button1Click(Sender: TObject);
  14. procedure Button2Click(Sender: TObject);
  15. procedure FormCreate(Sender: TObject);
  16. procedure FormDestroy(Sender: TObject);
  17. procedure Button3Click(Sender: TObject);
  18. procedure Button4Click(Sender: TObject);
  19. private
  20. { Private declarations }
  21. FMemoryStream: TMemoryStream;
  22. FBuffer: string;
  23. public
  24. { Public declarations }
  25. end;
  26. var
  27. Form3: TForm3;
  28. implementation
  29. {$R *.dfm}
  30. procedure TForm3.Button1Click(Sender: TObject);
  31. var
  32. LStr: string;
  33. LLen: Integer;
  34. begin
  35. LStr := '太棒了!Hello, 世界 我太爱你了';
  36. LLen := Length(LStr);
  37. FMemoryStream.WriteBuffer(LLen, SizeOf(LLen));
  38. // 要用LStr[1], 而不是LStr
  39. FMemoryStream.WriteBuffer(LStr[1], LLen);
  40. end;
  41. procedure TForm3.Button2Click(Sender: TObject);
  42. var
  43. LStr: string;
  44. LLen: Integer;
  45. begin
  46. // 因为写入与读出在一个工程中,所以先把指针指向开头位置
  47. FMemoryStream.Position := 0;
  48. FMemoryStream.ReadBuffer(LLen, SizeOf(LLen));
  49. SetLength(LStr, LLen);
  50. // 要用LStr[1], 而不是LStr
  51. FMemoryStream.ReadBuffer(LStr[1], LLen);
  52. Memo1.Lines.Add(LStr);
  53. end;
  54. procedure TForm3.Button3Click(Sender: TObject);
  55. var
  56. LStr: string;
  57. LLen: Integer;
  58. LIndex: Integer;
  59. begin
  60. LStr := '世界很美好 Hello, World!';
  61. LLen := Length(LStr);
  62. // 先为FBuffer开辟出空间
  63. SetLength(FBuffer, SizeOf(LLen) + LLen);
  64. LIndex := 1;
  65. // FBuffer的起始位置为1
  66. Move(LLen, FBuffer[1], SizeOf(LLen));
  67. // 计算Buffer指针的移动位置
  68. Inc(LIndex, SizeOf(LLen));
  69. // 要用LStr[1], 而不是LStr
  70. Move(LStr[1], FBuffer[LIndex], LLen);
  71. end;
  72. procedure TForm3.Button4Click(Sender: TObject);
  73. var
  74. LStr: string;
  75. LLen: Integer;
  76. LIndex: Integer;
  77. begin
  78. LIndex := 1;
  79. Move(FBuffer[1], LLen, SizeOf(LLen));
  80. Inc(LIndex, SizeOf(LLen));
  81. SetLength(LStr, LLen);
  82. // 要用LStr[1], 而不是LStr
  83. Move(FBuffer[LIndex], LStr[1], LLen);
  84. Memo1.Lines.Add(LStr);
  85. end;
  86. procedure TForm3.FormCreate(Sender: TObject);
  87. begin
  88. FMemoryStream := TMemoryStream.Create;
  89. end;
  90. procedure TForm3.FormDestroy(Sender: TObject);
  91. begin
  92. FMemoryStream.Free;
  93. end;
  94. end.

http://blog.csdn.net/procedure1984/article/details/5419454

Move WriteBuffer ReadBuffer String的更多相关文章

  1. SQL Server ->> Move characters in string N position(s) forward/backward based on ASCII table(根据ASCII表的排列顺序将字符串内的数值往前或者后移N个位)

    去年无聊的时候想到想玩一下根据ASCII表的排列顺序将字符串内的数值往前或者后移N个位,顺便看一下是T-SQL性能好还是用C#写CLR函数处理得快.结果是在50万行以下其实两者差距很小,当然这是在我的 ...

  2. java移动/赋值文件 copy/move file

    public class FileAccess { public static boolean Move(File srcFile, String destPath) { // Destination ...

  3. C++ 11 右值引用以及std::move

    转载请注明出处:http://blog.csdn.net/luotuo44/article/details/46779063 新类型: int和int&是什么?都是类型.int是整数类型,in ...

  4. move.js运动插件

    move.js 运动插件是一款针对元素动画效果的插件.可以运用此插件制作出各类元素效果. 插件GitHub地址:https://github.com/visionmedia/move.js 下面整理学 ...

  5. Add GUI to connect to SQL

    (*********************************************************************************) (* *) (* Below i ...

  6. 【Zookeeper】源码之序列化

    一.前言 在完成了前面的理论学习后,现在可以从源码角度来解析Zookeeper的细节,首先笔者想从序列化入手,因为在网络通信.数据存储中都用到了序列化,下面开始分析. 二.序列化 序列化主要在zook ...

  7. 从零讲解搭建一个NIO消息服务端

    本文首发于本博客,如需转载,请申明出处. 假设 假设你已经了解并实现过了一些OIO消息服务端,并对异步消息服务端更有兴趣,那么本文或许能带你更好的入门,并了解JDK部分源码的关系流程,正如题目所说,笔 ...

  8. 理解Java的NIO

    同步与阻塞 同步和异步是针对应用程序和内核的交互而言的. 同步:执行一个操作之后,进程触发IO操作并等待(阻塞)或者轮询的去查看IO的操作(非阻塞)是否完成,等待结果,然后才继续执行后续的操作. 异步 ...

  9. Java NIO之Selector(选择器)

    历史回顾: Java NIO 概览 Java NIO 之 Buffer(缓冲区) Java NIO 之 Channel(通道) 其他高赞文章: 面试中关于Redis的问题看这篇就够了 一文轻松搞懂re ...

随机推荐

  1. IOS 技术层概览

    IOS 技术层 Cocoa Touch 框架 ui 等 帮助开发者搭建程序 UIKit 它负责启动和关闭应用程序 控制界面和多点触摸事件,并让你能访问常见毒数据试图(比如网页以及word.execl文 ...

  2. 一键搞定Java桌面应用安装部署 —— exe4j + Inno Setup 带着JRE, 8M起飞

    转载自:http://www.blogjava.net/huliqing/archive/2008/04/18/193907.html 对于作Java桌面应用来说,比较烦人的就是安装部署问题,客户端是 ...

  3. Android基础-EditText键盘的显示与隐藏

    场景一.点击EditText之外的空白区域隐藏键盘: how to hide soft keyboard on android after clicking outside EditText? 首先定 ...

  4. Activity之onWindowFocusChanged

    public void onWindowFocusChanged (boolean hasFocus) 参数hasFocus: the window of this activity has focu ...

  5. js判断年龄是否在0-100之间

    //判断年龄 $('#info_age').change(function(){ var _val = $(this).val(); -]+$/.test( _val ))||_val< || ...

  6. Sql Server之数据库规范——1、自动化规范命名

    一.废话: 随着数据库的规模越来越大,数据库的表也有成百上千,如果需要对数据库表名及字段名做操作,单个还好,直接一条语句搞定了,但如果要对整个库的所有表和字段名做操作,那就显得有点麻烦了.因此,我们需 ...

  7. HBase API详解

    一.Java API和HBase数据模型的关系 在Java中,与HBase数据库存储管理相关的类包括HBaseAdmin.HBaseConfiguration.HTable.HTableDescrip ...

  8. TCP的阻塞和重传

    TCP的阻塞和重传 TCP的阻塞和重传机制 网络拥堵 现在网络上大部分的网络请求都是以TCP的方式进行传输的了.网络链路是固定的,各种链路情况也是不一样的.网络拥堵一直是TCP协议设计和使用的时候尽力 ...

  9. SMTP邮件传输协议发送邮件和附件

    在以前接触的项目中,一直都是在做网站时用到了发送mail 的功能,在asp 和.net 中都有相关的发送mail 的类, 实现起来非常简单.最近这段时间因工作需要在C++ 中使用发送mail 的功能, ...

  10. android小知识之中如何获取当前时间

    百度整理过来的 [java] view plaincopyprint? import    java.text.SimpleDateFormat; SimpleDateFormat    format ...