Move WriteBuffer ReadBuffer String

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

1， string的值的起始索引是1，千万记住！

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

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

[delphi] view plaincopy

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