Move WriteBuffer ReadBuffer String
在实际编程中,经常会用到Buffer,当string作为Buffer传值时需要注意的是
1, string的值的起始索引是1,千万记住!
2, 有时候需要先告诉系统去开辟出内存空间,用SetLength函数。
如下代码,示范了再Move、 WriteBuffer、 ReadBuffer时候的用法:
- unit Unit3;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
- type
- TForm3 = class(TForm)
- Memo1: TMemo;
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- Button4: TButton;
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button4Click(Sender: TObject);
- private
- { Private declarations }
- FMemoryStream: TMemoryStream;
- FBuffer: string;
- public
- { Public declarations }
- end;
- var
- Form3: TForm3;
- implementation
- {$R *.dfm}
- procedure TForm3.Button1Click(Sender: TObject);
- var
- LStr: string;
- LLen: Integer;
- begin
- LStr := '太棒了!Hello, 世界 我太爱你了';
- LLen := Length(LStr);
- FMemoryStream.WriteBuffer(LLen, SizeOf(LLen));
- // 要用LStr[1], 而不是LStr
- FMemoryStream.WriteBuffer(LStr[1], LLen);
- end;
- procedure TForm3.Button2Click(Sender: TObject);
- var
- LStr: string;
- LLen: Integer;
- begin
- // 因为写入与读出在一个工程中,所以先把指针指向开头位置
- FMemoryStream.Position := 0;
- FMemoryStream.ReadBuffer(LLen, SizeOf(LLen));
- SetLength(LStr, LLen);
- // 要用LStr[1], 而不是LStr
- FMemoryStream.ReadBuffer(LStr[1], LLen);
- Memo1.Lines.Add(LStr);
- end;
- procedure TForm3.Button3Click(Sender: TObject);
- var
- LStr: string;
- LLen: Integer;
- LIndex: Integer;
- begin
- LStr := '世界很美好 Hello, World!';
- LLen := Length(LStr);
- // 先为FBuffer开辟出空间
- SetLength(FBuffer, SizeOf(LLen) + LLen);
- LIndex := 1;
- // FBuffer的起始位置为1
- Move(LLen, FBuffer[1], SizeOf(LLen));
- // 计算Buffer指针的移动位置
- Inc(LIndex, SizeOf(LLen));
- // 要用LStr[1], 而不是LStr
- Move(LStr[1], FBuffer[LIndex], LLen);
- end;
- procedure TForm3.Button4Click(Sender: TObject);
- var
- LStr: string;
- LLen: Integer;
- LIndex: Integer;
- begin
- LIndex := 1;
- Move(FBuffer[1], LLen, SizeOf(LLen));
- Inc(LIndex, SizeOf(LLen));
- SetLength(LStr, LLen);
- // 要用LStr[1], 而不是LStr
- Move(FBuffer[LIndex], LStr[1], LLen);
- Memo1.Lines.Add(LStr);
- end;
- procedure TForm3.FormCreate(Sender: TObject);
- begin
- FMemoryStream := TMemoryStream.Create;
- end;
- procedure TForm3.FormDestroy(Sender: TObject);
- begin
- FMemoryStream.Free;
- end;
- end.
http://blog.csdn.net/procedure1984/article/details/5419454
Move WriteBuffer ReadBuffer String的更多相关文章
- SQL Server ->> Move characters in string N position(s) forward/backward based on ASCII table(根据ASCII表的排列顺序将字符串内的数值往前或者后移N个位)
去年无聊的时候想到想玩一下根据ASCII表的排列顺序将字符串内的数值往前或者后移N个位,顺便看一下是T-SQL性能好还是用C#写CLR函数处理得快.结果是在50万行以下其实两者差距很小,当然这是在我的 ...
- java移动/赋值文件 copy/move file
public class FileAccess { public static boolean Move(File srcFile, String destPath) { // Destination ...
- C++ 11 右值引用以及std::move
转载请注明出处:http://blog.csdn.net/luotuo44/article/details/46779063 新类型: int和int&是什么?都是类型.int是整数类型,in ...
- move.js运动插件
move.js 运动插件是一款针对元素动画效果的插件.可以运用此插件制作出各类元素效果. 插件GitHub地址:https://github.com/visionmedia/move.js 下面整理学 ...
- Add GUI to connect to SQL
(*********************************************************************************) (* *) (* Below i ...
- 【Zookeeper】源码之序列化
一.前言 在完成了前面的理论学习后,现在可以从源码角度来解析Zookeeper的细节,首先笔者想从序列化入手,因为在网络通信.数据存储中都用到了序列化,下面开始分析. 二.序列化 序列化主要在zook ...
- 从零讲解搭建一个NIO消息服务端
本文首发于本博客,如需转载,请申明出处. 假设 假设你已经了解并实现过了一些OIO消息服务端,并对异步消息服务端更有兴趣,那么本文或许能带你更好的入门,并了解JDK部分源码的关系流程,正如题目所说,笔 ...
- 理解Java的NIO
同步与阻塞 同步和异步是针对应用程序和内核的交互而言的. 同步:执行一个操作之后,进程触发IO操作并等待(阻塞)或者轮询的去查看IO的操作(非阻塞)是否完成,等待结果,然后才继续执行后续的操作. 异步 ...
- Java NIO之Selector(选择器)
历史回顾: Java NIO 概览 Java NIO 之 Buffer(缓冲区) Java NIO 之 Channel(通道) 其他高赞文章: 面试中关于Redis的问题看这篇就够了 一文轻松搞懂re ...
随机推荐
- IOS 技术层概览
IOS 技术层 Cocoa Touch 框架 ui 等 帮助开发者搭建程序 UIKit 它负责启动和关闭应用程序 控制界面和多点触摸事件,并让你能访问常见毒数据试图(比如网页以及word.execl文 ...
- 一键搞定Java桌面应用安装部署 —— exe4j + Inno Setup 带着JRE, 8M起飞
转载自:http://www.blogjava.net/huliqing/archive/2008/04/18/193907.html 对于作Java桌面应用来说,比较烦人的就是安装部署问题,客户端是 ...
- Android基础-EditText键盘的显示与隐藏
场景一.点击EditText之外的空白区域隐藏键盘: how to hide soft keyboard on android after clicking outside EditText? 首先定 ...
- Activity之onWindowFocusChanged
public void onWindowFocusChanged (boolean hasFocus) 参数hasFocus: the window of this activity has focu ...
- js判断年龄是否在0-100之间
//判断年龄 $('#info_age').change(function(){ var _val = $(this).val(); -]+$/.test( _val ))||_val< || ...
- Sql Server之数据库规范——1、自动化规范命名
一.废话: 随着数据库的规模越来越大,数据库的表也有成百上千,如果需要对数据库表名及字段名做操作,单个还好,直接一条语句搞定了,但如果要对整个库的所有表和字段名做操作,那就显得有点麻烦了.因此,我们需 ...
- HBase API详解
一.Java API和HBase数据模型的关系 在Java中,与HBase数据库存储管理相关的类包括HBaseAdmin.HBaseConfiguration.HTable.HTableDescrip ...
- TCP的阻塞和重传
TCP的阻塞和重传 TCP的阻塞和重传机制 网络拥堵 现在网络上大部分的网络请求都是以TCP的方式进行传输的了.网络链路是固定的,各种链路情况也是不一样的.网络拥堵一直是TCP协议设计和使用的时候尽力 ...
- SMTP邮件传输协议发送邮件和附件
在以前接触的项目中,一直都是在做网站时用到了发送mail 的功能,在asp 和.net 中都有相关的发送mail 的类, 实现起来非常简单.最近这段时间因工作需要在C++ 中使用发送mail 的功能, ...
- android小知识之中如何获取当前时间
百度整理过来的 [java] view plaincopyprint? import java.text.SimpleDateFormat; SimpleDateFormat format ...